Do
    line = sr.Readline()
    If line IsNot Nothing Then
        field = Split(line, ",")
        sw.WriteLine(field(0) & " " & field(2) & " " & field(3))
    End If
Loop Until Line Is Nothing

line = sr.Readline()
Do While line IsNot Nothing
    field = Split(line, ",")
    sw.WriteLine(field(0) & " " & field(2) & " " & field(3))
    line = sr.Readline()
Loop

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov