Sub Escapea(str As String)
Dim i As Int
Dim str2 As String
Dim Done As Boolean = False
Do While Done = False
i = str.IndexOf(""")
If i = -1 Then
Done = True
Else
If i = 0 Then
If str.Length > 6Then
str = Chr(34) & str.SubString (6)
Else
str = Chr(34)
End If
Done = False
Else
str2 = str.SubString2 (0, i) & Chr(34) & str.SubString (i + 6)
str = str2
End If
End If
Loop
return str
End Sub