Error trapping when changing drive

[mvrp350]

Hi all,

I have a form with a dirlistbox and a drivelistbox.
When I change my drive to a: and there's no disk inserted it generates an arro6 68. But it isn't trapped. Can someone help me please?

Private Sub Drive1_Change()
 
On Error GoTo HSB_ErrorMsg
 
Dir1.Path = Drive1.Drive
Exit Sub
 
HSB_ErrorMsg:
    Screen.MousePointer = vbDefault
    MsgBox "An error occured during this action " & vbCrLf & Err.Number & " : " & Err.Description, vbExclamation, "HSB Error: HSBMng 1002"
    
End Sub