Contenido
Índice 🔎︎

# Instrucción While… Wend

Cuando un programa encuentra una instrucción While, este la comprueba. Si la condición es falsa, el programa continúa directamente después de la instrucción Wend. Si la condición es verdadera, el bucle se ejecuta hasta que el programa encuentre Wend y después vuelve a la instrucción While. Si la condición sigue siendo verdadera, el bucle se ejecuta de nuevo.

Contrariamente a la instrucción Do...Loop, no se puede cancelar un bucle While...Wend mediante Exit. Nunca salga de un bucle While...Wend con GoTo, porque podría producirse un error de tiempo de ejecución.

Do...Loop es más flexible que While...Wend.

## Sintaxis:

    While Condición [Instrucción] Wend

## Ejemplo:

      Sub EjemploWhileWend
      Dim sTexto As String
      Dim iEjec As Integer
          sText ="Este es un texto corto"
          iEjec = 1
          While iRun < Len(sText)
              If Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )
              iRun = iRun + 1
          Wend
          MsgBox sTexto,0,"Texto codificado"
      End Sub