bliv åben ikke lukke igen

hvordan laver jeg sådan min console applikation ikke lukker sig efter man kompiler?

Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Module Module1

    Sub Main()

    End Sub

End Module
Class Server
    Public Shared Sub Main(ByVal args As String())
        Dim server As TcpListener = New TcpListener(IPAddress.Any, 9999)
        server.Start()
        Dim client As TcpClient = server.AcceptTcpClient
        Dim rdr As StreamReader = New StreamReader(client.GetStream)
        Dim wrt As StreamWriter = New StreamWriter(client.GetStream)
        Dim outmsg As String
        Dim inmsg As String
        inmsg = rdr.ReadLine
        While Not (inmsg Is Nothing)
            Console.WriteLine(inmsg)
            outmsg = "OK"
            wrt.WriteLine(outmsg)
            wrt.Flush()
            inmsg = rdr.ReadLine
        End While

    End Sub
End Class