Есть сервер на который посылается текст, а как послать на него переменные из разных текстбоксов с соблюдением форматирования

Private Sub Command1_Click()
Me.Visible = False
End Sub

Private Sub Form_Load()
Me.Visible = False
Winsock1.LocalPort = 100
Winsock1.Listen

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString
Text1.Text = "Сообщение от клиента для сервера (29.09.2003 12:0" & vbNewLine & strData
Me.Visible = True
Call SetFormPosition(Form1.hwnd, True)
End Sub

так вот надо чтоб в строчке "сообщение от..." поменялось на то что поставлено например в текстбоксе2

Ладно я прошел этот вопрос по другому, я генерирую содержание на клиенте и одной строкой отправляю на сервер, так что можно считать вопрос решен