Open "C:\blockdenotas.txt" For Append As #1 'Archivo que guardara lo contenido en text1.text
Write #1, Text1.Text 'guardas el Text1
Close #1 'Cerras el archivo
en donde va Append lo puedes cambiar por Output .. al poner Append no borra lo que ya contiene el txt.. si no que lo escribe abajito del text y asi secesivamente.
y si pones Output sobrescribe todo.. ( borra todo lo que ya tenias )
Hay muchos post con la misma pregunta.. ^^
Pon Buscar para la proxima amigo.. te ayudara mas