VB: DataArrival

[nareth]

code it better please!

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