Всем привет!

Никто не встречался с такой проблемой?
Через Socket получаю сообщения и гружу их в байтовый массив.
Dim s As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim ipHostInfo As IPHostEntry = Dns.Resolve(IP-address)
Dim ipAddress As ipAddress = ipHostInfo.AddressList(0)
Dim ipp As New IPEndPoint(ipAddress, port)
Dim msg() byte=System.Text.Encoding.Default.GetBytes(Сообщение)
Dim d(1024) as byte
Соединяюсь
s.Connect(ipp)
s.send(msg)
s.Receive(d) ' Данные получаю и загружаю в массив
For l=0 to 1024
str = str & Chr(d(l)) ' Проблема вот здесь, когда присваиваю переменной
' вижу только один символ, остальные пропадают.
Next
Textbox1.text=str
Когда использую другой вариант без использования переменной, а вывод сразу в текстовое окно, то работает, вижу всё сообщение.
For l=0 to 1024
Textbox1.text=Textbox1.text & chr(d(l))
next
Почему так происходит?