usa isnumeric y lo demas que is numeric no saca como por ejemplo la "," el "." o el "+" la sacas asi
Código:
Private Sub Text1_Change()
Text1.Text = Replace(Text1.Text, ",", "")
Text1.Text = Replace(Text1.Text, ".", "")
Text1.Text = Replace(Text1.Text, "+", "")
End Sub