همانطور که Ruhollah عزیز گفتند شما باید از DoEvents استفاده کنید (در ابتدای حلقه)
این فرمان باعث میشه که در طی حلقه برنامه قادر به دریافت ورودی های کاربر باشه .



Do while i < 100

DoEvents

'Your code goes here !

Loop