Send 2 Winsock beskeder efter hinanden

Jeg har et problem med denne kode. Den sender data'en i én streng i stedet for 2.

Winsock(x).SendData ("lstUsers|" & lstUsers)
Sleep 20
Winsock(x).SendData ("Welcome|" & arrSplit(1))

Modtagerens kode:
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Dim arrSplit() As String
    With Winsock
        .GetData strData, vbString, bytesTotal
    End With
    Call AddToLog("Data Recieved: " & strData)
    arrSplit() = Split(strData, "|")
   
    Select Case arrSplit(0)
------osv. osv.--------

Modtageren genkender typen af besked som står i starten før "|" tegnet.

Når at jeg sender dette kommer beskeden som for eks. "lstUsers|CronckWelcome|Cronck"