Petit problème procédure

Bonjour à tous^^,

Voila j'ai un problème qui me prend un peu la tête. J'ai crée une zone de texte dans le userform qui s'appelle "temps de travail"...
et donc j'ai mis quelques restrictions pour que l'utilisateur ne puisse pas faire n'importe quoi...
donc il ne faut pas que ce soit du texte et que ce temps de travail soit compris entre 5 et 120...et c'est là où j'ai un problème car quand je tape "1" un message d'erreur apparaît directement donc si on veut taper "110" qui est bien compris entre 5 et 120 on a directement un message d'erreur au premier chiffre...
Il faudrait que ça laisse le temps à l'utilisateur de taper le nombre qu'il veut et que ça contrôle aprés si c'est bien compris entre 5 et 120

Voila la procédure...

If temps_travail <> "" Then
If Not IsNumeric(temps_travail) Then
rep = MsgBox("merci de saisir du numérique", vbOKOnly, "oups")
temps_travail = ""
ElseIf Val(temps_travail) < 5 Then
rep = MsgBox("le temps de travail ne peut être inférieur à 5; recommencez", vbOKOnly, "oups")
temps_travail = ""
ElseIf Val(temps_travail) > 120 Then
rep = MsgBox("le temps de travail ne peut être supérieur à 120; recommencez", vbOKOnly, "oups")
temps_travail = ""
End If
End If
End Sub


Merci pour votre aide