Works well in VB4 show run time error 53 with VB6

Hi, I'm trying convert an old VB4 program to VB6, and show a running error 53, please see the full code attached.
Thanks

Function OpenFileInputRead(tFileName$) As Integer
OpenFileInputRead = FreeFile
Open tFileName$ For Input Access Read As OpenFileInputRead
End Function

Attached Files

• OpenFileImputRead.zip (3.0 KB)