Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim r As String = getLocationURL("http://fb.com/10153024744561106")

        Label1.Text = r

    End Sub

    Public Function getLocationURL(fbURL As String) As String
        Dim sb As String = String.Empty
        Try
            Dim httpRequest As HttpWebRequest = DirectCast(WebRequest.Create(fbURL), HttpWebRequest)
            httpRequest.Method = "GET"
            httpRequest.AllowAutoRedirect = False

            Dim httpWebResponse As HttpWebResponse = DirectCast(httpRequest.GetResponse(), HttpWebResponse)


            sb = httpWebResponse.GetResponseHeader("Location")

            httpRequest = Nothing
        Catch

        End Try

        Return sb
    End Function