Módulo
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