Узнаю старый добрый 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 придется поюзать для организации цикла четния