[Shade0001]

Dim myNumber As Integer

        myNumber = 11

        Dim formattedNumber As String

        formattedNumber = Format(myNumber, "000")

        TextBox1.Text = formattedNumber

هذا مثال بسيط عدلة حسب احتياجاتك