Передача поля объекта в процедуру в качестве параметра

[EducatedFool]

Ну можете попробовать такой вариант:

Function Функция(ByVal a As Double, ByRef res As Boolean) As Double
    res = a <> 3
    Функция = a + 2
End Function

Sub Main()
    Dim C1 As New Class1, ЗначениеОбработано As Boolean
    C1.a = 1
    C1.a = Функция(C1.a, ЗначениеОбработано)
    If ЗначениеОбработано Then MsgBox "ЗначениеОбработано"
    MsgBox "a = " & C1.a
    C1.a = Функция(C1.a, ЗначениеОбработано)
    If ЗначениеОбработано Then MsgBox "ЗначениеОбработано"
    MsgBox "a = " & C1.a
End Sub

Я бы всё-таки реализовал проверку полей иначе
(ничего конкретного посоветовать не могу, поскольку не представляю, чего Вы пытаетесь добиться в результате)