Visual Basic - Eliminar caracteres

Bueno el problema que tengo es con la captura de un indicador de una bascula, el inidicador me tira datos que yo no quiero que se almacenen en la base de datos, la cuestion es la siguiente, en el texbox donde reconjo el valor de entrada por el puerto, me da unos caracteres que no quiero como puedo hacer mediante alguna funcion o un codigo que me ayude a eliminar solo las letras por ejemplo me tira AS 12056 kg 10/05/2005 no quiero que me aparesca ni AS ni kg 10/05/2005, solo quiero que me aparesca el 12056, como puedo hacer. si alguin me puede ayuda se lo agradecere infinitamente.,
Gracias
F: JCML

Creo que debe ser algo asi

Function Aux(Texto)
Dim N As Integer, SoloNumeros As String
SoloNumeros = ""
For N = 1 To Len(Texto)
If Mid(Texto, N, 1) < 9 And Mid(Texto, N, 1) >= 0 Then
SoloNumeros = SoloNumeros + Mid(Texto, N, 1)
End If
Next
Aux = SoloNumeros
End Function