Habe hier mal eben Schnell ein Programm geschrieben , das auch soweit läuft.

Brauche jetzt noch eine Zähler Schliefe die das ganze 6mal durchläuft.

Die Schleife soll 6 mal nach der Zahl fragen und dann abrechen.

Und ja ich weiß das mit dem goto und Unsauber

Poste hier mal meinen Code !

 Public Class Form1

    'Dim Zahl As Double

    'Dim MeineWahl As Double

    Dim ZufallsZahl As Double

    Dim MeineZahl As Double

    Dim HoechsteZahl As Double


    Dim zaehler As Double

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'Beenden Button

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Info Button

        AboutBox1.Show()

        Me.Hide()

    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'Start Button



        HoechsteZahl = InputBox("Bitte geben Sie hier die höchst: ") 'Eingabe HöchsteZahl

        ZufallsZahl = Int(Rnd() * HoechsteZahl + 1) ' Zufallszahl zwischen 1 und X


Eingabe:

        MeineZahl = InputBox("Gebe deine Zahl ein: ") 'Eingabe MeineZahl



        If ZufallsZahl = MeineZahl Then


            GoTo Ende ' Springt zum Punkt Ende vor

        Else

            MsgBox("Verloren nochmal bitte, deine falsche Zahl war die " & MeineZahl)

            GoTo Eingabe ' Springt zum Punkt Eingabe zurück


        End If


Ende:

        MsgBox("Gewonnen DeineZahl war die: " & MeineZahl)


        'MsgBox("Die Zufalls Zahl ist:    " & ZufallsZahl & vbCr & "Die Höchste Zahl ist: " & HoechsteZahl) '& vbCr & "Meine Zahl ist:           " & MeineZahl)


    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Eingabe:

MeineZahl = InputBox("Gebe deine Zahl ein: ") 'Eingabe MeineZahl

If ZufallsZahl = MeineZahl Then

GoTo Ende ' Springt zum Punkt Ende vor

Else

MsgBox("Verloren nochmal bitte, deine falsche Zahl war die " & MeineZahl)

GoTo Eingabe ' Springt zum Punkt Eingabe zurück

End If

Ende:

        For i As Integer = 0 To 5

            MeineZahl = InputBox("Gebe deine Zahl ein: ")

            If (ZufallsZahl = MeineZahl) Then

                Exit For

            Else

                MsgBox("...")

            End If

        Next

Vielen Dank

Jetzt habe ich noch nen Problem

und zwar habe ich ja bei der Eingabe mit einer Inputbox gearbeitet.

Dort befinden sich ja zwei Buttons "OK" und "Abbrechen"

wie bekomme ich jetzt hin das er beim drücken von "Abbrechen" die Inputbox schließt ohne das eine Fehlermeldung kommt.

InputBox

DefaultValue-Parameter.