VBAでメソッドチェーンの例

CCalc.cls

Option Explicit

' クラスモジュール: CCalc

Private sum As Long

Private Sub Class_Initialize()
    sum = 0
End Sub

Public Function plus(num As Long) As CCalc
    sum = sum + num
    Set plus = Me
End Function

Public Function minus(num As Long) As CCalc
    sum = sum - num
    Set minus = Me
End Function

Public Function show() As Long
    show = sum
End Function

Module1.bas

Option Explicit

' 標準モジュール: Module1

Sub test()
    Dim calc As CCalc
    Set calc = New CCalc
    MsgBox calc.plus(10).minus(3).show ' 7
End Sub