Sende tilbage til klient (winsock)

Hvordan håndtere jeg linjeskift?

Hvis jeg gør således:

  ElseIf Left$(strData, 4) = "LIST" Then
    Dim i As Integer
    Dim brugere As String
    For i = 0 To online.ListCount - 1
    brugere = "USER," & online.List(i) & ",0,0,"
    Call objServer.SendData(CStr(brugere))
     DoEvents
Next i

vil den udskrive
USER,xxx,0,0,USER,xxx,0,0,USER,xxx,0,0,USER,xxx,0,0,
osv

Den skal udskrive
USER,xxx,0,0, - en gang
USER,xxx,0,0, - anden gang
USER,xxx,0,0, - tredje gang

Men det gør den ikke - hvorfor?