[Electras]

Не знаю как на VB, но в теории попытайся вставить пустой цикл.
Типа банальный QBasic:

for i=1 to 1000000
i=i+1
next i