Конвертация данных в CSV формат

Метод GetAsCSVString компонента TIBSQL позволяет преобразовать текущую запись в строку формата CSV. Следующий макрос выводит на экран информацию о первых 10 контактах из базы данных:

Option Explicit
Sub GetAsCSV
 
  Dim q, S
  S = ""
  Set q = Designer.CreateObject(nil, "TIBSQL", "")
  Set q.Transaction = gdcBaseManager.ReadTransaction
  q.SQL.Text = "SELECT FIRST 10 id,name,phone,city,address FROM gd_contact"
  q.ExecQuery
  While Not q.EOF
    S = S &  q.GetAsCSVString & vbCrLf
    q.Next
  WEnd
  Designer.DestroyObject(q)
 
  MsgBox S
 
End Sub