VB.NET modificare un file CSV

[carriban]

Ragazzi, penso di esserci quasi...

Vi posto il codice che sto utilizzando

 Dim Sr As New StreamReader(System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\calcolo.csv")
        Dim Sw As New StreamWriter(System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\calcolo_new.csv")
        Dim Out As New List(Of String)
        Dim r1 As String = Sr.ReadLine()
        Dim r2 As String = Sr.ReadLine()


        While Not Sr.EndOfStream


            Dim s1() As String = r1.Split(";"c)
            Dim s2() As String = r2.Split(";"c)
            If (CInt(s1(13)) + CInt(s2(13))) < 121 Then
                Out.Add(r1)
                Out.Add(r2)
                Sw.WriteLine(r1)
                Sw.WriteLine(r2)
            End If
        End While


        Sr.Close()
        Sw.Close()
        Application.Exit()

L'unico problema adesso è che il programma non smette mai di leggere il file CSV.
Secondo me è un problema del ciclo While o al massimo, perchè non "scorre" le righe.
Come potrei risolvere?