ReplaceChar (2)

Function ReplaceCharacter(TextIn, _
Optional ByVal SearchStr As String = "'", _
Optional ByVal Replacement As String = "''", _
Optional ByVal CompMode As Long = 0)

Dim WorkText As String, Pointer As Long
If IsNull(TextIn) Then
ReplaceCharacter = Null
Else
WorkText = TextIn
Pointer = InStr(1, WorkText, SearchStr, vbTextCompare)
Do While Pointer > 0
WorkText = Left(WorkText, Pointer - 1) & Replacement & _
Mid(WorkText, Pointer + Len(SearchStr))
Pointer = InStr(Pointer + Len(Replacement), _
WorkText, SearchStr, CompMode)
Loop
ReplaceCharacter = WorkText
End If
DoEvents
End Function