dim _Anzahl as Integer
dim _nummer as Integer
Sub Main
_Anzahl = Inputbox("Wie viele Äpfel hat Peter")
Anzahl
End Sub

Sub Anzahl
while _Anzahl < 3 '3 = Richtige lösung
_Anzahl = Inputbox ("Versuche es erneut")
WEnd
MsgBox("Richtig")

End Sub