Dim getal
Dim geraden
Dim aantalkeren
Randomize
getal=int(rnd*100)+1
If Msgbox("Ik heb een getal in mijn hoofd. Wil je proberen te raden?",vbYesNo) = vbYes Then
Do
aantalkeren = aantalkeren + 1
Do
geraden=InputBox("Geef een getal tussen 1 en 100 (-1 om te stoppen)")
Loop Until IsNumeric(getal)
If cint(geraden) > cint(getal) Then MsgBox "Lager"
If cint(geraden) < cint(getal) Then MsgBox "Hoger"
If cint(geraden) = cint(getal) Then
	MsgBox "Proficiat. Je hebt het geraden in " & aantalkeren & " keer."	
	Exit Do
End If
Loop Until geraden = "-1"
End If