Hola, yo uso un código así..., lo conseguí acá en foros del web:
Dim cadena As String
Dim fichero As String
cadena = "Dirección de correo electrónico: " & direcciones.text
'donde dice direcciones.text, debes poner el nombre del campo donde están las direcciones
fichero = "C:\direcciones.txt"
'donde dice direcciones.txt debes poner el nombre de el archivo dónde estarán guardadas las direcciones.
Open fichero For Append Access Write As #1
Print #1, cadena
Close #1
Espero que te sirva
Facundo Cosimo