Module Module1
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Sub main()
Lbl1:
        Console.WriteLine("Es werden 100 Zufallszahlen zwischen 1 und 10" & _
          "ausgegeben.")
        Console.WriteLine(" ")
        For Ctr = 1 To 100
            ' Zufallszahlengenerator initialisieren
            Randomize(-Timer)
            ' aus 10 Zahlen bei jedem Click eine zufällige Zahl ausgeben
            Console.Write(Int(10 * Rnd()) + 1 & " ; ")
            'Kleine Pause einfügen
            Sleep(100) '<-- kann beliebig verlängert, verkürzt oder weggelassen 
            ' werden
        Next
Lbl2:
        Console.WriteLine(" ")
        Console.WriteLine("Programm beenden (e) oder nochmal (n)?")
        Dim Eingabe = Console.ReadLine()
        If Eingabe = "e" Then
            Exit Sub
        ElseIf Eingabe = "n" Then
            GoTo Lbl1
        Else
            Console.WriteLine("Falsche Eingabe!")
            GoTo Lbl2
        End If
    End Sub
End Module