Добавляешь на форму Commpn Dialog Control. Дальше всё просто: Программа
Option Explicit
Dim ИмяФайла As String
Dim ff As String
Dim i As Integer
Private Sub Command1_Click()
CommonDialog1.ShowOpen
ИмяФайла = CommonDialog1.FileName
Open ИмяФайла For Random As #1
i = 0
Do While Not EOF(1)
i = i + 1
Get #1, i, ff
Text1.Text = Text1.Text & vbkeyenter & ff
Loop
Close #1
End Sub

Private Sub Command2_Click()
CommonDialog1.ShowSave
ИмяФайла = CommonDialog1.FileName
Open ИмяФайла For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Command3_Click()
i = Val(Text2.Text)
Text1.Text = ""
Open ИмяФайла For Input As #1
Do While Not EOF(1)
Line Input #1, ff
Text1.Text = Text1.Text & Chr(i) & ff
Loop
Close #1
End Sub

P.S. Там, кстати, у меня на форме 3 кнопочки, 2 текстовых окна