Vérifier format d'une entrée

Bonjour à tous
J'ai une peu de difficulté à comprendre la fonction "like" dans VBA.
J'ai créé un inputBox où l'utilisateur doit entrer une année (donc 4 chiffres consécutifs) et je veux qu'un msgBox apparaisse si le format entré n'est pas le bon ou si rien n'est écrit. Sauf que peu importe l'entrée, le message d'erreur s'affiche...

Voici mon code, merci d'avance !

Private Sub CB_ok_Click()

'Si la valeur entrée ne correspond pas à une année
If Not actualYear Like "####" Then
MsgBox "Entrez une année valide" & Chr(10) & Chr(10) & "Enter a valid year"
Exit Sub
Else