Выбрать слова из тексового файла и поместить их в поля таблицы access

Sub InputTxtFile()
    Dim stroka As String, strs, ff, nStrok(), i, k, rst As DAO.Recordset
    strs = "c:\temp\1.txt"
    ff = FreeFile
    nStrok = Array(11, 18) 'Массив номеров строк. 
    
    With CurrentDb.OpenRecordset("select * from МояТаблица")
    Open strs For Input As #ff
    Do While Not EOF(ff)
        k = k + 1
        Input #ff, stroka
        For i = LBound(nStrok) To UBound(nStrok)
            If nStrok(i) = k Then
                .AddNew
                !ПолеКудаПишем = stroka
                .Update
            End If
        Next
    Loop
    End With
 
    Close #ff
End Sub

Sub InputTxtFile()
    Dim stroka As String, strs, ff, nStrok(), i, k, j, rst As DAO.Recordset
    strs = "c:\temp\1.txt"
    ff = FreeFile
    nStrok = Array(11, 18) 'Массив номеров строк. 
    
    With CurrentDb.OpenRecordset("select * from МояТаблица")
    Open strs For Input As #ff
    .AddNew
    Do While Not EOF(ff)
        k = k + 1
        Input #ff, stroka
        For i = LBound(nStrok) To UBound(nStrok)
            If nStrok(i) = k Then
                j = j +1
                .Fields(j) = stroka
            End If
        Next
    Loop
    .Update
    End With
 
    Close #ff
End Sub

if len(stroka)>0 Then
    j = j +1
    .Fields(j) = stroka
end if

Sub InputWriteTxtFile()
    Dim stroka As String, strs, strs2, ff, ff2, pstroka, i, k
    strs = "c:\temp\1.txt"
    strs2 = "c:\temp\1-1.txt"
    ff = FreeFile
    Open strs For Input As #ff
    ff2 = FreeFile
    Open strs2 For Output As #ff2
    
    Do While Not EOF(ff)
        k = k + 1
        Line Input #ff, stroka
        If Len(Replace(Replace(stroka, " ", ""), Chr(9), "")) > 2 Then
            pstroka = pstroka & stroka & vbCrLf
        End If
    Loop
    Print #ff2, pstroka
    Close #ff
    Close #ff2
 
    Kill strs
 
End Sub

Sub InputWriteTxtFile()
    Dim stroka As String, strs, strs2, ff, ff2, pstroka, i, k, p
    strs = "c:\temp\1.txt"
    strs2 = "c:\temp\1-1.txt"
    ff = FreeFile
    Open strs For Input As #ff
    ff2 = FreeFile
    Open strs2 For Output As #ff2
    
    Do While Not EOF(ff)
        k = k + 1
        Line Input #ff, stroka
        If Len(Replace(Replace(stroka, " ", ""), Chr(9), "")) > 2 Then
            pstroka = pstroka & stroka & vbCrLf
        End If
    Loop
    
    p = Split(pstroka, "электронно-цифровая подпись") '
    pstroka = p(0) & "электронно-цифровая подпись" '
    
    Print #ff2, pstroka
    Close #ff
    Close #ff2
 
    Kill strs
End Sub