Public Function readFile()
Dim strLine As String
Open  "C:\myfile.txt "  For Input As # 1 
    Do While Not EOF( 1 )
     Line Input # 1 , strLine
     MyPars strLine
    Loop
Close # 1 
End Function

Public Function MyPars(strLineTxt As String)
Dim intSl1 As Integer
Dim str1 As String
Dim intKod As Integer
Dim rst As Recordset 'написано в A97!

intSl1 = InStr(strLineTxt, "\") 'Получаем позицию первого слеша
str1 = Left(strLineTxt, intSl1 -  1 ) 'получаем  строку до первого слеша

If InStr(str1, "KOD") > 0 Then 'если нашли выражение KOD
    intKod = Val(Mid(str1,  5 , Len(str1) -  4 )) 'получаем числовое значение KOD
End If

Set rst = CurrentDb.OpenRecordset("Mytable")
With rst ' добавление  записи
    .AddNew
    ![Код] = intKod
    .Update
End With

End Function

If InStr(str1,  "KOD" ) >  0  Then 'если нашли выражение KOD
    Debug.Print str1  'анализируемый кусок строки
    Debug.Print Mid (str1,  5 , Len(str1) -  4 ) 'текстовый кусок с числом
    Debug.Print Val(Mid(str1, 5, Len(str1) - 4)) 'числовое значение
    intKod = Val(Mid(str1,  5 , Len(str1) -  4 )) 'получаем числовое значение KOD
End If

intSl1 = InStr( 2 ,strLineTxt,  "\" ) 'Получаем позицию первого разделяющего слеша
и выделение первой строки
str1 = Mid (strLineTxt,2, intSl1 - 1) 'получаем  строку до первого разделяющего слеша

If InStr(str1,  "KOD" ) =  0  Then 'если нашли выражение KOD
    intKod = Val(Mid(str1, 5, Len(str1) - 4)) 'получаем числовое значение KOD
End If

StringTxt        FieldTbl
REG=	       Region
WMI=            WMI
NAME=	       NameOrg

Public Function MyPars(strLineTxt As String)
Dim intTxt As Integer
Dim intSl As Integer
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
strLineTxt = strLineTxt &  "/" 
Set rst1 = CurrentDb.OpenRecordset( "Table1" )
Set rst2 = CurrentDb.OpenRecordset( "Table2" )

rst2.AddNew
rst1.MoveFirst

Do While Not rst1.EOF
    intTxt = InStr(strLineTxt, rst1!StringTxt)
    intSl = InStr(intTxt, strLineTxt,  "/" )
    rst2(rst1!FieldTbl) = Mid(strLineTxt, intTxt + Len(rst1!StringTxt), intSl - intTxt - Len(rst1!StringTxt))
    rst1.MoveNext
Loop

rst2.Update

End Function