обновление данных в textbox

[fizik_leha]

Set bs = CreateObject("excel.application")
i = 1
bs.workbooks.open "C:\Documents and Settings\All Users\Документы\Входящее\progeck JC\base.xls"
Text1.Text = "Сравнение массивов с базой"
While bs.sheets("Лист1").cells(i, 1) <> ""
ReDim Preserve B(i)
B(i) = bs.sheets("Лист1").cells(i, 1)
Text2.Text = "Обработано записей: " & i
i = i + 1
Wend

Обновление данных в техстбоксе происходит только когда я вожу по экрану курсор...
Если ничего не делаю техстбокс "засыпает" хотя программа работает...
Как с этим бороться?

[Konst_One]

DoEvents

[fizik_leha]

Спасибо... Заработало