Userform

Private Sub CommandButton1_Click()
for a = 6 to 100
for i = 1 to 100000
next i
label1.width = (a)
label1.height = 5
next a
end sub

ich wollte das es mir immer nachdem er die i schleifen durchhat das Label vergrößert aber irgendwie dauerts so lange bis er es vollständig hat und dann kommt das Label gleich in groß. ich hoffe ihr könnt mir ne Hilfe geben Danke schon mal !!