This routine parses a string and returns an equivalent string where all the instances of a given substring are doubled. This is especially useful for doubling quotes within SQL statements to be passed to Access or other database engines that expect double quote marks to represent a single quote mark:

 Public Function DoubleString ( _	ByVal str As String, _	ByVal strDoubleString As String) As String	Dim intStringLength As Integer	Dim intDoubleStringLength As Integer	Dim intPosition As Integer	Dim strTemp As String	intStringLength = Len(str)	intDoubleStringLength = Len(strDoubleString)	strTemp = str	If intStringLength >= _		intDoubleStringLength And _		intDoubleStringLength > 0 Then		intPosition = 1		Do While (intPosition > 0) And _			(intPosition <= intStringLength)			intPosition = InStr(intPosition, _				strTemp, strDoubleString)			If intPosition > 0 Then				strTemp = Left(strTemp, _					intPosition - 1 + _					intDoubleStringLength) & _					strDoubleString & _					Mid(strTemp, intPosition + _					intDoubleStringLength, _					intStringLength)				intStringLength = Len(strTemp)				intPosition = intPosition + _					(intDoubleStringLength * 2)			End If		Loop	End If	DoubleString = strTempEnd Function