ник: Hush
Вот теперь все получилось и компактно;)
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim LineNum As Long
Const DQUOTE = """" ' one " character
Set VBProj = Ex.ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Лист1")
Set CodeMod = VBComp.CodeModule
With CodeMod
.AddFromFile "R:\ManagementAccounts\Template\InputCorrect.bas"
'.AddFromString Application.Modules("Module1").Lines(3, Application.Modules("Module1").CountOfLines - 1) 'если грузить с готового модуля Access
End With