Como resolver una dirección URL con VB

Aquí comparto un fragmento de código para resolver una dirección URL.

El diseño de la aplicación web es simple. Coloque 2 controles Textbox en el formulario, uno para dirección de origen y el otro para la dirección resuelta. También coloque un botón para activar el proceso y asocie el siguiente código con el botón.

No se olvide de incluir una referencia al espacio de nombres Imports System.Net

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim str As String = TextBox1.Text

Try

Dim request As HttpWebRequest = DirectCast(WebRequest.Create(str), HttpWebRequest)

request.AllowAutoRedirect = True

request.Method = "HEAD"

Try

Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)

If response.StatusCode <> HttpStatusCode.OK Then

'HTTP 404 o error

End If

TextBox2.Text = response.ResponseUri.ToString()

Catch

'HTTP 404 o error

End Try

request.Abort()

Catch

'HTTP 404 o error

End Try

End Sub