[vb6] aprire file da usb con command button

[valerioco]

ciao a me servirebbe aprire un file esterno(che sta sulla usb) con un commandbutton(fin qui ci sono)

Private Sub file_da_aprire_DblClick()
Dim file_da_aprire As String
file_da_aprire = Chr$(34) & "E:\cartella\file_da_aprire.exe" & Chr$(34)
X = Shell(file_da_aprire, vbNormalNoFocus)
End Sub

solo che la usb quando la inserisco nel mio pc è disco E ma quando la metto in altri pc è D,G,ecc(insomma cambia) come posso fare?
spero di essermi spiegato bene...