Non è una funzione è proprio un comando di Vb6

Io lo uso cosi

Private Function Percorso
Dim perc As String
perc = BrowseFolder(Me.hWnd, " la cartella desiderata:")

Dim p, p1, p2, p3() As String
p = perc
p2 = Split(p, "\")
p1 = p2(UBound(p2) - 1) & "\" & p2(UBound(p2))

Text7.Text = p1
End Function

Eseguito in un pulsante

Cliccando sul pulsante si apre la classica finestra per sfogliare il PC, poi quando trovi la cartella cliccando su apri mi prende il percorso, esegui i suoi tagli lasciando il nome della cartella, la quale vado a salvarla nel database


Poi quando richiami i dati una textbox mi si popola con il nome di quella cartella.
Cliccando su APRI, mi esegue questa stringa

Shell "explorer " & Text7.Text & "", vbNormalNoFocus

che mi apre la cartella presente in quella textbox