Uso de While... Wend

La sentencia While...Wend se proporciona en BSL para aquellos que están familiarizados con su uso. Sin embargo, debido a la falta de flexibilidad de While...Wend, se recomienda utilizar Do...Loop en su lugar.

En el siguiente ejemplo se muestra el uso del bucle While...Wend:

Ejemplo 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