Inputbox Eingabe prüfen

Sub test()
Dim Eingabe As String
Eingabe = ""
Do Until Eingabe  ""
Eingabe = InputBox("Bitte geben Sie etwas ein:", Eingabe)
If Eingabe  "" Then
If IsDate(Eingabe) Then
Range("A1") = Eingabe
Else
MsgBox ("Falsche Eingabe")
Eingabe = ""
End If
End If
Loop
Range("b2") = "Ende"
End Sub

Das Makro lässt bei der Eingabe nur das Datumformat zu, genau das möchte ich aber ändern:
Einmal darf die Eingabe nur Zeichen enthalten die für einen Dateinamen gültig ist.
Bei einer anderen Eingabe wäre es von Vorteil wenn die eingegebene Zahl nicht grösser ist als 2000.
Wie kann ich dass mit einfachen Mitteln sicherstellen?
Wäre schön wenn mir jemand helfen könnte.
Gruss Roger