[eitch100]

So funzt es (hier mit nem CommandButton)... ohne Randomize ist der erste Zufall immer 71 und ohne 'Exit Sub' wird's ne Endlosschleife...

Private Sub CommandButton1_Click()
Dim i As Integer
Randomize
i = Int((100 - 0 + 1) * Rnd + 0)
[A1] = i 'Nur als Test gedacht, um i zu wissen
Do
a = InputBox("Bitte raten.")

If i > a Then
MsgBox "Grösser"
End If

If i < a Then
MsgBox "Kleiner"
End If

If i = a Then
MsgBox "Gewonnen"
Exit Sub 'Damit es keine Endlosschleife wird
End If

Loop
End Sub

Und hier dasselbe quasi mit Versuchsauswertung...

Private Sub CommandButton1_Click()
Dim i As Integer
Dim n
n = 1
[A:A].ClearContents
Randomize
i = Int((100 - 0 + 1) * Rnd + 0)

Do
a = InputBox("Bitte raten.")

If i > a Then
MsgBox "Grösser"
Cells(n, 1).Value = "Versuch " & n & " war " & a & ", die Lösung ist größer."
End If

If i < a Then
MsgBox "Kleiner"
Cells(n, 1).Value = "Versuch " & n & " war " & a & ", die Lösung ist kleiner."
End If

If i = a Then
MsgBox "Gewonnen"
Cells(n, 1).Value = a & " ist richtig! Das waren " & n & " Versuche."
Exit Sub 'Damit es keine Endlosschleife wird
End If

n = n + 1

Loop
End Sub