Textbox Prüfen auf Zahlenwert von 0 - 4

Hallo Zusammen,
ich hoffe auf eure Hilfe.
Irgendwie stehe ich gerade auf dem Schlauch.
Ich habe in einem Formular ein Feld mit der Bezeichnung C1.
In diesem möchte ich per Button überprüfen ob ein Werte von 0 bis 4 eingegeben wurde.

Private Sub CommandButton6_Click()
If CInt(C1.Value) < 0 And CInt(C1.Value) > 4 Then
MsgBox "Die eingegebenen Daten in Block A sind nicht korrekt!", vbCritical, Title:="Please  _
check your input"
Else
MsgBox "Jackpot - alles i.O.", vbOKOnly, Title:="Lutz Hoffmann gratuliert"
End If
End Sub