While...Wend İfadesi

Bir program While komutu ile karşılaştığında, durumu kontrol eder. Eğer durum Yanlışsa, program doğrudan Wend komutundan itibaren devam eder. Eğer durum Doğru ise, program Wend bulana kadar çalışır ve Whilekomutuna tekrar döner. Eğer komut hala Doğru ise, döngü tekrar çalıştırılır.

Do...Loop ifadesinin tersine, While...Wend döngüsünü Exit ile iptal edemezsiniz. Hiçbir zaman While...Wend döngüsünden GoTo ile çıkmayın, çünkü bu çalışma zamanı hatasına sebep olur.

Bir Do...Loop döngüsü While...Wend döngüsünden daha esnektir.

Sözdizimi:

While Durum [Statement] Wend

Örnek:

Sub ExampleWhileWend

Dim stext As String

Dim iRun As Integer

    sText ="Bu kısa bir metindir"

    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,"Kodlanmış metin"

End Sub