Ciao.
Nel codice di esempio che ti posto, ho una DirListBox ed una TextBox.
Al Click sulla DirListBox, ti comparirà il nome della cartella selezionata sulla TextBox:


codice:
Private Sub Dir1_click()
   Text1.Text = Dir1.List(Dir1.ListIndex)
End Sub

Fammi sapere se ho capito bene ciò che ti occorre.