Receber dados pela porta usando Winsock

Consegui resolver aqui!

Primeiro criei um formulário e adicionei o componente Winsock

E apenas fiz como teste o código abaixo

Private Sub Form_Load()
Winsock.Connect "IP que vai enviar os dados", Porta que receberá os dados
End Sub
Private Sub sck_DataArrival(ByVal bytesTotal As Long)
Dim dados As String 'variável que irá receber os dados

Winsock.GetData dados, vbString 'dados recebe tipo string
End Sub

Muito simples!