Вы можете использовать регулярное выражение и затем выполнить следующее. Вам нужно соответствующим образом изменить регулярное выражение.
Const PATTERN = "\W"
Dim objRegEx
Dim strReplacedString : strReplacedString = ""
Set objRegEx= New RegExp
objRegEx.Pattern = PATTERN
objRegEx.IgnoreCase = True
objRegEx.Global = True
strReplacedString = objRegEx.Replace(strToProcess,"")
Set objRegEx = Nothing