Option Explicit
Public Sub test()
Const START_VALUE As Long = 5
Const END_VALUE As Long = 15
Dim lngIndex As Long
Dim vntInput As Variant
vntInput = Application.InputBox(Prompt:="Herr Ober, bitte Zahlen...;-)", _
Title:="Eingabe", Type:=1)
If VarType(vntInput) = vbBoolean And vntInput = False Then Exit Sub
If vntInput >= START_VALUE And vntInput <= END_VALUE Then
Call MsgBox(Prompt:="Bin drin...;-)", Buttons:=vbExclamation)
Else
Call MsgBox(Prompt:="Bin draussen...:-(", Buttons:=vbExclamation)
End If
For lngIndex = START_VALUE To END_VALUE
Debug.Print lngIndex
Next
End Sub