Probeer nu maar eens een tekst of zo in te geven en zie wat er gebeurt ;-)
Private Sub CommandButton1_Click()
getal = Application.InputBox(Prompt:="Geef getal:", Type:=1)
If getal = "" Then Exit Sub
If getal < 0 Or getal > 15 Then
MsgBox "Getal buiten range!"
Else
MsgBox "OK"
End If
End Sub
Er zijn namelijk 2 inputbox-methodes. Bij deze kan je definiëren welke input toegelaten is. Type:=1 laat enkel een getal toe...
Bart