LeadingZeroes

Sub LeadingZeroes()

Dim i As Long
i = 1
Dim LeadingZeroVar() As String 'zatvorky za premennou znacia array bez specifickej velkosti
    Do While Not i > 11 'do akeho cisla chcem cely proces opakovat
        ReDim LeadingZeroVar(i) 'array musi mat vzdy nejaku velkost, tak som daj velkost i
        LeadingZeroVar(i) = Format(i, "00") 'vytvori leading zero do 2 cifier
        i = i + 1
    Loop

MsgBox ("Hotovo"), (vbOKOnly), ("Titulka") 'bud musim pouzit premenne alebo musia byt argumenty ozatvorkovane

End Sub