No entiendo bien quieres saber a que control winsock debes enviar nueva informacion?
Deberias identificar para que es ese mensaje antes de utilizar la informacion, porque luego cuando tienes mas funciones no siepre vas a estar enviandos esos datos.
ENVIAR:
Dim Mensaje as String
Mensaje = "InfoServer||" & Dato1.Text & "||" & Dato2.Text & "||" & Dato3.Text & "||" & Dato4.text
Y luego lo identificas con un select case con el receptor
Dim Buffer As String
Dim datos() as variant
Winsock1.GetData Buffer
datos()=Split(Buffer,"||")
Select Case vDatos(0)
Case "InfoServer" 'Identificamos que es un mensaje de datos de informacion del server
Colortxt.Text = datos(3)
Activacion.Caption = datos(4)
De.Caption = datos(1)
MsgRecibido.Text = datos(2)
End Select