Dim f, FileTxt$
Dim NameBSC$, NameUnit$, NumUnit%, IPUnit$

f = FreeFile
'DoCmd.CloseTable "tbl_BRD"
strSQL = "delete * from tbl_BRD"
CurrentDb.Execute (strSQL)

Open PathFile For Input As f
Do While Not EOF(f)
    'FileTxt = Input(0, #f)   '  посимвольное чтение
    Line Input #f, FileTxt    '  построчное чтение
    If FileTxt Like "*mcBSC*" Then
      NameBSC = Split(FileTxt, "     ")(1)
    End If
    If FileTxt Like "BCXU-*" Or FileTxt Like "ETME-*" Then
      NameUnit = Trim(FileTxt)
      NumUnit = Split(NameUnit, "-")(1)
    End If
    On Error Resume Next
    If LTrim(FileTxt) Like "VLAN*" Then
        If LTrim(FileTxt) Like "VLAN7*" Then IPUnit = Split(FileTxt, "    ")(4)
        If LTrim(FileTxt) Like "VLAN2*" Then IPUnit = Replace(Replace(Trim(Split(FileTxt, "    ")(3)), ")", ""), "(", "")
        'Debug.Print "NameBSC:" & NameBSC & " NameUnit: " & NameUnit & "  NumUnit: " & NumUnit & "  IPUnit: " & IPUnit
        
        ' на данном шаге все собрали, будем добавлять в таблицу
        strSQL = "INSERT INTO tbl_BRD(NameBSC, NameUnit, NumUnit, IPUnit, TimeUpdate ) "
        strSQL = strSQL & " values('" & NameBSC & "','" & NameUnit & "','" & NumUnit & "','" & IPUnit & "',#" & Format(Date & " " & Time, "yyyy\/mm\/dd hh\:mm") & "#)"
        'Debug.Print strSQL
        CurrentDb.Execute (strSQL)
    End If
Loop
Close #f