When a program encounters a While statement, it tests the condition. If the condition is False, the program continues directly following the Wend statement. If the condition is True, the loop is executed until the program finds Wend and then jumps back to the While statement. If the condition is still True, the loop is executed again.
A Do...Loop is more flexible than a While...Wend.
While Condition [statements] Wend
Sub ExampleWhileWend Dim stext As String Dim iRun As Integer sText ="This is a short text" iRun = 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 sText,0,"Texto codificado" End Sub