Hola. Proba el siguiente código
Código:
Dim Num As String
Dim Caracter As String
Dim X As Byte
X = 1
Num = ""
Do While X <= Len(Text1.Text)
Caracter = Mid(Text1.Text, X, 1)
If IsNumeric(Caracter) = True Then
Num = Num & Caracter
End If
X = X + 1
Loop
Text1.Text = Num
Este código te sirve para sacar todos los caracteres que no sean numericos.
Saludos. Lucas