RemoveChars

From scripting
Jump to: navigation, search
Function RemoveChars(InputStr As String, ArrayOfChars As Variant) As String
Dim tempStr As String
tempStr = InputStr
For X = 0 To UBound(ArrayOfChars)
    tempStr = Replace(tempStr, ArrayOfChars(X), "")
Next X
RemoveChars = tempStr
End Function