Never Ending Box

Open Notepad, then paste the blow coding in it.  and then save it as    .vbs

do

x = 1
WHILE X <= 1
  message = msgbox("type ur message here",16,"type ur title here")
  x = x + 1
wend
loop


How to Close This Box.... 
Open Window Task Manager>Processes>Delete "wscript.exe" File.