Thực hiện một dãy lệnh trong khi điều kiện là True.
While điều_kiện
[nhóm_lệnh]
Wend
Dim Counter
Counter = 0 ' Khởi tạo biến.
While Counter < 20 ' Test giá trị Counter.
Counter = Counter + 1 ' Tăng Counter.
Alert Counter
Wend 'Kết thúc lặp While khi Counter > 19.