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