I made some functions to deal with this:
Public Function RmvPunct(InputStr As Variant, Optional StopAtComma As Variant) As Variant
'....................................................................
' This simple function removes punctuation, and other non-alphanumeric
' non-numeric...