La funcion que se utiliza para saber si una variable es numerica o no es "IsNumeric(variable)"
Este es un ejemplo sencillo para que tengas una idea de como se utiliza
Private Sub Text1_Change()
If IsNumeric(Text1) = False Then
MsgBox "Text1 contiene por lo menos 1 letra"
End If
End Sub
PD: Deja de copiar los foros