hjælp med VB

Hej folkens
Er der nogle der vil løse den her opgave for mig?
Her er den:
Lav det her om så der tælles op, hvor mange gange Tal skal ganges på, før man når op over 10000.


Public Sub gange()
Dim produkt, tal As Integer
tal = 5
produkt = 1
Do While produkt < 10000
produkt = produkt * tal
Debug.Print produkt
Loop
End Sub


--Slarp--