Excel VBA

Determine Parse Position

Sub DeterminePosition()
'Used to create a file to determine position across lines
    Dim AlphaArray, daNumber, dLog
    Close #1, #2
    AlphaArray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
       1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, _
       0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, _
       0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, _
       1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, _
       2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, _
       3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, _
       4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, _
       5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
    Open "c:\documents and settings\" & Application.UserName & _
        "\my documents\BENT0404" For Input As #2
    Open "c:\documents and settings\" & Application.UserName & _
        "\my documents\Count0404B.txt" For Output As #1
        Do While Not EOF(2)
            Line Input #2, Brick2
 'Line Input does the whole row; 
                                                ' plain Input line-feeds at commas
                Print #1, Brick2
                For X = 1 To Len(Brick2)
                    daNumber = daNumber & AlphaArray(X)
                Next
            Print #1, daNumber
            dLog = Null
            daNumber = Null
        Loop
    Close #1, #2
    MsgBox "Done", vbInformation
End Sub

this Application for Payment has been completed in accordance 
123456789012345678901234567890123456789012345678901234567