In the fifth line use the Format function like this:
animal = "sinani-" & Format(i, "#00")
The #
means optionally a digit (i.e. present only if there are that many digits in i
), 0
means definitely a digit, whereby leading zeros are used if i
hasn't got enough digits.