Private Sub Beispiel()
  On Error Goto Handler
 
  Dir$ ("a:\autoexec.bat")
 
  On Error GoTo 0
 
  Exit Sub
 
:Handler
  If Err.Number = 52 Then
    MsgBox "Laufwerk A: nicht bereit"
 
    ' hier kommt der Code für die Protokollierung
 
    Err.Number = 0
    Resume Next
  End If
End Sub

Gruß
Marcus