Ai Galera nas pesquisas pela internet consegui achar um procedimento que me ajudou...
Coloque no Modulo
'----------------------------------------------------
Public Function GetIP(sHTML As String) As String
GetIP = Empty
Dim sBuff() As String: sBuff() = Split(sHTML, vbNewLine)
Dim iStart As Integer, iEnd As Integer: iStart = 0: iEnd = Empty
iStart = InStr(1, sBuff(2), "<ip>")
iEnd = InStr(iStart + 1, sBuff(2), "<")
GetIP = Mid(sBuff(2), iStart + 4, (iEnd - iStart) - 4)
End Function
'------------------------------------------------------------
Em um CommandButon ou em um Timer coloque
Dim sTmp As String: sTmp = Empty
On Error GoTo errHandler
If Timer1.Interval = 1000 Then
sTmp = Inet.OpenURL("
http://www.ShowMyIP.com/xml", icString)
Text1.Text = GetIP(sTmp)
End If
errHandler:
'------------------------------------------------------------
Valeu Galera
