java的服务器端，vb写的客户端，通过socket连接？？？？？？？？？/

Question

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata, vbByte
MsgBox strdata, , "client"
If IsNull(strdata) Then
Else
msnshow.LabMessage.Caption = msnshow.LabMessage.Caption + "条新消息"
msnshow.Show
End IfEnd Sub
Private Sub Winsock1_Connect()
Winsock1.SendData Text1.Text
'Call Winsock1_DataArrival(100)   //如果不屑反映，根本就不能到   Winsock1_DataArrival
End Sub
能帮忙吗
！！

Answer 1

If strData = Null Or strData = "" Then
msnshow.LabMessage.Caption = msnshow.LabMessage.Caption + strData + "条新消息"
msnshow.Show
Else
End If
//////////////////////////
是不是有问题呀！

Answer 2

If strData = Null Or strData = "" Then
msnshow.LabMessage.Caption = msnshow.LabMessage.Caption + strData + "条新消息"
msnshow.Show
Else
End If
这个是有点问题，但是没有关系，主要是我的数据没有接过来，而且我接收数据的时候没有触发Winsock1_DataArrival
不知道为什么呀