Sub Main()
 
        Dim r As New Random(Environment.TickCount)
        Dim Lotto(5) As Integer
        Dim i As Integer
        Dim Tip As Integer
        Dim Anzahl_Tips As Integer
        Dim Ausgabe As String = ""
        Dim Zufallszahl As Integer
        Dim Liste As New SortedList
 
        Console.Write("Wieviele Tips wollen sie erzeugen: ")
        i = Console.ReadLine
        Console.WriteLine()
 
        For Anzahl_Tips = 0 To i - 1
            Ausgabe = Ausgabe & Anzahl_Tips + 1 & " Tip: "
            For Tip = 0 To 5
                Do
                    'Zufallszahl im bereich von 1-45
                    Zufallszahl = r.Next(1, 46)
                    If Not List.ContainsValue(Zufallszahl) Then
                        List.Add(Zufallszahl, Zufallszahl)
                        Exit Do
                    End If
                Loop
                Lotto(Tip) = Zufallszahl
            Next Tip
            Array.Sort(Lotto)
            For Tip = 0 To 5
                Ausgabe &= (Lotto(Tip)) & "  "
            Next Tip
            Ausgabe &= vbCrLf
        Next Anzahl_Tips
 
        Console.WriteLine(Ausgabe)
        Console.ReadLine()

Console.Write("Wieviele Tips wollen sie erzeugen: ")