While...Wend instrukzioa

Programa batek While instrukzio bat aurkitzen duenean, baldintza probatzen du. Baldintza False bada, programak aurrera jarraitzen du Wend instrukzioarekin. Baldintza True bada, begizta exekutatuko da programak Wend aurkitzen duen arte, eta ondoren While instrukziora egiten du jauzi. Baldintza oraindik ere True bada, begizta berriro exekutatuko da.

Do...Loop instrukzioan ez bezala, ezin da While...Wend begizta bat bertan behera utzi Exit erabilita. Ez irten inoiz While...Wend begizta batetik GoTo bidez, horrek exekuzio-garaiko akats bat eragin baitezake.

Do...Loop instrukzio bat While...Wend instrukzioa bat baino malguagoa da.

While Condition [statements] Wend

Sub ExampleWhileWend
    Dim stext As String
    Dim iRun As Integer
    sText ="Hau testu labur bat da"
    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,"Testu kodetua"
End Sub