While... Wend 사용

While...Wend 문은 BSL 사용에 익숙한 사용자를 위해 제공됩니다. 그러나 While...Wend는 유연성이 부족하므로 대신 Do...Loop를 사용하는 것이 좋습니다.

다음 예에서는 while wend 루프의 사용을 보여줍니다.

예 1:

Sub BasicWhileWend()
    Dim counter, myNum
            counter = 0
            myNum = 5
            While myNum > 0
                myNum = myNum - 1
                counter = counter + 1
            Wend
            'This loop made 5 repetitions
        End Sub