Visual Basic - Que pasa

Que esta pasnado, desde hace como 30 minuos trator de hacer colocar en el foro una duda pero no he podido... que esta pasando con la pagina ?

como hago para que de una cadena de texto solo me agarre los numeros?!
ejemplo:
apl995lapao621laso23

y me devuelva
99562123

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!

Dim inC as Integer, stCadena as String, stNuevaCadena as String
Dim stCaracter as String

stNuevaCadena = ""
For inC = 1 to Len( stCadena )
stCaracter = Mid( stCadena, inC, 1)
If Asc( stCaracter ) >= 48 and Asc( stCaracter ) <= 57 then stNuevaCadena = stNuevaCadena + stCaracter
Next
' En la variable stNuevaCadena quedará lo que quieres

Gracias me sirvio a la perfecion