Самый быстрый способ открыть текстовый файл - использовать байтовый массив. Добавьте текстовое окно и две кнопки. Установите свойства текстового окна MultiLine=True и ScrollBars=Both. Введите следующий код:

' Загрузка текста из файла
Private Sub Command1_Click()
Dim Text() As Byte
Open "c:\1.txt" For Binary As #1
ReDim Text(LOF(1))
Get #1, , Text
Close #1
Text1.Text = StrConv(Text, vbUnicode)
End Sub

' Запись текста в файл
Private Sub Command2_Click()
Dim Text() As Byte
Text = StrConv(Text1.Text, vbFromUnicode)
' Если такой файл уже существует, то его нужно удалить.
' Дело в том, что оператор Put вписывает новые значения, не удаляя полностью
' предыдущие.
' Например, если файл содержал строчку "Текстовый файл"
' и Вы решили заменить ее на просто "Файл", то в результате
' получится "Файлтовый файл"
If Dir("c:\1.txt") <> "" Then Kill "c:\1.txt"
Open "c:\1.txt" For Binary As #1
Put #1, , Text
Close #1
End Sub