Option Explicit

'文字列バッファ
Private Buffer As String

'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'機  能：初期化
'引  数：なし
'返り値：なし
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Private Sub Class_Initialize()
    Buffer = ""
End Sub

'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'機  能：文字列を追加する
'引  数：(i)SrcText … 文字列
'        (i)IsAddNewLine … 改行を追加する場合はTrue、改行を追加しない場合はFalse
'返り値：なし
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Public Sub Append(ByVal SrcText As String, Optional ByVal IsAddNewLine As Boolean = False)
    Buffer = Buffer & SrcText & IIf(IsAddNewLine, vbCrLf, "")
End Sub

'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'機  能：文字列を追加する(改行付き)
'引  数：(i)SrcText … 文字列
'返り値：なし
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Public Sub AppendNL(ByVal SrcText As String)
    Call Append(SrcText, True)
End Sub

'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'機  能：文字列を取得する
'引  数：(i)なし
'返り値：文字列
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Public Function ToString() As String
    ToString = Buffer
End Function

'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'機  能：バッファをクリアする
'引  数：なし
'返り値：なし
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Private Sub Class_Terminate()
    Call Class_Initialize
End Sub