Public Sub Drive1_Change()
On Error GoTo fehler
weiter:
x = Drive1
Dir1.Path = Drive1.Drive
Label1 = x
Exit Sub
fehler:
If Err.Number = 68 Then
    Meldung = "Kein DatenträgerVorhanden"
    Antwort = MsgBox(Meldung, vbOKOnly)
    If Antwort = 1 Then
        Drive1 = "C:"
        Resume weiter
    End If
End If
End Sub