Pelo que entendi de sua duvida é que vc quer pegar o conteudo de um arquivo TXT e jogar em um text box.
Se for isso tente esse codigo...
Dim Arq as Long
Dim Linha As String
Dim Texto as string
Arq = FreeFile
Open "CaminhoNomeArq.txt" For Input As Arq 'Abre o arquivo para leitura
Do Until EOF(Arq) 'Lê o arquivo ate o fim
Line Input #Arq, Linha 'Puxa o que esta escrito na linha, passando de uma em uma linha
Texto=Texto & Linha 'Adiciona no text
Loop
Text1.text = Texto
Close Arq 'Fecha o arquivo