Dim BadChars As String
Dim Text As String
Dim Matcher1 As Matcher
BadChars = "[.,+*;]" 'Add the unwanted characters here between the square brackets
Text = "Some, list + of words; some not wanted like * for example."
Matcher1 = Regex.Matcher(BadChars, Text)
Do While Matcher1.Find
buffer = Matcher1.Match
Text = Text.Replace(buffer, "")
Loop
Msgbox("Done: " & Text, "")