Ho provato a cercare sul forum ma è partito il server...la ricerca non va +!

Sto creando un programma che mi scrive dei file di testo, però adesso è limitato nel fatto che li salva dove dice lui...come potrei far apparire una finestra di dialogo che mi chiede dove salvarlo??? E come lo inserisco nel codice?

Private Sub Command5_Click()

Dim nome_file As String
nome_file = txtNome.Text


On Error Resume Next
Kill "C:\" & nome_file & ".txt"

Open "C:\" & nome_file & ".txt" For Append As #1
Print #1, "Ciao
Close #1

End Sub