Visual Basic - eliminar letras de un texto

Hola:

tengo un grave problema. Resulta que yo tengo un campo de texto. Y
lógicamente en ese campo aparecen todo tipo de carácteres. Y a veces, tengo
números + letras. Lo que yo quiero saber, es cómo puedo eliminar las letras
y quedarme sólo con los números. Ejemplo:

Antes --> Después

35rd --> 35
48 ------> 48
5Fa ----> 5

Prueba con esto:
Private Sub Command1_Click()
Text1.Text = flEsNumero(Text1.Text)
Text1.SetFocus
End Sub

Public Function flEsNumero(valor As String) As String
Dim I As Long
Dim vlPosicion As String

flEsNumero = ""
For I = 1 To Len(valor)
vlPosicion = Mid(valor, I, 1)
If Asc(vlPosicion) >= 48 And Asc(vlPosicion) <= 57 Then
flEsNumero = flEsNumero + vlPosicion
End If
Next

End Function