Crear Archivo .txt

[chan]

Hola, estoy queriendo crear un archivo .txt y para eso utilizo un common dialog llamado Cdialog donde hago lo siguiente:

With Cdialog
.CancelError = True
.DialogTitle = "Crear archivo"
.InitDir = App.Path
.Filter = "Archivos de texto (*.txt)|*.txt"
.ShowSave
End With

archivo = Cdialog.FileName

Esto no me crea nada... quisiera saber como crear el archivo, y que lo guarde en el lugar indicado por el common dialog