Lendo e Escrevendo em arquivos usando o objeto TextStream do  FileSystemObject ! 

A funcionalidade do objeto TextStream do FileSystemObject presente no VB6 permite ler e escrever arquivos. Veja:

1-) Inicie um novo projeto no Visual Basic e no formulário padrão insira dois botões de comando (command1 e command2 ) ,  e uma caixa de texto ( text1 ) com a propriedade Multiline=True

2-) Faça uma referência a biblioteca Microsoft Scripting Runtime ( SCRRUN.DLL )

3-) Insira o seguinte código no evento click do botão de comando

Private Sub Command1_Click()
Dim fso As New Scripting.FileSystemObject
Dim ts As Scripting.TextStream

Set ts = fso.OpenTextFile("c:\teste\teste.txt", ForReading)

Text1.Text = ts.ReadAll

ts.Close
End Sub
Código para ler o conteúdo do arquivo teste.txt e exibir o resultado na caixa de texto text1.text

4-) Para criar um arquivo e escrever nele usando o objeto TextStream,  insira o código a seguir no evento click de command2

Private Sub Command2_Click() 

Dim fso As New Scripting.FileSystemObject
Dim ts As Scripting.TextStream

Set ts = fso.OpenTextFile("c:\teste\meutexto.txt", ForWriting, True)  'abre um arquivo para escrita , se não existir cria

ts.Write Text1.Text
ts.Close
Set ts = Nothing

End Sub

Código para criar um arquivo e escrever nele

5-) Rode o projeto e divirta-se... ( Você pode ir além .... que tal criar seu processador de texto. !!! )

Bye...