es medio dificil eso , es lo mismo q trates de conseguir el codigo fuente de windows

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Dim buffer
buffer = ("C:\archivo.txt)
Dim buffer2 As Integer
buffer2 = FreeFile
Open buffer For Output As #buffer2
Print #buffer2, "Hola - Linea 1"
Print #buffer2, "Bye - Linea 2"
Close #buffer2