Я собираюсь добавить эту опцию в качестве ответа, так как я не вижу ее здесь, и она может быть полезна в качестве альтернативы.
В VB.NET:
''2 zeroes left pad
Dim num As Integer = 1
Dim numStr2ch As String = Strings.Right("00" & num.ToString(), 2)
''4 zeroes left pad
Dim numStr4ch As String = Strings.Right("0000" & num.ToString(), 4)
''6 zeroes left pad
Dim numStr6ch As String = Strings.Right("000000" & num.ToString(), 6)