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

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