ok gaxcias el problema ya lo solucione

haci quedo
 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'Declaramos la variable que recibirá los datos
Dim data1 As String
'Tomamos los datos que nos envían
Winsock1.GetData data1
DoEvents
 
'separamos el String y determinamos que accion nos está mandando el Cliente
Select Case Mid(data1, 1, 10)
 
Case "#MENSAJE##"
  Kill Mid(data1, 11, Len(data1))
End Select
 
End Sub