创建了个简单的服务器端程序，运行后却失去响应，也不报错！不知道为什么？

Question

大家好！我刚接触网络通信，就自己照着例子编了个服务器端的小程序，但一运行就失去响应，也不报错，请大家帮忙看看，到底是程序的问题，还是机器防火墙的问题！谢谢！这是我的源代码：
Dim MyIP As IPAddress
        Dim MyReceiveByte(100) As System.Byte
        Dim MyLength, i As Integer
        Dim MyInfo As ASCIIEncoding        Try
            MyIP = IPAddress.Parse(Me.TextBox1.Text)
            MyListener = New TcpListener(MyIP, Convert.ToInt16(Me.TextBox2.Text))
            MyListener.Start()
            Me.RichTextBox1.Text = "成功创建服务器，正在监听客户端信息。" & vbCrLf
            MySocket = MyListener.AcceptSocket()
            Me.RichTextBox1.Text = "成功连接：" + MySocket.RemoteEndPoint.ToString + vbCrLf
            MyLength = MySocket.Receive(MyReceiveByte)
            For i = 0 To MyLength - 1 Step 1
                Me.RichTextBox1.Text = Convert.ToChar(MyReceiveByte(i))
            Next
            MyInfo = New ASCIIEncoding()
            MySocket.Send(MyInfo.GetBytes("From Server!"))
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Answer 1

晕了，那我去别处问问。
谢谢提醒！