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

[bosscs]

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 нечего не понимаю, плз обьясните.
И можно ли написать вместо цикла DO WHILE - If then
А то совсем не понимаю такие циклы
Заранее спс

[Interceptor]

Узнаю старый добрый VB :)

'получение свободного дескриптора для использования в методе OPEN
F = FREEFILE

'присвоение контролу имени файла
Text2.Text = CommonDialog1.FileName

'открытие файла для чтения по имени взятом из CommonDialog1.FileName и присвоение дескриптора переменной F
OPEN CommonDialog1.FileName FOR INPUT AS #F

'Начало цикла до тех пор пока входной поток не кончится (файл не прочитается до конца)
DO WHILE NOT EOF(F)

'Чтение из файла в переменную Stroka
LINE INPUT #F, Stroka

'конкатенация уже имеющегося текста в контроле с текстом переменной Stroka
Text1.Text = Text1.Text & Stroka
LOOP 'оператор окончания цикла
CLOSE #F 'закрытие файла

Можно написать используя IF но тогда GOTO придется поюзать для организации цикла четния