VBAで別フォルダにあるファイルが開いているかどうかを確認するプログラムを出してください

Function IsFileOpen(filePath As String) As Boolean
    Dim fileNum As Integer
    
    On Error Resume Next
    fileNum = FreeFile()
    Open filePath For Binary Access Read Write Lock Read Write As #fileNum
    Close #fileNum
    
    If Err.Number = 0 Then
        IsFileOpen = False
    Else
        IsFileOpen = True
        Err.Clear
    End If
End Function

Sub CheckIfFileIsOpen()
    Dim filePath As String
    filePath = "C:\Path\To\Your\File.txt" ' ファイルのパスを指定してください
    
    If IsFileOpen(filePath) Then
        MsgBox "ファイルは開いています。"
    Else
        MsgBox "ファイルは開いていません。"
    End If
End Sub