Modules & VBA :: Access - Read From Text File

I have a text file that I am using VBA to read and print 2 pieces of data to another text file.The code works to a point, in some instances it does not appear to find the end of file but captures and writes all the data. Or, after printing 36 lines correctly, it then stops writing.

I have stepped through the code and it appears to be capturing the data up past this issue but for what ever reason it does not print it to my text file.

PHP Code:

Option Compare DatabaseOption Explicit    Public Mode As String    Public FUNDREF As String    
Public rst As String Function DAILYAUDITTRAIL()     Close #1    Close #2      Open "C:UsersTEST IN.TXT" For Input As #1    
Open "C:UsersTEST OUT.txt" For Output As # 2      Do While Not EOF(1)     
Line Input #1, rst     If rst Like "KM56Aasdf*" Then        FUNDFINDER    
End If     Loop  End FunctionFunction FUNDFINDER()          

[code]...