Ecco qui un esempio...
Prova così

Private Sub Drive1_Change()
On Error GoTo GestoreErrori
Dir1.Path = Drive1.Drive
Exit Sub

GestoreErrori:

If Err.Number = numero_errore Then
'Periferica non disponibile.
MsgBox "Unable to find the specific unit.Select an other drive and try again."
Drive1.Drive = Dir1.Path
End If
End Sub