Dim Data As String
Private Sub Form_load() 'загрузка формы
Winsock1.RemotePort = 5190 'устанавливаем порт 5190
Winsock1.LocalPort = 5190 'устанавливаем локальный порт 
Winsock1.Listen 'начинаем слушать порт
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'если нам чтото пришло
Winsock1.GetData Data 'то записываем это в переменную
MsgBox Data 'выводим на экран сообшение с тем что получили
End Sub