vb socket只能发送一次问题

Question

我的代码：
 Private Sub getcityname(ByVal x As Double, ByVal y As Double)
        Dim xyvalue As String = "X" & x & "Y" & y
        Dim socket As Socket
        Try
            'Dim bytes(2048) As Byte
            socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            Dim localEndPoint As New IPEndPoint(IPAddress.Parse(appSettings.GetValue("ip")), appSettings.GetValue("port"))
            socket.Connect(localEndPoint)
            socket.Send(Encoding.ASCII.GetBytes(xyvalue))
            Dim bytes(2048) As Byte
            socket.Receive(bytes)
            Dim str2 As String = Encoding.Default.GetString(bytes)            citynamenew = str2
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        socket.Close()
    End Sub然后循环调用getcityname函数，第一次，str2可以得到值，第二次的时候，代码走到Dim str2 As String = Encoding.Default.GetString(bytes)
九部往下执行了，请问这是为什么啊？？？？？？大哥们帮吗啊！！

Answer 1

Dim bytes() As Byte 
bytes=socket.Receive(localEndPoint ) 

Answer 2

Receive() 函数不能传入localEndPoint 的！！！

Answer 3

代码问题，只要把取出的值，console.writeline()出来，第二次的时候就不行了！可能是我取出的值在write的时候，这个值有问题！！！谢谢大家。