Buenas me gustaria saber como puedo hacer para crear archivos txt desde mi programa...

es decir que si el archivo no existe me lo cree mi programa y si esxiste el archivo me borre el contenido y escriba el contenido de una variable...

yo tengo el siguiente codigo:
pero este codigo ni me crea el archivo cuando no existe ni me borra el contenido...

Gracias

Dim cad As String
cad = "10101010"
Open App.Path + "\archivo.txt" For Append As #2
Print #2, cad
Close #2

Para escribir en el o crearlo si no exite. (si existe lo machaca)
Dim cad As String
cad = "10101010"
Open App.Path + "\archivo.txt" For Output as #1
Write #1, cad
Close #1


Para leer el archito y guardar el contenido en una variable (cad2)
Dim cad2 as String
Open App.Path + "\archivo.txt" For Input as #1
Input #1, cad2
Close #1