Variable uses an Automation type not supported in Visual Basic

mjvdlugt 

You're missing a line continuation character _ after xIncomeAccount,

It should be

Public Sub Init( _
    Optional ByVal xID, _
    Optional ByVal xName, _
    Optional ByVal xISIN, _
    Optional ByVal xAssetCurrency, _
    Optional ByVal xCountry, _
    Optional ByVal xIncomeAccount, _
    Optional ByVal xCapitalAccount, _
    Optional ByVal xCeasedDate)

End Sub

With that change, the Test macro runs without error on my PC.