Vitor, procurei rapidinho aqui e encontrei um exemplo de como criar um arquivo de log de erros, que faz exatamente como você precisa, acrescentar linhas a um texto já salvo.
Veja de dá para você entender e fazer as adaptações necessárias para você usar
Public Sub registraLogErros(ByVal lNumero As Long, ByVal sDescricao As String, ByVal sOrigem As String)
'define o objeto filesystem e demais variaveis
Dim fso As New FileSystemObject
Dim arquivo As File
Dim arquivoLog As TextStream
Dim msg As String
'se o arquivo não existir então cria
If fso.FileExists(caminho) Then
Set arquivo = fso.GetFile(caminho)
Else
Set arquivoLog = fso.CreateTextFile(caminho)
arquivoLog.Close
Set arquivo = fso.GetFile(caminho)
End If
'prepara o arquivo para anexa os dados
Set arquivoLog = arquivo.OpenAsTextStream(ForAppending)
'monta informações para gerar a linha com erro
msg = App.EXEName & " V " & App.Major & " " & " , Err. no: " & lNumero & " : " & sDescricao & " , Orig.: " & sOrigem & " , " & Now()
' inclui linhas no arquivo texto
arquivoLog.WriteLine msg
' escreve uma linha em branco no arquivo - se voce quiser
'arquivoLog.WriteBlankLines (1)
'fecha e libera o objeto
arquivoLog.Close
Set arquivoLog = Nothing
Set fso = Nothing
End Sub
Note, que o que faz esse procedimento é a linha em negrito
Espero ter ajudado novamente.
Qualquer coisa, posta novamente.
Até mais.
