get rid of a-z and A-Z

i am trying to do a little program where it gives you a request like 554884225 and you have to ask me for the code and the code is just that number divided like by 5 and it works perfectly but... if there is even a single letter i get an error. i need find out how to get rig of any text like a,b,c,d,e,f,g,h,i,j,k,l,m,etc i know i could do replace but that would take up allot of space i am trying to keep this short.

 

Here's what I wrote for ya. Send the string you want letters removed from to the function and it returns the number as a double variable so you won't get overflow errors caused by bigger numbers. Hope it's helpful.

Code:

Public Function StripLetters(Number As String) As Double
i = 0
While i < Len(Number)
i = i + 1
If Not (IsNumeric(Mid(Number, i, 1))) Then
Number = Mid(Number, 1, i - 1) + Mid(Number, i + 1)
i = i - 1
End If
Wend
StripLetters = Number
End Function

You can call it with something like either of these.

Code:

MsgBox (StripLetters(Text1.Text))

MsgBox (StripLetters("2432uahuaaA32Y2112I2RJ2IJI121S"))

 

Code:

Private Function Shizzle(ByVal strText As String) As Long
    Dim i As Long, strChar As String
    For i = 1 To Len(strText)
        strChar = Mid(strText, i, 1)
        Shizzle = Shizzle & IIf(UCase(strChar) Like "[A-Z]", "", strChar)
    Next i
End Function