Ciao..sarebbe più semplice usare un commondialog oppure un controllo drive, però se hai postato questa discussione significa che non puoi..
Ti propongo un metodo alquanto artigianale ma efficacie, in quanto ora non sono al computer di sempre e quindi quello ceh scrivo sono reminiscenze...
codice:
Dim Elenco As String, Drive As String

Elenco = "abcdefghilmnopqrstuvzwxyjk"

For i = 1 To Len(Elenco)

    Drive = Mid(Elenco, i, 1)

    Select Case GetDriveType(Drive & ":\")
        Case 2
            tipo = "Rimovibile"
            MsgBox Drive & ":\"
            Exit Sub 'oppure Exit for
        Case 3
            tipo = "Disco Fisso"
        Case Is = 4
            tipo = "Remoto"
        Case Is = 5
            tipo = "Cd-Rom"
        Case Is = 6
            tipo = "Disco Ram"
        Case Else
            tipo = "Non riconosciuto"
    End Select

next i
Ti è chiaro a cosa avevo pensato? La chiave USB sicuramente verrà riconosciuta come drive rimovibile: nel caso in cui tu abbia più unità rimovibili, è chiaro che trova solo la prima..

fammi sapere..

ciao