modtag packets fra port

hey hvordan laver jeg en winsock, således hver gang der kommer nye packets (output) så udskriver det outputtet i en msgbox?

har prøvet med dette, men den udskriver intet når der sker noget på port 100!!!

og ja port 100 virker


Private Sub Form_Load()
a.Close
a.LocalPort = 100
a.Protocol = 0
a.Listen
End Sub
Private Sub a_DataArrival(ByVal bytesTotal As Long)
Dim NewData As String
a.GetData NewData, vbString, bytesTotal 'Henter data når server sender data
MsgBox NewData
End Sub

Private Sub a_ConnectionRequest(ByVal requestID As Long)
a.Close
a.Accept requestID

End Sub