Código (vb) [Seleccionar]
Private Sub Command1_Click()
Dim strPath As String ' # Variable que contendrá la ruta del archivo.
Dim strTexto As String ' # Variable que contendrá el texto para ponerlo dentro del archivo.
' # Seteo de variables.
strPath = "C:\PoC.txt"
strTexto = "Hola Mundo"
Open strPath For Append As #1 ' # Abrimos el archivo.
Print #1, strTexto 1 ' # Escribimos en el archivo.
Close #1 ' # Cerramos el archivo.
End Sub