Domain available?

Hej Eksperter!

Jeg har en funktion, som hvert 10. sekund downloader en fil fra et domæne.

I denne funktion ønsker jeg at tjekke, om filen overhovedet kan downloades - altså om domænenavnet kan fanges.

Jeg har følgende:

    Public Sub Download()

        ' Denne Sub udfører selve download processen.
        ' Først aflæses der, hvornår filen sidst er ændret (DateLastModified).
        ' Herefter udføres selve download processen
        ' "DateLastModified" sendes til Sub'en "FillInformations".

        Dim WebURL As String = "http://www.domain.dk/"
        Dim FileName As String = "lastshoporder_web.txt"
        Dim Request As HttpWebRequest = CType(WebRequest.Create(WebURL & FileName), HttpWebRequest)

        Dim Response As HttpWebResponse = CType(Request.GetResponse, HttpWebResponse)
        Dim DateLastModified As DateTime = Response.LastModified
        Dim TotalFileSize As Long = Response.ContentLength
        Dim InStream As Stream = Response.GetResponseStream
        Dim OutStream As Stream = New FileStream(FileName, FileMode.Create, FileAccess.Write)
        Dim b(1000) As Byte
        Dim n As Integer

        n = InStream.Read(b, 0, b.Length)

        While (n > 0)

            OutStream.Write(b, 0, n)
            n = InStream.Read(b, 0, b.Length)

        End While

        OutStream.Close()
        InStream.Close()
        Response.Close()

        FillInformations(DateLastModified)

    End Sub

Jeg har forsøgt mig med både Request.HaveResponse, men den returnerer False uanset hvad...

Hvad gør jeg forkert?