Repeat Macro Code every 30 seconds for 2 hours and move down a cell

Hi

So I have been struggling to get this to work.

The vb code that i am using is to get data from a analytical balance. I have used the vb code from http://www.msc-lims.com/lims/diybalance.html

Now the communication is via RS232.

My problem is when I click the command button I get a single reading. I would like to repeat a macro(userform1) so I get continuous reading every 30 seconds for 2 hours.

I have tried everything with no success,

Loops with wait function,
Timers (Application.OnTime Now...)

Please help me out.

Thanking you in advance

Thank you for replying.

I pasted your code under my commandbutton which is placed under sheet1. The main code is under UserForm1.

So i modified your code so sub GetData() to my command button. But an error saying RequestBalanceData not defined.

I changed that to UserForm1.RequestBalanceData and then "GetData" not defined.

I am still trialling and modifying the code your wrote accordingly but still no success.

Thanking you in advance

Thank you for all the help. Unfortunately moving my code wouldn't work as using ActiveX control from the userform.

Anyways I have modified your code and using loops which seem to work for now.

Thanks