Pernyataan While...Wend

Ketika sebuah program menemukan pernyataan While, ia menguji kondisi tersebut. Jika kondisinya salah, program akan langsung mengikuti pernyataan Wend. Jika kondisinya Benar, loop dijalankan sampai program menemukan Wend dan kemudian melompat kembali ke pernyataan While. Jika kondisi masih Benar, loop dijalankan lagi.

Berbeda dengan pernyataan Do...Loop, Anda tidak dapat membatalkan pernyataan While...Wend perulangan dengan Exit. Jangan pernah keluar dari While...Wend perulangan menggunakan GoTo , karena ini dapat menyebabkan kesalahan run-time.

A Do...Loop lebih fleksibel daripada While...Wend.

Sintaksis:

Kondisi While [Statement] Wend

Contoh:

Sub ExampleWhileWend

Dim stext As String

Dim iRun As Integer

    sText ="Ini adalah teks pendek"

    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,"Teks dienkode"

End Sub