&amp; Space$(m_iChunkSize \ 2)
      m_iLen = m_iLen + m_iChunkSize
   End If
   CopyMemory ByVal UnsignedAdd(StrPtr(m_sString), m_iPos), ByVal
    StrPtr(sThis), lLen
   m_iPos = m_iPos + lLen
   
End Sub

Public Sub AppendByVal(ByVal sThis As String)
   Append sThis
End Sub

Public Sub Insert(ByVal iIndex As Long, ByRef sThis As String)
Dim lLen As Long
Dim lPos As Long
Dim lSize As Long
   
   ' is iIndex within bounds?
   If (iIndex * 2 &gt; m_iPos) Then
      Err.Raise 9
   Else
   
      lLen = LenB(s