Visual Basic - Crear archivo .txt

Como hago para crear un archivo .txt usando un Common dialog para que me cree el archivo donde le indico.
Hice algo así pero no me crear nada

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

archivo = Cdialog.FileName

cd1.CancelError = True
cd1.DefaultExt = "*.crd"
cd1.Filter = "Microsoft Excel (*.xls)|*.xls"
cd1.FileName = sArchivo
cd1.ShowSave
If Err Then
Else
FileName = cd1.FileName
End If

Donde cd1 es el command dialog

perdón, en tu caso cambia XLS por TXT.

Suerte.