Dim MBtoFree
MBtoFree = InputBox("How many megabytes of RAM to attempt to free? MemFree © 2000-2003 Bill Talcott", "MemFree","300")
FreeMem = Space(MBtoFree * 1048576)