Visual Basic - Quitar barras y demas cadenas de un string

Hola a todos,
alguien sabe de alguna función que pasandole un string del tipo 25/02/99, te devuelva 250299.
Si se usa Val te devuelve 25, por tanto no me vale.
Es decir, una función que te deje los valores numéricos y te quite los guiones, barras y demas.

Gracias a todos.

No he encontrado ninguna función que haga esto, asi que si alguien la conoce que lo diga. De todos modos, aqui va mi aportación.

"Si la montaña no va a Ala, Ala ira a la montaña"

Public Function SoloNumerosEnCadena(Cadena As String) As String
Dim Longitud As Long
Dim Posicion As Long
Dim CadenaDepurada As String
Dim Caracter As String

Longitud = Len(Cadena)
CadenaDepurada = ""

If Longitud >= 1 Then
For Posicion = 1 To Longitud
Caracter = Mid(Cadena, Posicion, 1)
If IsNumeric(Caracter) Then
CadenaDepurada = CadenaDepurada & Caracter
End If
Next
End If

SoloNumerosEnCadena = CadenaDepurada
End Function