@ExcelFox

Thanks for sharing.
I couldn't resist exploring; resulting in:

Code:
Enum gt_lost
    Text = 0
    Numeric = 1
    Specialcharacters = 2
End Enum

Function RmChr(ByVal Str_chain As String, y As gt_lost) As String
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = Array("[A-Za-z]", "\d", "[\~+\!+\@+\#+\$+\%+\^+\&+\*+\(+\)+\'+\-+\=+\{+\}+\[+\]+\:+\""+\++\;+\'+\<+\>+\?+\,+\.+\/]")(y)
        RmChr = .Replace(Str_chain, "")
    End With
End Function