Open wbPath For Input Lock Read As # 1 

Public Function IsFileInUse(ByRef txtFullPath As String) As Boolean
IsFileInUse = False
If Len(Dir(txtFullPath)) =  0  Then Exit Function 'файла нет, нет и его занятости.
Dim dteEnd As Date
dteEnd = DateAdd("s",  10 , Now())        'задаем интервал ожидания в 10 с
Dim fso As New FileSystemObject, testFile As Scripting.TextStream

On Error GoTo ErrHandler                'оператор действует в рамках ВСЕЙ функции,
                                        'здесь он - для акцента на операции Open File
'Следующий оператор должен генерировать ошибку, если файл занят:
Set testFile = fso.OpenTextFile(Filename:=txtFullPath, IOMode:=ForAppending, Create:=False)
'сюда попадаем, если ошибки нет, следовательно, файл свободен ForAppending.
'но Appending будет не здесь, здесь- просто проверка, что такая операция возможна, поэтому:
DoEvents
testFile.Close
Exit Function
'Сюда попадаем, если файл ещё не освобождён предыдущей операцией:
'операция продолжается под управлением ОС, а программа об этом не подозревает!
ErrHandler:
Dim lngErrCode As Long, strErrDscr As String
lngErrCode = Err.Number
strErrDscr = Err.Description
Err.Clear
If dteEnd > Now() Then
    Sleep  100            'Спи, моя радость, усни... на 100 миллисекунд
    Resume              'execution resumes with the statement that caused the error.
Else
    MsgBox txtFullPath & vbCrLf & _
        "Ошибка открытия файла для добавления записей." & vbCrLf & _
        "Код ошибки:" & lngErrCode & vbCrLf & _
        strErrDscr, vbInformation + vbOKOnly, "Функция IsFileInUse..."
End If
IsFileInUse = True
End Function