Io ho scritto questa funzione ma non mi fa nulla non me la visualizza nemmeno in una textbox!

Public Sub CpArray(ByVal VettRx)
Dim s(64) As String
Dim i As Integer
i = 0
s = Split(VettRx, vbCrLf)
For i = 0 To UBound(s)
TextBox3.Text = TextBox3.Text & s(i)
Next
End Sub

Gli stream in cui ricevo e scrivo sono questi:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If client.Available > 0 Then 'verifico se il cliente è disponibile
Dim VettRx(client.Available - 1) As Byte 'vettore che riceve lo stream di dati in ricezione
stream.Read(VettRx, 0, VettRx.Length)
Dim text As String = UTF8.GetString(VettRx)
TextBox2.Text = TextBox2.Text & text & vbCrLf
End If
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim y() As Byte = UTF8.GetBytes(TextBox1.Text & vbCrLf) ' trasformiamo contenuto textbox1 in dati(byte)
stream.Write(y, 0, y.Length)
TextBox2.Text = TextBox2.Text & TextBox1.Text & vbCrLf
TextBox1.Text = ""
End Sub