Sub Clear()
   

Sub AppendNL(ByRef sThis As String) 'Append后自动增加回车换行符


Sub Append(ByRef sThis As String)


Sub AppendByVal(ByVal sThis As String)


Sub Insert(ByVal iIndex As Long, ByRef sThis As String)


Sub InsertByVal(ByVal iIndex As Long, ByVal sThis As String)


Sub Remove(ByVal iIndex As Long, ByVal lLen As Long)


Function Find(ByVal sToFind As String, _
   Optional ByVal lStartIndex As Long = 1, _
   Optional ByVal compare As VbCompareMethod = vbTextCompare _
   ) As Long
   

Sub HeapMinimize()   
   ' Reduce the string size so only the minimal chunks
   ' are allocated:

务必注意：使用前先Clear,以清空以前的内容