Dim j As Integer
Dim ValueStr As String

j = InStr(ValueStr, "'")
If j > 0 Then
ValueStr = Mid(ValueStr, 1, j - 1) + Mid(ValueStr, j + 1, Len(ValueStr))
End If