On Error Resume Next
Open "d:\test.txt" For Binary Lock Read Write As #1
If Err.Number = 70 Then
    MsgBox "Datei ist in Verwendund!"
End If
On Error Goto 0
 
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de