VB DemoWhileWend3

 Module DemoWhileWend3

    'Buka DemoWhileWend3

    Sub Main()

        Dim status As Boolean, a As Integer

        status = True : a = 1

        While (status = True)

            Debug.Print(a & " " & vbNullChar)

            a = a + 1

            If a > 10 Then

                status = False

            End If

        End While

    End Sub

End Module