TcpListener и Tcpclient

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Module Module1
 
    Sub Main()
        Try
            'Тcp- слушатель, по ip-адресу 127.0.0.1 порт=2233
            Dim ip As IPAddress = IPAddress.Parse("127.0.0.1")
            Dim listener As TcpListener = New TcpListener(ip, 2233)
            'Начинаем прослушивание
            listener.Start()
            'Создаем клиента для принятия данных
            Dim client As TcpClient = listener.AcceptTcpClient()
            Dim ns As NetworkStream = client.GetStream()
            Dim connected As Boolean = True
            While connected = True
 
                'буффер для полученных данных
                Dim buffer() As Byte = New Byte(200) {}
                'считываем данные
                ns.Read(Buffer, 0, Buffer.Length)
                'Отображаем данные
                Console.WriteLine(Encoding.UTF8.GetString(Buffer))
            End While
 
            ns.Close()
            Console.ReadLine()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Module

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Module Module1
 
    Sub Main()
        Try
           
            'Создаем клиента 
            Dim tc As Sockets.TcpClient = New Sockets.TcpClient()
            'Подключаемся, используя имя хоста и порт
            tc.Connect("localhost", 2233)
            'Получаем экземпляр NetworkStream для отправки данных
            Dim ns As NetworkStream = tc.GetStream()
            Dim connected As Boolean = True
            While connected = True
 
                Console.WriteLine("Введите сообщение")
                Dim body As String = Console.ReadLine()
 
                'Перекодируем введенное сообщение в набор байтов
                Dim message() As Byte = Encoding.UTF8.GetBytes(body)
 
                'считываем данные
                ns.Write(message, 0, message.Length)
 
            End While
            tc.Close()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Module

    Public Sub TcpGetTest()
        Dim Test As String
        Try
            Dim tc As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient()
            tc.Connect(Form1.TextBox1.Text, Form1.ComboBox15.Text)
            Dim ns As System.Net.Sockets.NetworkStream = tc.GetStream()
            Dim connected As Boolean = True
            While connected = True
                Dim body As String = "TEST"
                Dim message() As Byte = System.Text.Encoding.UTF8.GetBytes(body)
                ns.Write(message, 0, message.Length)
            End While
            tc.Close()
        Catch ex As Exception
            Test = ex.Message
            MessageBox.Show(Form1.TextBox1.Text.ToString())
            MessageBox.Show(Form1.ComboBox15.Text.ToString())
            MessageBox.Show(Test.ToString())
        End Try
    End Sub

                Dim body As String = "TEST"
                Dim message() As Byte = System.Text.Encoding.UTF8.GetBytes(body)
                ns.Write(message, 0, message.Length)
                Dim buffer() As Byte = New Byte(80) {}
                ns.Read(buffer, 0, buffer.Length)
                Test = (System.Text.Encoding.UTF8.GetString(buffer))

'Прослушивание входящих сообщений
    Private Sub Listener()
        Try
            'Тcp- слушатель, по ip-адресу 127.0.0.1 порт=4444
            Dim ip As IPAddress = IPAddress.Parse("127.0.0.1")
            Dim listener As TcpListener = New TcpListener(ip, 4443)
            'Начинаем прослушивание
            listener.Start()