CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to Remove unwanted characters from a string
'This code removes unwanted characters from a string.
Function PurgeString(OldStr As String) As String
    Dim NewStr As String
    Dim l As Long
    For l = 1 To Len(OldStr)
       If Asc(Mid(OldStr, l, 1)) > 31 Then
          NewStr = NewStr & Mid(OldStr, l, 1)
       End If
    Next
    PurgeString = NewStr
End Function