The remotehostIP is populated automatically after a connection

This might help, sorry, I didn't test it...:
Code:
Private Sub Winsock1_ConnectionRequest(Index As Integer, _
 ByVal requestID As Long)
    Load Winsock1(Winsock1.Count + 1)
    Winsock1(UBound(Winsock1)).Accept requestID
    MsgBox Winsock1(UBound(Winsock1)).RemoteHostIP
    
End Sub