大量の文字列結合を高速処理できるMidステートメントを使ったクラス - Qiita

Option Explicit ' Note) ' 連続して使用してメモリ使用量が1GBを超えると文字列領域不足エラーが生じる ' 使い終えたらメモリをリリースするために Set object = Nothing とする ' Space()で文字列領域を確保するのにミリ秒スケールで時間がかかるから文字列領域の確保は何度もしない方がいい Private m_TextSpace As String ' 文字列を蓄積する変数 Private m_Pointer As Long ' m_TextSpaceのポインタ Private m_TextSpaceLength As Long ' m_TextSpaceが確保している文字列の最大数 Private Sub Class_Initialize() ' 初期化で10KB(5120文字)の文字列領域を確保する ' クライアントはTextSpaceLe