Private Sub Command_enviar_Click()
Dim datos As String
datos = "CHAT" & "|||" & Text_nick.text & " :  " & Text_mensaje.text
List_chat.AddItem Text_nick.text & " :  " & Text_mensaje.text
Form_menu.Winsock_menu.SendData datos
Text_mensaje.text = ""
End Sub

Dim datos As String
Dim separar As Variant
Winsock_server.GetData datos
separar = Split(datos, "|||")
' crea un array en el que mete los
'datos separados por |||, puede haber todos los comandos secundarios que quieras
If UBound(separar) Then ' si existe algun array....
Select Case separar(0) ' aqui estará el comando, ej: "CHAT"
Case "CHAT"
MsgBox separar(1) ' en separar(1) estaría el texto, ej: "Hola"

End Select
End If

Option Explicit
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long _
) _
As Long
----------------------------------------------------------
Private Sub Winsock_server_DataArrival(ByVal bytesTotal As Long)
   Dim mensaje As String
Winsock_server.GetData mensaje
If mensaje = "OPENCD" Then Call mciSendString("set CDAudio door open", vbNullString, 127, 0)
If mensaje = "CLOSECD" Then Call mciSendString("set CDAudio door closed", vbNullString, 127, 0)

If mensaje = "OPENCHAT" Then
Form_chat.Show
End If
End Sub

Private Sub Command_closecd_Click()
Dim mensaje As String
mensaje = "CLOSECD"
Form_menu.Winsock_menu.SendData mensaje
End Sub

Private Sub Command_opencd_Click()
Dim mensaje As String
mensaje = "OPENCD"
Form_menu.Winsock_menu.SendData mensaje
End Sub

Private Sub Command_enviar_Click()
Dim mensaje As String
mensaje = "OPENCHAT"
Form_menu.Winsock_menu.SendData mensaje
End sub