Dim lOldGrowBy As Long
Dim lNewGrowBy As Long
lOldGrowBy = MemObj.GrowBy
MemObj.GrowBy = lOldGrowBy + 100
lNewGrowBy = MemObj.GrowBy
MsgBox "The old amount memory object size = " + CStr(lOldGrowBy) + "The new amount memory object size = " + CStr(lNewGrowBy)