Hola, si entendi bien vos queres hacer un pequeño server?
algo bien facil
pone un winsock en un form
Option Explicit
Private Sub Form_Load()
Winsock1.LocalPort = 80
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.SendData "<P align=center><STRONG>Hola, soy el tragasables de SKL</STRONG></P>"
End Sub
Private Sub Winsock1_SendComplete()
Winsock1.Close
Winsock1.Listen
End Sub