Public Function IsDriveReady(ByVal drive As String) As Boolean _
  'Laufwerksbereitschafts test sub
  Dim OldDrive As String
  Dim Result As Boolean
  On Local Error Resume Next
  OldDrive = CurDir()
  ChDir drive
  Result = (Err = 0)
  ChDir OldDrive
  On Local Error GoTo 0
  IsDriveReady = Result
End Function

Wieso soll man sich das leben schwer machen, wenn's das leben f?r einen tut?