VBでCSV読み込み & 書き出しの処理速度向上について

    temp = Split(sr1.ReadLine(), ",")
    Dim params As New List(Of String)
    spt = Split(temp(0), "/")   ' 年月日分解
    params.Add(spt(2))          ' 年
    params.Add(spt(0))          ' 月
    params.Add(spt(1))          ' 日
    params.Add(temp(1))
    params.Add(temp(2))
    params.Add(temp(3))

    ' 取得結果を書き出し
    sw1.WriteLine(String.Join(",", params.ToArray()))

Dim temp() As String
Dim year As String
Dim month As String
Dim day As String
Dim reg As Regex = New Regex("/|,", RegexOptions.Compiled)

Dim sr1 As New System.IO.StreamReader("読み込みファイル名", System.Text.Encoding.Default)
Dim sw1 As New System.IO.StreamWriter("書き出しファイル名", False)
'ファイルの最後までループ 
Do Until sr1.Peek() = -1
    temp = reg.Split(sr1.ReadLine())

    year = temp(2)
    month = temp(1)
    day = temp(0)
    temp(0) = year '年 
    temp(1) = month '月 
    temp(2) = day '日 
    '取得結果を書き出し 
    sw1.WriteLine(String.Join(",", temp))
Loop
sr1.Close() 'ファイルを閉じる 
sw1.Close()