The remote server returned an error: 500

<pre>        Do
            Dim wrWebRequest As HttpWebRequest = CType(WebRequest.Create(strURL), HttpWebRequest)
            Dim wrWebResponse As HttpWebResponse = CType(wrWebRequest.GetResponse(), HttpWebResponse)
            Dim strStream As Stream = wrWebResponse.GetResponseStream()
            Dim intBuffer(8388608) As Byte
            Dim intBytesToRead As Integer = CInt(intBuffer.Length)
            Dim intBytesRead As Integer = 0
            While intBytesToRead > 0
                Dim intNumber As Integer = strStream.Read(intBuffer, intBytesRead, intBytesToRead)
                If intNumber = 0 Then
                    Exit While
                End If
                intBytesRead += intNumber
                intBytesToRead -= intNumber
            End While
            strStream.Close()
            Dim fsFileStream As New FileStream("index.html", FileMode.Create, FileAccess.Write)
            fsFileStream.Write(intBuffer, 0, intBytesRead)
            fsFileStream.Close()
            fsFileStream = New FileStream("index.html", FileMode.Open, FileAccess.Read)
            Dim srSteamReader As New StreamReader(fsFileStream)
            Dim strData As String = srSteamReader.ReadToEnd
            srSteamReader.Close()
            fsFileStream.Close()

            Dim rgxPost As Regex = New Regex("""url"": ""https://web.[DELETED].com/p/\w*\S*"">")
            Dim mchPost As Match = rgxPost.Match(strData)
            While mchPost.Success
                lstPosts.Add(mchPost.ToString)
                mchPost = mchPost.NextMatch
            End While

            Dim rgxCursor As Regex = New Regex("cursor=\w*\S*&uid=\d*")
            Dim mchCursor As Match = rgxCursor.Match(strData)
            If mchCursor.Success Then
                strURL = "https://web.[DELETED].com/kaiagerber?" & mchCursor.ToString
            Else
                strURL = ""
                Exit Do
            End If
        Loop