Excel - Crear archivo TXT

Hola a todos.
Con el siguiente codigo, abro un archivo de texto (creado previamente) en el disco C:

Workbooks.OpenText Filename:="C:\citi.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
0, 1), TrailingMinusNumbers:=True

Pregunta:
Si el archivo no existe (citi.txt), como hago para crearlo ?

Gracias

Mira este enlace:

http://www.todoexcel.com/foro-excel/macros/macro-para-generar-archivo-txt-desde-excel-t11454.html

Gracias por responder.
Lei el enlace que me enviaste e hice un "injerto" con el codigo que tenia, quedando de la siguiente manera:
(cuando no existe, lo crea perfectamente).
--------------------------------------------------------------------------------------------------------------------------
If Dir("c:\citi.txt") = "" Then
MsgBox "El archivo txt no existe, sera creado", 64, "Prueba"

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\citi.txt", True)
End If

' Abro el archivo de texto
Workbooks.OpenText Filename:="C:\citi.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
0, 1), TrailingMinusNumbers:=True
-----------------------------------------------------------------------------------------------------------------------
El problema se produce cuando lo abro, lo hace como "solo lectura" y esto me trae trabas al momento de grabarlo y cerrarlo.

Gracias y saludos