Public Class Form1
 
    Dim Zufallszahl As Integer
    Dim Versuchsanzahl As Integer = 1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Randomize()
        Zufallszahl = CInt(Rnd() * 1000)
        MsgBox(Zufallszahl) 'nur für die Testphase
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Select Case Zufallszahl
 
            Case Is < TextBox1.Text 
                MsgBox("Diese Zahl ist zu groß. Bisherige Anzahl der Versuche:" & _
                  "" & Versuchsanzahl)
                Versuchsanzahl = Versuchsanzahl + 1
            Case Is > TextBox1.Text 
                MsgBox("Diese Zahl ist zu klein. Bisherige Anzahl der Versuche:" & _
                  "" & Versuchsanzahl)
                Versuchsanzahl = Versuchsanzahl + 1 'MERKEN! Hier hochsetzen, 
                ' bevor der Case abgeschlossen ist... 
            Case Else
                MsgBox("Richtiiig! :)")
                TextBox1.Clear()
 
                Randomize()
                Zufallszahl = CInt(Rnd() * 1000)
                MsgBox(Zufallszahl)
                MsgBox("Sie können nun ein neues Spiel beginnen")
                TextBox1.Focus()
 
        End Select
 
    End Sub
 
End Class