VB DemoGoTo

 Module DemoGoTo

    'Buka DemoGoTo.vbproj

    Sub Main()

        Dim number As Integer, myString As String

        number = InputBox("Masuk nomor (1/2)")

        ' Evaluasi nomor dan loncat ke label yang terkait

        If number = 1 Then GoTo Line1 Else GoTo Line2

Line1:

        myString = "Nomor = 1"

        GoTo LastLine    ' Loncat ke label LastLine

Line2:

        myString = "Nomor = 2 (atau lain-lain)"

LastLine:

        Debug.Print(myString)

    End Sub

End Module