problème msgBox

Bonsoir,
Dans une userform j'ai besoin de recupérer plusieurs valeurs. Pour vérifier si ces valeurs conviennent (par ex. si c'est bien un nombre) je fais un test et je met pour afficher le message d'erreur On Error Goto pasunnombre. 
Exit Sub()
pasunnombre:
Msgbox" Entrez un nombre"
nombrede barre:
Msgbox"10 Barres maxi"
End Sub()

Mon problème est que lorsque je n'ai pas un nombre cela m'affiche les deux messages d'erreur.
Est-ce que vous auriez une astuce pas que ca m'affiche que le premier message.
Merci d'avance

Si tu as déjà une erreur dé&celée, pourquoi donc continuer ?

Msgbox" Entrez un nombre"
Exit Sub, donc...

chimi-i-think
utilise
msgbox "entrer un nombre"
simplement
et ensuite fait
exit sub ();

Salut,

Avant de faire ton on error, pourquoi ne pas forcé la saisie qu'avec des numériques ?

Regarde du côté de : If Not IsNumeric (Tontextbox.Text) then exit sub
                                    

A+
Exploreur

 Linux a un noyau, Windows un pépin