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