problem i VB.Net

Testar vi så här istället då.

Dim sr As StreamReader = File.OpenText("test.txt")
Dim line As String
line = sr.ReadLine()
While Not input Is Nothing
   dim s() as string = line.Split(',')
   if double.Parse(s(1])) > 30 then
      TBSave.Text &= " " & line 
   end if
   line = sr.ReadLine()
End While
sr.Close()

Problemet är att du måste lägga sr.ReadLine() sist i loopen. Du lägger den innan Do för att läsa första raden, kommer in och gör vad du ska och läser sen nästa.
Du får felet för att när du kommer in i loopen och har läst sista raden så läser du en rad till, line blir nothing och så krashar det.

Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
line = sr.ReadLine()
Do While Not line Is Nothing
   dim s() as string = line.Split(',')
   if double.Parse(s(1])) > 30 then
      TBSave.Text &= " " & line 
   end if
   line = sr.ReadLine()
Loop
sr.Close()

Ett stort tack till er!! Nu funkar det