Public Function MESSAGI_OTLOV()
' подключить Microsoft Visual Basic for Applications Extensibility
' БЕГАЕМ ПО ФОРМАМ ПО КОДУ ФОРМ и не только.
    Dim VBProj As VBIDE.VBProject
    Dim VBComp As VBIDE.VBComponent
    Dim CodeMod As VBIDE.CodeModule
    Dim strLine As String
    Dim I As Long
    Dim mI As Long
    Dim N As Long
    Dim K As Long
    Dim F As Object

On Error Resume Next
    Set VBProj = Access.VBE.ActiveVBProject
For I = 1 To VBProj.VBComponents.Count - 1
   Set F = VBProj.VBComponents.Item(I)
'   Debug.Print F.Name
    Set VBComp = VBProj.VBComponents(F.Name)
    Set CodeMod = VBComp.CodeModule
            For mI = 2 To CodeMod.CountOfLines
                If InStr(1, CodeMod.Lines(mI, 1), "MsgBox", vbTextCompare) <> 0 Then
                    N = InStr(1, CodeMod.Lines(mI, 1), "MsgBox", vbTextCompare) + 8
                    K = InStr(N, CodeMod.Lines(mI, 1), """", vbTextCompare) - N
                    strLine = ""
                    If K > N Then
                        strLine = Mid(CodeMod.Lines(mI, 1), N, K)
'                        Debug.Print strLine
                        DoCmd.SetWarnings False
                          DoCmd.RunSQL "INSERT INTO LANGUAGE_TBL (RUS) VALUES ('" & strLine & "')"
                        DoCmd.SetWarnings True
                    End If
            End If
        Next mI
Next I
Set VBProj = Nothing
Set F = Nothing
Set VBComp = Nothing
Set CodeMod = Nothing
End Function