Thank you Darrel.
It's work fine.
Only i put out the two lines
Var2 = Var2 + 1
if Var2 = 0 then Var1 = Var1 + 1