C# / VB.NET - trovare l'ip di un sito

sapete dirmi dove sbaglio

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            ' dichiara una nuova collezione
            Dim IpCollection As New Collection
            ' ottiene l'indirizzo IP dal dominio inserito
            Dim i As Integer
            Dim ipE As Net.IPHostEntry = System.Net.Dns.GetHostEntry("http://it.msn.com/")
            Dim IpA() As Net.IPAddress = ipE.AddressList
            ' ottiene tutti gli indirizzi IP relativi al dominio
            For i = 0 To IpA.GetUpperBound(0)
                IpCollection.Add(IpA(i).ToString)
            Next
            ' restituisce il primo IP ottenuto
            Dim AddressIP As String
            AddressIP = IpCollection.Item(0)
        Catch ex As Exception
            MsgBox("An error has occured")
        End Try
    End Sub
End Class

Hai importato queste librerie?:

Imports System.Net
Imports System.Net.Dns
Imports System.Net.Sockets

che errore ti esce precisamente?

si ho provato ma non funziona....
quello che ce scritto nel codice...

Leva un attimo il try...catch e vediamo quale eccezione si presenta esattamente.

fatto l'errore me lo da dove o messo '<<<

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' dichiara una nuova collezione
        Dim IpCollection As New Collection
        ' ottiene l'indirizzo IP dal dominio inserito
        Dim i As Integer
        Dim ipE As Net.IPHostEntry = System.Net.Dns.GetHostEntry("http://it.msn.com/")
        Dim IpA() As Net.IPAddress = ipE.AddressList
        ' ottiene tutti gli indirizzi IP relativi al dominio
        For i = 0 To IpA.GetUpperBound(0)
            IpCollection.Add(IpA(i).ToString)
        Next
        ' restituisce il primo IP ottenuto
        Dim AddressIP As String
        AddressIP = IpCollection.Item(0)  '<<<<dice L'indice dell'insieme deve essere compreso tra 1 e la dimensione dell'insieme.
    End Sub
End Class

E allora il problema è che hai inserito indice 0.

e ke devo fare...