Public Function MESSAGI_GDE()
' ËÎÂÈÌ ÌÅÑÑÀÃÈ
    Dim VBProj As VBIDE.VBProject
    Dim VBComp As VBIDE.VBComponent
    Dim CodeMod As VBIDE.CodeModule
    Dim s As String               ' Ñòðîêè áóêâû
    Dim i As Long                 ' Ñòðîêè øòóêè
    Dim N As Integer              ' ÍÀ×ÀËÎ ÑÒÐÎÊÈ
    Dim K As Integer              ' ÍÀ×ÀËÎ ÑÒÐÎÊÈ
    Dim m As Module
    Dim mi As Byte
    
    Set VBProj = Access.VBE.ActiveVBProject
For mi = 0 To Application.Modules.Count - 1
    Set m = Application.Modules(mi)
    Set VBComp = VBProj.VBComponents(m)
    Set CodeMod = VBComp.CodeModule
           For i = 2 To CodeMod.CountOfLines
                If InStr(1, CodeMod.Lines(i, 1), "MsgBox", vbTextCompare) <> 0 And InStr(1, CodeMod.Lines(i, 1), "InStr", vbTextCompare) = 0 Then
                    N = InStr(1, CodeMod.Lines(i, 1), "MsgBox", vbTextCompare) + 8
                    K = InStr(N, CodeMod.Lines(i, 1), """", vbTextCompare) - N
                    s = ""
                    s = Mid(CodeMod.Lines(i, 1), N, K)
                    DoCmd.SetWarnings False
                    DoCmd.RunSQL "INSERT INTO LANGUAGE_TBL (RUS) VALUES ('" & s & "')"
                    DoCmd.SetWarnings True
                End If
           Next i
Next mi
    Set VBProj = Nothing
    Set m = Nothing
    Set VBComp = Nothing
    Set CodeMod = Nothing
End Function

Public Function MESSAGI_OTLOV()
' отлов всех мессаг
Dim i As Long
Dim mi As Long
Dim strLine As String
On Error Resume Next
        For i = 0 To Application.CodeProject.AllForms.Count
           For mi = 2 To Len(Application.Modules(i).Lines(1, Application.Modules(i).CountOfLines))
                If InStr(1, Application.Modules(i).Lines(mi, 1), "MsgBox", vbTextCompare) <> 0 And InStr(1, Application.Modules(i).Lines(mi, 1), "InStr", vbTextCompare) = 0 Then
                    N = InStr(1, Application.Modules(i).Lines(mi, 1), "MsgBox", vbTextCompare) + 8
                    K = InStr(N, Application.Modules(i).Lines(mi, 1), """", vbTextCompare) - N
                    strLine = ""
                    If K > N Then
                        strLine = Mid(Application.Modules(i).Lines(mi, 1), N, K)
                        DoCmd.SetWarnings False
                          DoCmd.RunSQL "INSERT INTO LANGUAGE_TBL (RUS) VALUES ('" & strLine & "')"
                        DoCmd.SetWarnings True
                    End If
                End If
           Next mi
          Next i
MsgBox i
End Function

For I = 0 To .Count - 1