vb的winsock发送与接受的数据不一样，求解！

接受方
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
    Dim strData As Long
    tcpClient.GetData strData
    If strData = 0 Then
        MsgBox "已经连接！", vbOKOnly + vbInformation, "提示信息"
        Label3.Caption = "已经连接！"
    Else
       msgbox strdata
    End If
End Sub
发送方
Private Sub 发送图片id()
    tcpServer.SendData (编号)
End Sub
编号已经定义为全局变量
如果代码到这里结束了那一切正常，如果加下面的代码就会出现发送和接受不一样。
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
    Dim ask As Long
    tcpServer.GetData ask
    If ask = 0 Then
        tcpServer.SendData 0
    End If
End Sub
这段代码是接收方开始连接服务器的时候发送的握手信息，看是否连接上了。。但不懂为什么加上了会导致接受失真？
望指导谢谢！