VB代码优化

这两天做了一个关于EXCEL转换TXT文档的小程序，但是在运行过程中转换数据的效率感觉有点低，望各位路过的高手帮忙想点办法优化下，昨天下午测试并优化了一下午，现在处理的速度为每秒100条左右。（附：电脑机器配置：CPU:赛扬 3.0 内存：1G）For dblRow = 1 To myCount
    strCol = ""
    myString = ""
    For dblCol = 1 To 5
        strCol = xlsheet.Cells(dblRow, dblCol).Value
        Select Case dblCol
            Case 1
                myString = myString & Trim(strCol) & Space(12 - lstrlen(strCol + Chr(0))) & ","
            Case 2
                myString = myString & Trim(strCol) & Space(30 - lstrlen(strCol + Chr(0))) & ","
            Case 3
                myString = myString & Trim(strCol) & Space(17 - lstrlen(strCol + Chr(0))) & ","
            Case 4
                myString = myString & Trim(strCol) & Space(30 - lstrlen(strCol + Chr(0))) & ","
            Case 5
                myString = myString & Trim(strCol) & Space(12 - lstrlen(strCol + Chr(0)))
        End Select
    Next
        tsfile.WriteLine (myString)
        dblTotal = dblTotal + 1
        Label5.Caption = dblTotal
        ProgressBar1.Value = ProgressBar1.Value + 1
Next