'Use assim que irá funcionar...
'Coloque um textbox com as seguintes propriedades:
'Deixe o textbox bem grande, tanto na largura como na altura.
TextBox1.Multline = True
TextBox1.ScrollBars = 3
Em um botão acrescente o seguinte código:
Dim mTexto_Completo as String
Dim mTexto_Linha as String
Dim mStr as String
Open "C:Texto.txt" For Input As #1
Do While Not EOF(1)
Line Input #2, mTexto_Linha
mTexto_Completo = mStr + mTexto_Linha
mStr = mStr + mTexto_Linha + vbCrLf
Loop
Close #1
TextBox1.Text = mTexto_Completo
'Pronto !!!
'Ao clicar no botão seu texto vai estar todo certinho dentro do TextBox1.
