Se vuoi aprire E:\ lo selezioni nella lista dei drive ... Non hai detto che hai un oggetto Drivelistbox sul form ? Basta che al cambiare del drive aggiorni la lista delle cartelle con

codice:
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub
(ovviamente i nomi dei controlli sono esempi)