Тяжёлый случай...
Не люблю я недоязык VBA. Нет, макрос написать, или ма-а-а-алюсенькую подпрограммку уровня 2+2 - это самое оно. Но, блин, когда в руки попадает ОГРОМНЫЙ проект, написанный на VBA для Access, становится страшновато... (Тем более, когда этот Access заявялет, что суммарная длинна кода его модулей больше предельной, поддающейся обработке его средствами).
Ну да ладно. Это ещё цветочки. А вот ягодки.
Приходится мне сопровождеть чужой код. В этом самом VBA. А приблуда VBA-шная позволяет, знаете ли, по-руссаки обзывать процедуры, модули и т.п. И вот... Даже не знаю, как сказать...
Вот это, как по-вашему смотрится и читается:

If МойПроверочныйМодуль.РеорганизацяДанных.Перелинковка = True Then
Переход = ОбщийМодуль.LoadData(VarClients, Me.СложныйБлок(ФлагВыхода, LngOrderNum), NextStepNum)
Выход = ОбщийМодуль.DelAlterChar(СтрокаСостояния)
StrLeng = Trim(Me.ВыручкаПоФакту(Переход, Выход))
End If

Ахренеть, по-моему!
И так - половина кода!
Да... 1С с его языком - это ещё цветочки...
Эх, бедный я, бедный...