Префикс с решеткой очень полезная штука

Sub Test()
    #If MyHidenLibConst Then
    '
    'Здесь можно задать тот синтакс который связан
    'с той библиотекой...
    '
    #End If
End Sub

Option Explicit
DefLng F, H-I, L, N: DefStr J, S
'
'Модуль класса для математических операций
'
#Const CheckArguments = 1  'Включение проверки аргументов
 
Public Enum GausFlags
    [Norm_Gaus]
    [Gaus_Norm]
End Enum
 
Private Type tDel
    Rez As Long
    Ost As Long
End Type
 
Private Const MaxLong& = 2 ^ 31 - 1
Dim Errors As New Collection
 
Private Sub Class_Initialize()
    'Создание описателей ошибок
    Errors.Add 1001, "Слишком большой модуль"
    Errors.Add 1002, "Число вне рамок модуля"
    Errors.Add 1003, "Выход за границу кода"
End Sub
 
 
Private Sub ErrRaise(Expression As Boolean, Key$, Optional Source$)
    If Not Expression Then Exit Sub
    If Len(Source) Then
        Err.Raise Errors.Item(Key), Source, "Источник = " & Source & vbCrLf & Key
    Else
        Err.Raise Errors.Item(Key), , Key
    End If
End Sub
 
Function GausNum&(Modul#, Num&, Flag As GausFlags)
    'Гаусовое число *
    'Возврат числа модуля если бы числа этого модуля расспологались в центробежном порядке, тоесть _
    первый элемент в середине а последние элементы в нижних и верхних индексах
    'Арг: Модуль // Число // Режимы - [Norm_Gaus] и [Gaus_Norm]
    Dim n, n1, h
    
    #If CheckArguments Then
        ErrRaise (Modul - 1) > MaxLong, "Слишком большой модуль", "GausNum"
        ErrRaise Not (Num >= 0 And Num < Modul), "Число вне рамок модуля", "GausNum"
    #End If
 
✰ ✰ ✰ далее часть всего класса...