voilà, je cherche à tester si la valeur entrée dans la Textbox est numérique ou non !! mais mon code ne marche pas !! (normal)

un coup de pouce serait sympa !!

Merci beaucoup !!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub TB_tel_1_Change()
    Dim testVar As Object
    Dim numericCheck As Boolean
    testVar = TB_tel_1.Text
    numericCheck = IsNumeric(testVar)
    While (numericCheck = False)
        MsgBox ("entrer un nombre")
        TB_tel_1.Text = ""
    Wend
End Sub