BrowseForFolder, creare file

[redhack]

hello!!
sorry ma ho un problema con BrowseForFolder (quello per visualizzare la finestra di dialogo Sfoglia per Cartelle)

come faccio a creare un file (di testo) scegliendo a cartella scelta con il Browseforfolder??

es.

Premendo sul pulsante Sfoglia, mi si apre la finestra Sfoglia per Cartella, e in txtsfoglia mi compare il percorso della cartella (fin qui ci sono riuscito), poi premendo sul pulsante Crea, mi si crea il file prova.txt nella cartella che ho scelto..

come faccio'??
thx

[redhack]

ci sono riuscito
ho messo

Dim cartella As String, documento As String, FileNumber As Integer

cartella = Percorso                      
documento = cartella & "\prova.txt"    'Nome file
FileNumber = FreeFile

Open documento For Output As #FileNumber ' Crea un nome di file e se già esiste lo sovrascrive