Чтение из текстового файла не только первой строчки - VB

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

Такая проблема, в общем. Есть файл с несколькими строками. Например, первая строчка - путь к базе данных, вторая - путь к бэкапам и так далее. Как прочитать оттуда нужную строку, допустим по ее номеру? ReadLine читает только первую строку. Или надо делать Do while not fs.EOF?

Решение задачи: «Чтение из текстового файла не только первой строчки»

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

                            Function GetLineByNumber(LineNumber As Integer) As String
'Писалось для MS Access 2000
Dim fs, fx, z As String
z = Application.CurrentProject.Path
Set fs = CreateObject('Scripting.FileSystemObject')
 
Set fx = fs.opentextfile(z & 'Config.cfg', 1, False)
    Dim p As Integer
    Dim u As String
p=0
    Do While fx.atendofstream <> True
        p = p + 1
        u = fx.readline
        If p = LineNumber Then GetLineByNumber = u
        u = ''
    Loop
 
End Function
                        