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