Using quotes in data bound web pages.
  Public Function FixQuotes(ByVal strValue As String) As String
        FixQuotes = Replace(strValue, "'", "''")
    End Function
Syntax: 
Dim strNew as String
strNew = FixQuotes("This 'text' has "quotes" in it")
                  
 
                     Last Updated: 4/27/2018