• Home
 · 
• Miscellaneous
 · 
• Simple Function to Replace If Single code while FindFirst/Find encounted

Simple Function to Replace If Single code while FindFirst/Find encounted

Simple Function to Replace If Single code while FindFirst/Find encounted

Rate Simple Function to Replace If Single code while FindFirst/Find encounted

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim resultString As String
    Dim Index

    resultString = sString

    Index = InStr(resultString, "'")

    Do While Index > 0

        resultString = Left(resultString, Index) & "'" & _
        Mid(resultString, Index + 1)
        Index = InStr(Index + 2, resultString, "'")

    Loop

    QuoteSingleQuotes = resultString

End Function