[VB6]-Ottenere IP essendo in una LAN

[xegallo]

io ho fatto così

Private Sub Command2_Click()

    Inet1.OpenURL "http://www.whatismyip.com/"

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    x = Inet1.GetChunk(1000)
    Do Until LenB(x) >= 1000
        DoEvents
    Loop
    x = Mid$(x, InStr(x, "Your IP is ") + Len("Your IP is "), InStr(InStr(x, "Your IP is ") + Len("Your IP is "), x, "<") - (InStr(x, "Your IP is ") + Len("Your IP is ")))
    MsgBox x
    
End Sub