VBA: Remove list of characters from a string using Regex

RemoveInvalidCharacters.bas

Function RemoveInvalidCharacters(cleanMe As String) As String
    Dim objRegex As Object
    Set objRegex = CreateObject("vbscript.regexp")
    With objRegex
        .Global = True
        .Pattern = "[\<\>\*\'\,\$\#\@\.\""\?\!\/\[\]\:\|\\\/\?|]"
        RemoveInvalidCharacters = .Replace(cleanMe, "")
    End With
End Function