nn sono sikuro di aver capito , prova questo esempio, ciao
codice:
Private Sub Combo1_Click()
Dim cartella As String
    cartella = Combo1.Text
    File1.Path = "C:\" & cartella
End Sub

Private Sub Form_Load()

Combo1.Clear
Combo1.AddItem "windows"
Combo1.AddItem "programmi"
   
End Sub