Public Class Form1
    Private Sub Form_load() Handles MyBase.Load
        Randomize()
    End Sub
 
    Private Sub cmdPruefen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdPruefen.Click
        Dim zahlen As Integer
        Dim x As Single
        zahlen = Rnd() * 100 + 1
        lblErgebnis.Text = zahlen
        Do Until x = zahlen
            x = tboxZahl.Text
            'x = InputBox(x)
            If x > zahlen Then
                LblStatus.Text = "Zu hoch"
            ElseIf x < zahlen Then
                LblStatus.Text = "Zu tief"
            Else
                LblStatus.Text = "Richtig"
            End If
        Loop
    End Sub
End Class