Visual Basic - Error con DriveListBoxt

Hola, tengo un problema con DriveListBox. el problema viene cuando intento acceder a una unidad que no esta disponible. La primera vez que intento acceder a una unidad no disponible, sale el mensaje que yo le he dado que es "Unidad no preparada". El problema viene cuando vuelvo a intentar acceder nuevamente a una unidad no preparada, que me da un error como este. Errror 68 en tiempo de ejecucion. El dispositivo no esta disponible. El codigo que tengo es este

On Error GoTo Unidad_no_disponible
Dir1.Path = Drive1.Drive
Drive1.Refresh
Dir1.Refresh
Exit Sub
Unidad_no_disponible:

MsgBox "Unidad " & Drive1.Drive & " no preparada", vbCritical +_ vbDefaultButton1, "Error"

ChDrive "c"
Drive1.Drive = "c"
Dir1.Path = Drive1.Drive
Dir1.Path = Drive1.Drive
Drive1.Refresh

Como puedo evitar este error

Muchas Gracias¡¡¡

Yo utilizo esto , haber chekalo si te sirve:
Private Sub Drive1_Change()
On Error GoTo DriveHandler
Dir1.Path = Drive1.Drive
Dir1_Change
Exit Sub
DriveHandler:
MsgBox "Asegurese de tener colocado un disco en la unidad " & UCase(Drive1.Drive) & "\", vbCritical, "Sistema"
Drive1.Drive = Dir1.Path
Exit Sub
End Sub