On Error GoTo error
Dim Zahl As Single
Dim raten As Single
sys:
Zahl = InputBox("Geben Sie eine Zahl ein:", "Zahleingabe")
MsgBox "Nun kann sich Ihr Partner wieder umdrehen!", vbInformation
lol:
raten = InputBox("Eraten Sie die Zahl Ihres Spielpartners! Geben Sie eine ein:")
If raten = Zahl Then
MsgBox "Sie haben die Zahl eraten!", vbInformation, "Eraten"
If MsgBox("Möchten Sie erneut spielen?", vbQuestion + vbYesNo, "Frage") = vbNo _
  Then
End
Else
MsgBox "Nun darf Partner 2 eine Zahl eingeben!", vbInformation, "Zahleneingabe"
GoTo sys
End If
End
Else
If raten < Zahl Then
MsgBox "Ihre Zahl ist zu klein!", vbInformation
GoTo lol
Else
MsgBox "Ihre Zahl ist zu groß!", vbInformation
GoTo lol
End If
End If
Exit Sub
error:
If MsgBox("Möchten Sie erneut spielen?", vbQuestion + vbYesNo, "Frage") = vbNo _
  Then
End
Else
MsgBox "Nun darf Partner 2 eine Zahl eingeben!", vbInformation, "Zahleneingabe"
GoTo sys
End If