Загрузка текстового файла, через ActiveX - VB

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

Нужно сделать загрузку текстового файла, через ActiveX. Например у меня есть текст в блокноте, нужно запихнуть его в текстбокс.

Вот нашел исходник,

Private Sub Command1_Click()
Dim F As Long
Dim Stroka As String
Text1.Text = ""
CommonDialog1.Filter = "Г’ГҐГЄГ±ГІГ®ГўГ»ГҐ ГґГ*Г©Г«Г» (*.txt)|*.txt"
CommonDialog1.ShowOpen
F = FreeFile
Text2.Text = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #F
Do While Not EOF(F)
Line Input #F, Stroka
Text1.Text = Text1.Text & Stroka
Loop
Close #F
End Sub

После строки CommonDialog1.ShowOpen нечего не понимаю(, помогите

Решение задачи: «Загрузка текстового файла, через ActiveX»

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

                            Private Sub Command1_Click()
Dim F As Long
 
F = FreeFile
Open "указать полный путь к файлу" For Input As #F 'открываем файл ддля чтения
Text1.Text = F
Close #F 'закрываем файл
End Sub
                        