Olá eu costumo fazer assim:

1. Dim strLinha as String
2. strLinha = "Linha a ser incluída."
3. Open "C:\teste.txt" For Append As #1
4. Print #1, strLinha
5. Close #1


(1) Declaração de uma variável.
(2) Atribuição de uma string.
(3) Abrindo um arquivo de nome teste.txt na memória como #1, atenção a para a palavra Append que diz ao VB para acrescentar novas linhas no final do arquivo.
(4) Esta é a linha onde o conteúdo da variável strLinha no arquivo #1.
(5) Depois de acrescentar quantas linha quiser use o Close para fechar o arquivo.