Private Sub drvLocal_Change()
    If drvLocal.Drive = "" Then
        MsgBox "Drive not found or empty"
        Exit Sub
    Else
        dirLocal.Path = drvLocal.Drive
    End If
End Sub