CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to Strip Numeric from a string
Option Explicit
 
Public Function StripNumeric(ByVal strExpression As String) As String
    Dim iLength As Integer, I As Integer
    Dim sResult As String, sChar As String
    iLength = Len(strExpression)
    For I = 1 To iLength
        sChar = Mid$(strExpression, I, 1)
        If Not sChar Like "[0-9]" Then
            sResult = sResult & sChar
        End If
    Next I
    StripNumeric = sResult
End Function