Cara use este codigo que eu montei
n = FreeFile()
Open App.Path & "\resultados.txt" For Input As #n
arquivo = Input(LOF(n), n)
Close #n
Open App.Path & "\resultados.txt" For Output As #1
Print #1, Text1.Text
Print #1, arquivo
Close #1
Ele carrega o seu arquivo todo para a variavel "arquivo"