
   ) As Long
Dim lInstr As Long
   If (lStartIndex &gt; 0) Then
      lInstr = InStr(lStartIndex, m_sString, sToFind, compare)
   Else
      lInstr = InStr(m_sString, sToFind, compare)
   End If
   If (lInstr &lt; m_iPos \ 2) Then
      Find = lInstr
   End If
End Function

Public Sub HeapMinimize()
Dim iLen As Long
   
   ' Reduce the string size so only the minimal chunks
   ' are allocated:
   If (m_iLen - m_iPos) &gt; m_iChunkSize Then
      iLen = m_iLen
      Do While (iLen - m_iPos) &gt; m_iChunkSiz