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