質問です。
ＶＢ６でサーバーを介して多人数チャットができるツールを作っています。
普段は普通に受信・表示できるんですが
同時に受信すると、うまく改行されません(↓のコード参照)。

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dat As String, data() As Byte, Message As String
Winsock1.GetData data()
dat = data()
Message = strconv(dat, vbUnicode)
FORM.Text1.SelStart = Len(FORM.Text1.Text)
FORM.Text1.SelText = Format(Now, "hh:mm") & " " & Message & vbCrLf
End Sub

FORMというフォームのText1というテキストボックスに表示しています。

１０個ぐらい同時に受信すると、１０個全部を表示することもできないし
(３，４個しか表示されない上にちゃんと改行されない場合がある)････。

どうしたらちゃんと改行されて、受信した分全てを表示することが
できるでしょうか？
教えてください。