VB Code:
Private Sub Client_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Buffer As String
Dim Packet As String
Dim Start As Long
Call Client(Index).GetData(Buffer, vbString, bytesTotal)
Let Buffer = Client(Index).Tag & Buffer
Let Start = InStrB(1, Buffer, sckEnd, vbTextCompare)
Do While Start > 0
Let Start = InStr(1, Buffer, sckEnd, vbTextCompare)
Let Packet = Left$(Buffer, Start - 1)
Let Buffer = Right$(Buffer, Len(Buffer) - Start)
'PROCESS PACKET
Let Start = InStrB(1, Buffer, sckEnd, vbTextCompare)
Loop
End Sub