VB.Net/Network Remote/TCP Client

TCP Client Connection

Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading

Public Class MainClass
   Shared Stream As NetworkStream

   Public Shared Sub Main()
        System.Threading.Thread.Sleep(TimeSpan.FromSeconds(1))
        Dim Client As New TcpClient()
        Try
            Client.Connect(IPAddress.Parse("127.0.0.1"), 11000)
            Console.WriteLine("TCP Client Connection established.")
            Console.WriteLine(New String("-", 40))
            Console.WriteLine()
            Stream = Client.GetStream()
            Dim ReceiveThread As New Thread(AddressOf ReceiveData)
            ReceiveThread.IsBackground = True
            ReceiveThread.Start()
            Dim w As New BinaryWriter(Stream)
            Dim Text As String
            Do
                Text = Console.ReadLine()
                If Text <> "QUIT" Then w.Write(Text)
            Loop Until Text.ToUpper() = "QUIT"
            Client.Close()
        Catch Err As Exception
            Console.WriteLine(Err.ToString())
        End Try
   End Sub
   
   Shared  Private Sub ReceiveData()
        Dim r As New BinaryReader(Stream)
        Do
            If Stream.DataAvailable Then
                Console.WriteLine(("RECEIVED: " + r.ReadString()))
            End If
        Loop
    End Sub
   
End Class