Remove Commas and Spaces

Function RemoveThings(sParam As String) As String

Dim Result As String

Result = sParam

Do

Result = Replace(Result, " ", "-")

Result = Replace(Result, ",", "-")

Result = Replace(Result, "-", "")

Loop Until InStr(Result, "--") = 0

RemoveThings = Result

End Function