VBA クラスモジュールを気軽に使うその2

その1ではOperatableNumberというオブジェクトを作成した。
thom.hateblo.jp

似たような内容になるが、今回はOperatableStringを作成してみようと思う。
※なお、サンプルなので変数の型などは一部省略している。

クラスモジュールを追加し、以下のコードを追加した後、OperatableStringという名称に変更する。

Dim s As String

Property Let Value(x As String)
    s = x
End Property

Property Get Value() As String
    Value = s
End Property

Function Left(n) As OperatableString
    Dim tmpS As New OperatableString
    tmpS.Value = VBA.Left(s, n)
    Set Left = tmpS
End Function

Function Right(n) As OperatableString
    Dim tmpS As New OperatableString
    tmpS.Value = VBA.Right(s, n)
    Set Right = tmpS
End Function

Function Join(str) As OperatableString
    Dim tmpS As New OperatableString
    tmpS.Value = s & str
    Set Join = tmpS
End Function

以下のテクニックを使用し、Valueをデフォルトプロパティにしておく。
thom.hateblo.jp

そしてこのオブジェクトを用いたコードがこちら。

Sub test()
    Dim s As New OperatableString
    s = "Hello, VBA!!"
    
    '普通に出力
    Debug.Print s
    
    '従来通りのやり方
    Debug.Print Left(Right(s, 5), 3) & " is easer than VB.NET"
    
    'オブジェクトの機能を使ったやり方
    Debug.Print s.Right(5).Left(3).Join(" is easer than VB.NET")
    
    '上記の操作を行っても、値に影響は与えない。
    Debug.Print s
    
End Sub