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...