Function ChopIt(pStr As String, ParamArray VarMyVals() As Variant) As String
'*******************************************
'Name: ChopIt (Function)
'Purpose: Remove a list of unwanted
' characters from a string
'Inputs: From debug window:
' '? chopit("(626) 123 5555", ")","(")
'Output: 626 123 5555
'*******************************************
Dim strHold As String
Dim i As Integer, n As Integer
strHold = Trim(pStr)
'check for entry
If UBound(VarMyVals) < 0 Then Exit Function
For n = 0 To UBound(VarMyVals())
Do While InStr(strHold, VarMyVals(n)) > 0
i = InStr(strHold, VarMyVals(n))
strHold = Left(strHold, i - 1) & Mid(strHold, i + 1)
Loop
Next n
ChopIt = Trim(strHold)
End Function