How do I free memory in a Macro

I use macro to process approximately 30mbs of .doc word document. I would
like to free all memory my macro use in one loop, how may I do that?

ZhongxiaHu
Mon Oct 25 16:17:04 CDT 2004

Mr. Smith:

Thank you for asking. They are:
Dim CGcount As Double
Dim check As Boolean
Dim counter As Single
Dim oDocUndoStack As Object
Dim counter2 As Single
Dim check2 As Boolean
CGcount is a counter that counts no more than 500 letters through the letter
count command
counter will not go up greater than 40000
oDocUndoStack is the document, i guess it might be overflowing (the document
is more than 7000 pages long)
counter2 will not go up greater than 20

my macro stops at approximately 60000 loops, notify me "command not available"