CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to Extract only non-numeric Strings from a given string
Public Function ExtractOnlyStrings(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 Not IsNumeric(K) Then
            strText = strText & K
        End If
    Next
    ExtractOnlyStrings = strText
End Function
'Call this function as:
'Debug.Print ExtractOnlyStrings("test849tkk494")