VB.NET : Récupérer IP à partir d'un ping

Bonjour,

j'aurais besoin d'aide sur Visual Basic, je suis en train de créer un logiciel capable de récupérer l'adresse IPv4 d'un site, par un ping ou une autre méthode.

Mon code actuel, pour le bouton " Récupérer l'IP "

Private Sub CypherxButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CypherxButton1.Click
If CypherxButton1.Text = "" Then
MessageBox.Show("Le site web semble incorrect :/", "Erreur #1 = [WebSiteIncorrect]", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
If CypherxButton1.Text = "www." Then
MessageBox.Show("Veuillez entrer un site web valide", "Erreur # [WebSiteIncorrect]", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
If CypherxButton1.Text.StartsWith("www.") = True Then
Dim hostname As IPHostEntry = Dns.GetHostEntry(CypherxButton1.Text)

Dim ip As IPAddress() = hostname.AddressList
ipdusite.Text = ip(0).ToString()
ipdusite.Enabled = True
Else
Dim hostname As IPHostEntry = Dns.GetHostEntry("www." & CypherxButton1.Text)

Dim ip As IPAddress() = hostname.AddressList
ipdusite.Text = ip(0).ToString()
ipdusite.Enabled = True
End If

Le "Cypher" c'est normal, c'est un thème :)

Mais lorsque je click sur le boutton, une erreur s'affiche: Hôte inconnu. L'exception SocketException n'as pas été gérée...

Quelqu'un qui puisse m'aider ?
Merci d'avance