Esto te puede ayudar:
Private Function extraeNumeros(ByVal strCadena As String)
Dim strLimpio, strLetra As String
For q = 1 To Len(strCadena)
strLetra = Mid(strCadena, q, 1)
If IsNumeric(strLetra) Then
strLimpio = strLimpio + strLetra
End If
Next
extraeNumeros = strLimpio
End Function
'------------------------------------------------------------------------------
Private Sub cmdValida_Click()
MsgBox extraeNumeros(Me.Text1.Text)
End Sub
Alli hay una funcion, y como usarlo.
Suerte!