Выбрать строку в текстовом файле

f = FreeFile
pathx = App.Path & "\" & "option.txt"
Open pathx For Input As f
MsgBox Input(LOF(f), f) 
Close f

Private Function v(fold As String, num) As String
If IsNumeric(num) = False Or num < 1 Then
v = "номер строки некорректный"
Exit Function
End If
Dim F As Long
Dim k As Integer, MyText As String
F = FreeFile
k = 0: v = ""
If Dir(fold) <> "" Then
Open fold For Input As #F
Do Until EOF(F)
k = k + 1
Line Input #F, MyText
If k = num Then
v = MyText
Exit Do
End If
Loop
Close #F
If v = "" Then v = "строка пустая либо номера не сущ."
Else
v = "путь не найден"
End If
End Function
 
Private Sub Command1_Click()
MsgBox v("D:\d\ddd.txt", InputBox("номер строки"))
End Sub

Public Sub opens()
Dim rc$
Dim x, dirs
dirs = Dir(App.path & "\" & "ops.ini")
If dirs = "ops.ini" Then
Open App.path & "\" & "ops.ini" For Input As #1
Do Until EOF(1)
        Line Input #1, rc$
        x = x + 1
        On Error GoTo Oshibka
        Select Case x  'х = строка
           Case 1 'если считывается первая то.....
               frmServer.txtOutput.BackColor = rc$
           Case 2
               frmServer.txtOutput.ForeColor = rc$
           Case 3
               frmServer.nik.Text = rc$
           Case 4
               frmServer.txtOutput.Width = rc$ / 80793
           Case 5
               frmServer.txtOutput.Height = rc$ / 80793
           Case 6
               frmServer.txtSendData.Width = rc$ / 80793
           Case 7
                frmServer.txtSendData.Height = rc$ / 80793
           Case 8
                frmServer.Command1.Width = rc$ / 80793
           Case 9
                frmServer.Command1.Height = rc$ / 80793
           Case 10
                 frmServer.Shape1.Width = rc$ / 80793
           Case 11
                frmServer.Shape1.Height = rc$ / 80793
           Case 12
                 frmServer.nik.Width = rc$ / 80793
           Case 13
                frmServer.nik.Height = rc$ / 80793
           Case 14
               frmServer.txtOutput.Left = rc$ / 80793
           Case 15
               frmServer.txtOutput.Top = rc$ / 80793
           Case 16
               frmServer.txtSendData.Left = rc$ / 80793
           Case 17
               frmServer.txtSendData.Top = rc$ / 80793
           Case 18
                frmServer.Command1.Left = rc$ / 80793
           Case 19
                frmServer.Command1.Top = rc$ / 80793
           Case 20
                frmServer.Shape1.Left = rc$ / 80793
           Case 21
                frmServer.Shape1.Top = rc$ / 80793
           Case 22
                frmServer.nik.Left = rc$ / 80793
           Case 23
                frmServer.nik.Top = rc$ / 80793
           Case 24
                frmServer.Height = rc$ / 80793
           Case 25
                frmServer.Width = rc$ / 80793
                End Select
    Loop
Close #1
Else
End If
Oshibka:
If Err = "13" Then
Close #1
MsgBox "Поврежден файл параметров", 48 + 0, "Ошибка"
DeleteFile App.path & "\" & "ops.ini"
MsgBox "Файл параметров удален", 64 + 0, "Уведомление"
End
End If
End Sub

Private Function v(fold As String, num) As String
On Error GoTo 1
Dim F As Long
Dim k As Integer, MyText As String
F = FreeFile
k = 0: v = ""
Open fold For Input As #F
Do Until EOF(F)
k = k + 1
Line Input #F, MyText
If k = num Then
v = "номер строки:  " & num & "    значение:" & MyText
Exit Do
Else
v = "номер строки:  " & num & "    значение:  пусто "
End If
Loop
Close #F
Exit Function
1 v = "Error"
End Function
 
Private Sub Command1_Click()
MsgBox v("D:\d\прп.txt", 3) '(путь,номер строки)
 
'или
'Dim stroka As String
'stroka = v("D:\d\прп.txt", 3)
 
'или
'Text1.Text = v("D:\d\прп.txt", 3)
End Sub