CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to Strip Alphabets from a string
Option Explicit
 
Public Function StripAlpha(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 "[A-Za-z]" Then
            sResult = sResult & sChar
        End If
    Next I
    StripAlpha = sResult
End Function