Dim RandomNumber As Integer = 0
Dim TrialNumber As Integer = 0
Const MaxTrials As Integer = 10
Dim rndm As New Random
 
Dim WithEvents btnRandom As New Button _
With {.Parent = Me, .Left = 40, .Top = 100}
Dim txtInput As New TextBox _
With {.Parent = Me, .Left = btnRandom.left, .Top = btnRandom.Top - 40}
 
Private Sub btnRandom_Click(ByVal sender As System.Object, _
                 ByVal e As System.EventArgs) Handles btnRandom.Click
 
   If RandomNumber = 0 Then 
      RandomNumber = rndm.Next(1, 1001) : TrialNumber = 0
   End If
 
   Dim InputNumber As Integer
   If TrialNumber >= MaxTrials Then
      MsgBox("Sie sind gescheitert.") : RandomNumber = 0
   ElseIf Not Integer.TryParse(txtInput.Text, InputNumber) AndAlso _
      (InputNumber < 1 Or InputNumber > 1000) Then
      MsgBox("Geben Sie eine Zahl zwischen 1 und 1000 ein!")
   ElseIf RandomNumber > InputNumber Then
      MsgBox("Versuch: " & CStr(TrialNumber) & _
          "   Ihre Zahl ist zu klein. Raten sie noch mal")
      TrialNumber += 1
   ElseIf RandomNumber < InputNumber Then
      MsgBox("Versuch: " & CStr(TrialNumber) & _
          "   Ihre Zahl ist zu groß. Raten sie noch mal")
      TrialNumber += 1
   Else
      MsgBox("Ihre Zahl ist korrekt.") : RandomNumber = 0
   End If
End Sub