Gestion d'erreur

Bonsoir tout le monde, mon problème est tout simple, j'ai un text box dans le quel l'utilisateur rentre ce qu'il veut

je voudrais forcer l'utilisateur à ne rentrer que des chiffres, j'ai déja changer le data format du textbox, mais sa ne sufit pas

pour faire la vérification je fais ceci :

text1.text = cdbl(text1.text)

j'obtien évidement une erreur quand l'utilisateur rentre des lettres

en attendant de savoir gerrer un numéro d'erreur précisement j'utilise : "on error goto lettre" et derrière je met un Msgbox ou j'informe l'utilisateur qu'il à rentrer des lettres, pas efficasse si on risque d'autre erreur que l'erreur numéro 13

je voudrais savoir comment gérrer un numéro d'erreur précisement, dans mon cas suite à cette ligne de code :

text1.text = cdbl(text1.text)

si quelqu'un peu m'informer sa me serais utile, merci et bonne soiré

[] Ce qui va sans dire. va mieux en le disant.

 Bonjour a tous ,

Voici un petit code simple:
 -autorise que les nombres ou le textbox vide
 -Validation apres perte du focus.

------------------------------------------------------
Private Sub Text1_LostFocus()

 Dim Nombre
'supprime les espaces
 Text1.Text = Trim(Text1.Text)
 
 Nombre = Trim(Text1.Text)
'Message si pas un nombre
 If IsNumeric(Nombre) = False And Len(Nombre) <> 0 Then
      MsgBox "Entrez une valeur numérique !", vbCritical, "Erreur de saisie"
      Text1.Text = ""
      Exit Sub
 End If
 
End Sub
---------------------------------------------------------

A adapter
A++