Композиция VBA для java-подобного наследования

Немного расширяя этот вопрос Шаблон наследования VBA

Я воспроизводю базовый шаблон наследования в VBA, но я хотел бы понять, есть ли более эффективный и краткий способ сделать это.

Рассмотрим этот небольшой тестовый пример.

IAnimal.cls

'declaration
Public Sub eat()
End Sub

Public Sub breathe()
End Sub

Animal.cls: суперкласс

Implements IAnimal

' method implementation
Private Sub IAnimal_eat()
    Debug.Print "I'm eating something..."
End Sub

Private Sub IAnimal_breathe()
    Debug.Print "I'm brething..."
End Sub

Cat.cls: подкласс Animal

Private super As IAnimal

Implements IAnimal

Private Sub Class_Initialize()
    Set super = New Animal
End Sub


'#------------------------------------------------
' methods called when object is accessed as an IAnimal implementor. 
' I HAVE TO re-implement all of them also here in the subclass (in java I don't need to. It's sufficient to implement them in the superclass)
Private Sub IAnimal_eat()
    Me.eat
End Sub

Private Sub IAnimal_breathe()
    Me.breathe
End Sub


'#--------------------------------------------------
' subclass-only methods
' To access those methods I MUST DECLARE the object as Cat (Dim tom as Cat)
Public Sub meow()
Debug.Print "meow..."
End Sub


'#------------------------------------------------ 
' superclass methods
' Since I need to declare the cat object as a Cat (see above)
' I'm FORCED TO explicitly re-implement all of the superclass methods,
' even those that I don't need to override
' otherwise I can't access them

'@Override
Public Sub eat()
    Debug.print "I'm  eating a fish!"
End Sub

'I'm forced to re-implement also this method, in order to use it directly on a *Cat* object
'@Unnecessary-Override
Public Sub breathe()
    super.breathe 
End Sub

Test.bas

Sub Main()

    Dim snowball As IAnimal
    Set snowball = New Cat

    Dim tom As Cat
    Set tom = New Cat

    snowball.meow  'ERROR Method or data member not found <---- cannot access the Cat-only method "meow"
    tom.meow  '<--- prints "meow"

    ' creates a Dog, another subclass of Animal
    Dim pluto As Dog
    Set pluto = New Dog

    'create a collection for all my animals
    Dim myPets As Collection
    Set myPets = New Collection

    myPets.Add tom
    myPets.Add pluto

    Call feed(myPets) '<---- prints
                            'I 'm eating a fish
                            'meow...
                            'I 'm eating a bone
                            'woof...

End Sub

' a routine for showing how to manage an heterogeneous collection of animals
Sub feed(animals As Collection)

    For Each a In animals

        a.eat

        If TypeOf a Is Cat Then
            a.meow
        End If

        If TypeOf a Is Dog Then
            a.woof
        End If

    Next

End Sub

Таким образом я могу:

• вызвать метод eat() для объектов Cat и Dog и иметь особое поведение Overridden
• вызовите методы только для подкласса (например, meow())
• передать неоднородная коллекция животных подпрограмме feed, которая может «безопасно» вызывать методы суперкласса Animal, а также запускать определенный код на основе подкласса Animal

Кажется, это работает, но это громоздко: представьте, что вам нужно реализовать множество подклассов Animal (Dog, Bird, Armadillo, Platypus, Demogorgon, ...). Вышеупомянутый шаблон ВЫНУЖДАЕТ ВАС:

1. повторно реализовать все методы интерфейса IAnimal на ВСЕХ ПОДКЛАССАХ
2. повторно реализовать (снова) все методы, чтобы выставить их из подкласса, даже если переопределение не требуется. Это необходимо, особенно если вы хотите получить доступ ТАКЖЕ к методам только подкласса.

Итак, вопрос: есть ли более эффективный / краткий способ реализовать этот пример (и ограничить переписывание кода для каждого подкласса)?