VB DemoWhileWend2

 Module DemoWhileWend2

    'Buka DemoWhileWend2.vbproj

    Sub Main()

        Dim a As Integer, Jwb As Char

        a = 1 : Jwb = "Y"

        While (Jwb = "Y" Or Jwb = "y")

            Debug.Print("Loop ke- " & a)

            a = a + 1

            Jwb = InputBox("Ingin coba lagi (Y/N)")

        End While

    End Sub

End Module