While...Wend-udtryk

Når et program møder en While-erklæring, prøver det betingelsen. Hvis betingelsen er False(falsk), fortsætter programmet direkte med den følgende Wend-erklæring. Hvis betingelsen er True(sand), udføres programmet, indtil Wend og hopper så tilbage til While-erklæring. Hvis betingelsen stadig er True(sand), udføres sløjfen igen.

I modsætning til erklæringen Do...Loop, kan du ikke annulllere en While...Wend sløjfe med Exit. Forlad aldrig en While...Wend sløjfe med GoTo, eftersom dette kan udløse en kørselsfejl.

En Do...Loop er mere fleksibel end en While...Wend.

Syntaksen

    While Condition [statements] Wend

  Sub ExampleWhileWend
      Dim stext As String
      Dim iRun As Integer
      sText ="Dette er en kort tekst"
      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,"Tekst indkodet"
  End Sub