Private Sub start2_Click()
Dim FN As Integer
Dim F As Integer
Dim j As Long
Dim test As String
Dim sLine(0 To 9999) As String
    j = 0
    FileCopy m_astrFiles(0), "C:\test.txt"
    FN = FreeFile
    Open m_astrFiles(0) For Input As #FN
    F = FreeFile
    Open "C:\test.txt" For Output As #F
        Do While Not EOF(FN)
            j = j + 1
            Line Input #FN, sLine(j)
            Print #F, StrConv(sLine(j), 0)
        Loop
    Close #FN
    Close #F
End Sub