Private Declare Function IsCharAlphaNumeric Lib  "user32"  Alias  "IsCharAlphaNumericA"  (ByVal cchar As Byte) As Long
 
Function RemoveGarbage(ByVal vstrIn As String)
    Dim i As Long
    Dim strChar As String
    Dim strOut As String
    For i =  1  To Len(vstrIn)
        strChar = Mid$(vstrIn, i,  1 )
        If IsCharAlphaNumeric(Asc(strChar)) =  1  Or strChar =  " "  Then strOut = strOut & strChar
    Next
    RemoveGarbage = Trim$(strOut)
End Function

Function RemoveGarbage(ByVal vstrIn As String)
    Dim i As Long
    Dim strChar As String
    Dim strOut As String
    For i =  1  To Len(vstrIn)
        strChar = Mid$(vstrIn, i,  1 )
        If strChar Like  "[!@#&]"  Then strOut = strOut & strChar
    Next
    RemoveGarbage = Trim$(strOut)
End Function