Private Sub Command1_Click()Open "C:\Archivo.txt" For Append as #1Print #1, "Hola Mundo"Close #1End Sub