Stopping code?

Hey guys I have this code that I have no idea what it does, I think it gives me the information on avlaible and total physical and virtual memory.

VB Code:

While Not blnQuit
       DoEvents
Dim memstat As MEMORYSTATUS
Call GlobalMemoryStatus(memstat)
 
Text30000000.Text = Format(memstat.dwAvailPhys) / 1024 / 1024 / 1024
Text50000000.Text = Format(memstat.dwAvailVirtual) / 1024 / 1024 / 1024
Text60000000.Text = Format(memstat.dwTotalPhys) / 1024 / 1024 / 1024
Text70000000.Text = Format(memstat.dwTotalVirtual) / 1024 / 1024 / 1024
Wend

The prob is it appears to be a tad cpu intnsive, is there a way to stop this code by pressing a button, so that the users have a choice to run it or not.

thanks!

Code:

---

While blnQuit = False
      DoEvents
Dim memstat As MEMORYSTATUS
Call GlobalMemoryStatus(memstat)

Text30000000.Text = Format(memstat.dwAvailPhys) / 1024 / 1024 / 1024
Text50000000.Text = Format(memstat.dwAvailVirtual) / 1024 / 1024 / 1024
Text60000000.Text = Format(memstat.dwTotalPhys) / 1024 / 1024 / 1024
Text70000000.Text = Format(memstat.dwTotalVirtual) / 1024 / 1024 / 1024
Wend

---

In a command button's sub, insert this:

blnQuit = True