[Help] Problem reading text from a webpage

 
Function GetPage(ByVal pageUrl As String) As String
	  Dim s As String = ""
	  Try
		 Dim request As HttpWebRequest = WebRequest.Create(pageUrl)
		 Dim response As HttpWebResponse = request.GetResponse()
		 Using reader As StreamReader = New StreamReader(response.GetResponseStream())
			s = reader.ReadToEnd()
		 End Using
	  Catch ex As Exception
		 Debug.WriteLine("FAIL: " + ex.Message)
	  End Try
	  Return s
   End Function

Dim url1, url2, url3, url4 As String
        url1 = "http://mywebsite/TextDocument1.txt"
        url2 = "http://mywebsite/TextDocument2.txt"
        url3 = "http://mywebsite/TextDocument3.txt"
        url4 = "http://mywebsite/TextDocument4.txt"
Dim Online1, Online2, Online3, Online4 As String 
Online1 = GetPage(url1)
Online2 = GetPage(url2)
Online3 = GetPage(url3)
Online4 = GetPage(url4)

While Not reader.EndOfStream

            Dim s As String = reader.ReadLine
           
        End While

if s.startswith("abc")...

if s.contains("def")...

  Public Shared Function ReadSpecifiedLine(ByVal file As String, ByVal lineNum As Integer) As String
        'create a variable to hold the contents of the file
        Dim contents As String = String.Empty
        'always use a try...catch to deal
        'with any exceptions that may occur
        Try
            Using stream As New StreamReader(file)
                contents = stream.ReadToEnd().Replace(vbCr & vbLf, vbLf).Replace(vbLf & vbCr, vbLf)
                Dim linesArray As String() = contents.Split(New Char() {ControlChars.Lf})

                'Make sure we have ana ctual array
                If linesArray.Length > 1 Then
                    'Make sure user didnt provide number greater than the number
                    'of lines in the array, and not less than 0 (zero) Thanks AdamSpeight2008
                    If Not lineNum > linesArray.Length AndAlso Not lineNum < 0 Then
                        Return linesArray(lineNum)
                    Else
                        'Failed our check so return the first line in the array
                        Return linesArray(0)
                    End If
                Else
                    'No array so return the line
                    Return contents
                End If
            End Using
        Catch ex As Exception
            Return ex.ToString()
        End Try
    End Function

Dim s as string = reader.readtoend

DocName = ReadSpecifiedLine(s, 0)         
            DocLink1 = ReadSpecifiedLine(s, 1)
            DocLink2 = ReadSpecifiedLine(s, 2)