fctApostrofo

Public Function Apos2(strSQL As String) As String
Dim F As Long, N As Long, Q As Long
Dim O As String, P As String, A As String
Q = -1
For F = 1 To Len(strSQL)
P = Mid(strSQL, F, 1)
If P = "'" Or P = """" Then
If Q > 0 Then
O = O + "'" + A
A = ""
End If
Q = Q + 1
ElseIf P = "," Then
O = O & A
Q = -1
A = ""
End If
If Q <= 0 Then
O = O & P
Else
A = A & P
End If
Next
Apos2 = O & A
End Function