Winsock으로 다른 텍스트박스에 채팅 내용을 보내려면?

철수와 영희가 채팅하는 프로그램을 만들고 있어요.
철수가 텍스트박스 2에서 보낸 내용이 영희의 텍스트박스 1에 표시되도록 했습니다.

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
body = vbNullString
Winsock1.GetData body
Text1.Text = Text1.Text & body & vbCrLf
Text1.SelStart = Len(Text1) - 1

버튼을 눌렀을 때 영희의 텍스트박스 3에도 표시되도록 아래처럼 설정했는데요.

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
body = vbNullString
Winsock1.GetData body
Text1.Text = Text1.Text & body & vbCrLf
Text1.SelStart = Len(Text1) - 1
Dim z As String
Winsock1.GetData z
Text13.Text = z

그런데 텍스트박스 3에 내용이 표시되지 않아요.
어떻게 해야 할까요?