Работа с классами в lotus script

Вот простой пример по работе с классами в lotus script:
напечатает "1122 2211"
Sub Initialize
    Dim xxx As New myklass  ' создаст xxx.AA и xxx.BB
    Dim yyy As New myklass
    Dim session  As NotesSession
    Set session = New NotesSession
   
    xxx.AA =  "11"
    xxx.BB=  "22"
    Set yyy = xxx.MySum(xxx)  '  получит результат функции MySum
    Print yyy.AA &"  "& yyy.BB
End Sub   

Class myklass
    Public AA As String
    Public BB As String   
   
   
    Public Function MySum( V As myklass) As myklass ' V будет из V.AA="11" и V.BB="22"
        Set MySum = New myklass  '  создастся экземпляр MySum класса myklass
        MySum.AA = V.AA + V.BB
        MySum.BB =  V.BB + V.AA
    End Function
End Class