レガシーASPで設定したクッキーをASP.NET（VB.net）で取得したい

Response.Cookies("ID") = Request.Form("id")

Dim url1$ = "http://hogehoge.co.jp/test.asp" ' 仮名
Dim req1 As HttpWebRequest = CType(WebRequest.Create(url1$), HttpWebRequest)
req1.CookieContainer = New CookieContainer()
Dim response As HttpWebResponse = CType(req1.GetResponse(), HttpWebResponse)
Dim cook As Cookie
For Each cook In response.Cookies
    Debug.Print("Cookie:")
    Debug.Print("{0} = {1}", cook.Name, cook.Value)
    Debug.Print("Domain: {0}", cook.Domain)
    Debug.Print("Path: {0}", cook.Path)
    Debug.Print("Port: {0}", cook.Port)
    Debug.Print("Secure: {0}", cook.Secure)

    Debug.Print("When issued: {0}", cook.TimeStamp)
    Debug.Print("Expires: {0} (expired? {1})", cook.Expires, cook.Expired)
    Debug.Print("Don't save: {0}", cook.Discard)
    Debug.Print("Comment: {0}", cook.Comment)
    Debug.Print("Uri for comments: {0}", cook.CommentUri)
    Debug.Print("Version: RFC {0}", IIf(cook.Version = 1, "2109", "2965"))

    ' Show the string representation of the cookie.
    Debug.Print("String: {0}", cook.ToString())

Next cook

' lblDataはラベルコントロールです。
Dim Keys$() = Request.Cookies.AllKeys
Dim n% = UBound(Keys$)
For i% = 0 To n%
    Dim CookieValue$ = Request.Cookies(Keys$(i%)).Value
    lblData.Text &= Keys$(i%) & "=" & CookieValue$ & "<br>"
Next
lblData.Text &= "END<br>"