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

'==== Вариант чтения из файла i-той строки 
  'Let i = 3
 
   i = 3
               FilePage% = FreeFile: k = 0
      Open App.Path & ' ' & 'MyFile.txt' For Input As #FilePage%
         Do While Not EOF(FilePage%)
           Line Input #FilePage%, buffFil
               k = k + 1
            if i = k then and buffFil <> '' Then 
              Text1.Text = buffFil 
              Exit Do
            End if 
         Loop
      Close #FilePage%
' --------------------------

i = 3
FilePage% = FreeFile: k = 0
Open App.Path & ' ' & 'MyFile.txt' For Input As #FilePage%
Do While Not EOF(FilePage%)
Line Input #FilePage%, buffFil
k = k + 1
if i = k and buffFil <> '' Then 
Text1.Text = buffFil 
Exit Do
End if 
Loop
Close #FilePage%
' --------------------------

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