vb.net 数字为个位数时需要补0

数字即为
1、2、3、4、5、6、7、8、9、10、11、12........

如果是1到9
则补成01、02、03、04、05、06、07、08、09

遇到10以上，就不用补

请问要怎么实现呢？

Module Module1

    Sub Main()
        Dim a1 As Long = 5
        Dim s As String = a1.ToString("00")
        Console.WriteLine(s)
        Dim a2 As String = "5"
        Dim s2 As String = a2.PadLeft(2, "0")
        Console.WriteLine(s2)
    End Sub

End Module