CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to Extract only numbers from a given string
Public Function ExtractOnlyNumbers(ByVal Str As String) As String
    Dim I As Long, J As Long, K As String
    Dim strText As String
    For I = 1 To Len(Str)
        K = Mid$(Str, I, 1)
        If IsNumeric(K) Then
            strText = strText & K
        End If
    Next
    ExtractOnlyNumbers = strText
End Function
'Call this function as:
'Debug.Print ExtractOnlyNumbers("test849tkk494")