Network Remote VB.Net

Imports System.Threading
Imports System.Net.Sockets
Imports System.IO
Public Class MainClass
   Shared Dim output As NetworkStream
   Shared Dim writer As BinaryWriter
   Shared Dim reader As BinaryReader
   Shared Dim message As String = "" 
   Shared Dim readThread As Thread
   Public Shared Sub Main()
      readThread = New Thread(AddressOf RunClient)
      readThread.Start()
      Try
         writer.Write("CLIENT>>> ")
         Console.WriteLine("CLIENT>>> ")
      Catch exception As SocketException
         Console.WriteLine("Error writing object")
      End Try
    
   End Sub
   
   Shared Public Sub RunClient()
      Dim client As TcpClient
      Try
         Console.WriteLine("Attempting connection" )
         client = New TcpClient()
         client.Connect("localhost", 5000)
         output = client.GetStream()
         writer = New BinaryWriter(output)
         reader = New BinaryReader(output)
         Console.WriteLine("Got I/O streams")
         Try
            Do
               message = reader.ReadString
               Console.WriteLine(message)
            Loop While message <> "SERVER>>> TERMINATE"
         Catch inputOutputException As IOException
            Console.WriteLine("Client application closing")
         Finally
            Console.WriteLine("Closing connection.")
            writer.Close()
            reader.Close()
            output.Close()
            client.Close()
         End Try
      Catch inputOutputException As Exception
         Console.WriteLine("Client application closing")
      End Try
   End Sub 
End Class