Exportación de archivos de texto desde access

Private Sub Command1_Click()
'GUARDAR DATOS EN UN FICHERO DE TEXTO
'Abre un fichero de datos, si no existe lo crea.
'Mira las opciones que hay para Random
Open "Archivo.txt" For Random As #1 Len = Len(FicheroDatos)
Text1.Text = ""
'LEER DATOS DE UN FICHERO DE TEXTO
Get #1, 1, FicheroDatos.Valor
Text1.Text = Text1.Text & Chr(13) & FicheroDatos.Valor
Get #1, 2, FicheroDatos.Valor
Text1.Text = Text1.Text & Chr(13) & FicheroDatos.Valor
Close #1
'Los archivos se pueden abrir i cerrar de muchas maneras, puedes leer un archivo
'en modo binario, es decir caracter a caracter, etc.
'
'Este es un ejemplo de como leer tu txt, supongo que teniendo la manera de como leerlo tu ya sabes como guardarlo en access
End Sub