Как отобразить содержимое текстового файла на форме - VB

Формулировка задачи:

Здравствуйте Наткнулся на такую проблему: знаю как открыть определенный файл,

f = FreeFile
Open "c:\1.txt" For Input As f' Открываем файл 1.txt для чтения
Text1.Text = Input(LOF(f), f) 'Считываем текст из открытого файла в текстовое поле(Оператор LOF(Len Of File) определяет длину файла)
Close f

знаю как вызвать окно выбора файла

Private Sub Command1_Click()
CD1.ShowOpen ' Вызываем окно открытия файлов
End Sub
 
Private Sub Form_Load()
CD1.Filter = "Ворд|*.doc|Текстовые|*.txt|Приложения|*.exe|Все файла|*.*|" ' Даем право выбора юзеру
End Sub

А как сделать так, что бы человек, нажав на кнопку получал окно выбора текстового файла, а затем, выбрав его, он открывался в Text1., которая так же присутствует в уже готовой форме. Да и как сделать сохранение файла поверх уже созданного (не понял немного) Заранее всем спасибо огромное.

Решение задачи: «Как отобразить содержимое текстового файла на форме»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    CD1.ShowOpen ' Вызываем окно открытия файлов
    F = FreeFile
    Open CD1.FileName For Input As F ' Открываем файл 1.txt для чтения
         Text1.Text = Input(LOF(F), F) 'Считываем текст из открытого файла в текстовое поле(Оператор LOF(Len Of File) определяет длину файла)
    Close F
End Sub
                        