CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Open a File and return the File Number
Option Explicit
 
Public Function OpenFile(ByVal FilePath As String) As Long
    On Error GoTo OpenFile_Error
 
    If Len(Dir$(FilePath)) = 0 Then
        OpenFile = -1
        Exit Function
    End If
 
    OpenFile = FreeFile
    Open FilePath For Input As #OpenFile
 
ExitHere:
    On Error GoTo 0
    Exit Function
 
OpenFile_Error:
    OpenFile = -2
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure OpenFile of Form Form1"
End Function