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"
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
End Try
request.Abort()
End Sub