Public Function ReplaceChars(ByVal Expression As String, Chars As String, ReplacementChar As String)
If Expression <> vbNullString And Chars <> vbNullString Then
Dim i As Integer
For i = 1 To Len(Chars)
Expression = Replace$(Expression, Mid$(Chars, i, 1), ReplacementChar)
Next i
End If
ReplaceChars = Expression
End Function