CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Close a File for a given File Number
Option Explicit
 
Public Function CloseFile(ByVal FileNumber As Long) As Boolean
    On Error GoTo CloseFile_Error
 
    Close #FileNumber
    CloseFile = True
 
ExitHere:
    On Error GoTo 0
    Exit Function
 
CloseFile_Error:
    CloseFile = False
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure CloseFile of Form Form1"
End Function