Ciao ciro78,
prova il seguente codice che dovrebbe individuare l'unità attiva (nel tuo caso 1 "rimovibile"),
poi fai il settaggio:
codice:
Private Sub Command1_Click()
    Dim sPath As String
    Dim dPath As String
    Dim fso As FileSystemObject
    Dim Drv As Drive

    Set fso = New FileSystemObject
    For Each Drv In fso.Drives
        ' Trova l'unità attiva:
        If Drv.DriveType = 1 And Drv.IsReady Then
            sPath = Drv.DriveLetter & ":\"
            Exit For
        End If
    Next
    Text1.Text = sPath

End Sub
    
    '0 "sconosciuta"
    '1 "rimovibile"
    '2 "fissa"
    '3 "di rete"
    '4 "CD-ROM"
    '5 "disco RAM"