I will tell you how to make program for ip adress, but not local..... WAN!
Private Sub Form_Load()
Dim strHtml As String
strHtml = Inet1.OpenURL("http://simple.showmyip.com/")
Text1.Text = strHtml:P
End Sub
But ofc, you need to add int control in the form (Microsoft Internet Transfer Control)