Чтение файла - адаптировать код из VB .NET

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

Добрый день! Давно мне помогали с кодом по чтению файла: Строка 1 (Для чтения и добавления в список) Строка 2 (Пропускаем) Код с VB 6 перенес на VB.NET, а назад не могу. Вот, что получилось:

                    Листинг программы
                
 
                        
                          
                    
MyFile = FreeFile
Open (App.Path & "\DBList.ini") For Input As #MyFile
    Do Until EOF(MyFile)
        Line Input #MyFile, tS
        MyText = tS
        List1.AddItem MyText
        MyText = tS
    Loop
Close #MyFile

Вот рабочий, но на .NET платформе:

                    Листинг программы
                
 
                        
                          
                    
        lstS.Items.Clear()
        F = FreeFile()
        FileOpen(F, GetFileName(typeStation), OpenMode.Input)
        Do Until EOF(F)
            MyText = LineInput(F)
            lstS.Items.Add(MyText)
            MyText = LineInput(F)
        Loop
        FileClose(F)

Файл:

Тестовая база данных №1 C:\Users\1\Desktop\DB\DATA\dbLGORT.accdb Главная база данных C:\dbLGORT.accdb

Пути не должны быть считаны, а только названия баз, то есть

Тестовая база данных №1

и так далее.

ВОПРОС, КАК СДЕЛАТЬ КОД НАЗАД НА VB 6 РАБОЧИМ ? ? ? ?

Решение задачи: «Чтение файла - адаптировать код из VB .NET»

textual
                            Листинг программы 
                        
 
                        
                          
                    
MyFile = FreeFile
Open (App.Path & "\DBList.ini") For Input As #MyFile
    Do Until EOF(MyFile)
        Line Input #MyFile, tS
        MyText = tS
        List1.AddItem MyText
        Line Input #MyFile, tS
    Loop
Close #MyFile