User defined function in excel to extract numbers

!..........Use:- To extract numbers--------!

Function EXTRACT_NUMBERS(x) As Variant

Dim c As Variant
c = ""
For i = 1 To Len(Replace(x, " ", ""))
If IsNumeric(Mid(x, i, 1)) = True Then
c = c & Mid(x, i, 1)
End If
Next
EXTRACT_NUMBERS = c

End Function

_________________________________________
Example:-
 =EXTRACT_NUMBERS ("^&&5**111CDFG8899B$$$$$_~%^*")
Result----------------------->51118899