User Defined Function in Excel to Extract Special Characters

!.....Below Code to Create User Defined Functions in Excel....!

Use:- To extract special characters

Function EXTRACT_SPECIAL_CHAR(str) As Variant Dim i As Integer

Dim spl, splchar As Variant
spl = ""
For i = 1 To Len(str)
splchar = Mid(str, i, 1)
If IsNumeric(splchar) = True Or Asc(UCase(splchar)) > 64 And Asc(UCase(splchar)) < 91 Or splchar = " " Then
Else
spl = spl & Mid(str, i, 1)
End If
Next
EXTRACT_SPECIAL_CHAR = spl

End Function

_________________________________________
Example:-
=EXTRACT_SPECIAL_CHAR("^&&5**111CDFG8899B$$$$$_~%^*")



Result------------->  ^&&**$$$$$_~%^*