Передача объёмистых строковых данных между приложениями - VB

Формулировка задачи:

Нужно из одного приложения (VB6 Standard EXE) передать в другое приложение (тоже VB6 Standard EXE) здоровенные строки. Кроме как через файл - можно ли это ещё как-то сделать? приходит в голову только следующее: в источнике создать скрытый текстбокс, разместить в нём всю строку, затем КАК-ТО (DDE, к примеру) послать приёмнику хэндл этого текстбокса, который заодно и послужит сигналом, что есть новые данные. Затем приёмник через АПИ читает текст из текстбокса (зная его хэндл) - и всё. Но по-моему, это не самый лучший вариант...

Решение задачи: «Передача объёмистых строковых данных между приложениями»

textual
                            Листинг программы 
                        

                            Private intMax As Long ' извиняйте за неверный префикс, писал второпях
 
Private Sub Form_Load()
  intMax = 0
  tcpServer(0).LocalPort = Номер_того_же_порта
  tcpServer(0).Listen
End Sub
-------------------------------------------
Private Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load tcpServer(intMax)
      tcpServer(intMax).LocalPort = Номер_того_же_порта
      tcpServer(intMax).Accept requestID
   End If
End Sub
---------------------------------------------
Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  Dim strData As String
  '
  tcpServer(Index).GetData strData
  MsgBox strData ' собственно полученый текст
End Sub
 
------- обработка ошибки (необязательно, но желательно) ----
Private Sub tcpServer_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  MsgBox Description, vbCritical, 'Ошибка!!!!'
End Sub
--------- ну и почистим за собой при выходе ------------
Private Sub cmdStop_Click()
  Dim i As Integer
  '
  On Error Resume Next
  '
  With tcpServer
    For i = 0 To .Count
      .Item(i).Close
    Next i
  End With
  Unload Me
End Sub
                        