Rückgabewert einer InputBox

Hallo Forum,
ich möchte über eine InputBox vom Nutzer eine Integer-Zahl von 1 bis 5 abfragen. Wird ein anderer Wert eingegeben, soll die Abfrage wiederholt werden. Hierfür nutze ich folgenden Code (die Dim's habe ich weggelassen):

Eingabe = 0
Do until Eingabe = 1
Rückgabe = InputBox("Wieviel Level sollen in der UfAB-Tabelle angezeigt werden (1-5)?", "Rückfrage")
If Not IsError(CInt(Rückgabe)) Then
If CInt(Rückgabe) < 6 And CInt(Rückgabe) > 0 Then
'korrekte Eingabe
Eingabe = 1
Else
MsgBox ("Bitte nur Ganzzahlen von 1 bis 5 eingeben.")
End If
Else
MsgBox ("Bitte nur Ganzzahlen von 1 bis 5 eingeben.")
End If
Loop

Mit Hilfe der Variablen "Eingabe" will ich testen, ob ein korrekter Wert eingegeben wurde, und die Schleife soll solange durchlaufen werden, bis dies geschehen ist. Da die InputBox als Rückgabe einen String liefert, prüfe ich zuerst mit IsError, ob der String einen Integer-Wert enthält. Aber genau bei dieser Prüfung bricht das Makro ab und ich lande im Catch-Zweig der Exceptio-Behandlung.

Was mache ich hier verkehrt? Gibt es eventuell eine bessere Möglichkeit, die Abfrage zu realisieren?

Vielen Dank im voraus,
M. Born

    Public Function IsInteger(ByVal value As String) As Boolean
        If String.IsNullOrEmpty(value) Then
            Return False
        Else
            Return Integer.TryParse(value, Nothing)
        End If
    End Function

Eingabe = 0
Do until Eingabe = 1
	Rückgabe = InputBox("Wieviel Level sollen in der UfAB-Tabelle angezeigt werden (1-5)?", "Rückfrage")  
		If Not IsError(CInt(Rückgabe)) Then
			If CInt(Rückgabe) < 6 And CInt(Rückgabe) > 0 Then
				'korrekte Eingabe  
				Eingabe = 1
				Else
				MsgBox ("Bitte nur Ganzzahlen von 1 bis 5 eingeben.")  
			End If
		Else
			MsgBox ("Bitte nur Ganzzahlen von 1 bis 5 eingeben.")  
		End If
	Loop

If (CInt(Rückgabe) < 6) And (CInt(Rückgabe) > 0) Then