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 |