String)
   
   If (lPtr = 0) Then
      ' No current memory assigned, allocate space:
      lPtr = isMalloc.Alloc(LenB(tLBS) + tLBS.lStringSize)
      If lPtr = 0 Then
         ' Fatal error - can't allocate memory.  Raise Out of Memory:
         Err.Raise 7
      End If
      ' The item data remains set to 0
   Else
      ' Ensure the memory block is the correct size to store the string
      ' and data:
      lPtr = isMalloc.Realloc(ByVal lPtr, LenB(tLBS) + tLBS.lStringSize)
   End If
   
   If Not (lPtr 