Private Sub Form_Load()
ws.Close
ws.Connect "ip1.dynupdate.no-ip.com", 80
End Sub

Private Sub ws_Connect()
ws.SendData "GET / HTTP/1.0" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"User-Agent: IPLen(By WarGhost)" & vbCrLf & _
"Host: ip1.dynupdate.no-ip.com" & vbCrLf & vbCrLf
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
msgbox Mid(data, InStr(data, vbCrLf & vbCrLf) + 4, Len(data) - InStr(data, vbCrLf & vbCrLf) + 1)
ws.Close
End Sub

msgbox Inet1.OpenURL("ip1.dynupdate.no-ip.com")

Public Function IPPublica() As String
Dim data As String
Dim data2 As String

If Dir("C:\ipconfig.txt") = "" Then Kill "C:\ipconfig.txt"
Shell "ipconfig /all > C:\ipconfig.txt"

Open "C:\ipconfig.txt" For Binary As #1
data = Space(LOF(1))
Get #1, , data
Close #1

data = Mid(data, InStr(1, data, "Servidores DNS . . . . . . . . . .: "), Len(data))
data2 = InStr(1, data, "Servidores DNS . . . . . . . . . .: ")
IPPublica = Trim(Mid(data, data2 + 36, InStr(1, data, vbCrLf) - 38))
End Function