aggiungi il controllo winsock dalla libreria dei riferimenti e poi lo inserisci nel tuo form e nel codice scrivi

Private Sub Form_Load()
msgbox Winssock1.LocalIP
End Sub