Veja este código amigo: ' Crie um Label e pegue o componente "Inet"
Public Function GetExternalIP(IIN As Inet)
Dim lngA As Long
Dim strA As String
Dim strB() As String
strA = IIN.OpenURL("www.ipchicken.com")
strB = Split(strA, Chr(10))
GetExternalIP = Trim(Replace(Replace(strB(34), " ", ""), "<br>", ""))
End Function
Private Sub Form_Load()
Dim EIP
EIP = GetExternalIP(Inet1)
Label1.Caption = EIP
End Sub Falow... T+