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.