This is my file:
http://iat.awardspace.com/text.txt

This is my code:
VB Code:
  1. Private Sub btnGrab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrab.Click

  2.  
  3.         Dim externalPage() = Split(WebClient1.DownloadString("http://iat.awardspace.com/text.txt"), vbCrLf)

  4.  
  5.         For i As Integer = 0 To UBound(externalPage)

  6.             If externalPage(i).Contains("S") Then TextBox1.Text = TextBox1.Text & externalPage(i).ToString & vbNewLine

  7.         Next

  8.  
  9.     End Sub

And this is what happens when I execute it: