Qualcosa del genere

codice:
    Dim o As Object
    Dim IIP As String

    Set o = CreateObject("InetCtls.Inet")
    IIP = o.OpenURL("http://pchelplive.com/ip.php")
    MsgBox ("Internet IP: " & IIP)

    Set o = Nothing