[أبو خالد الشكري]

تعديل بسيط على كود الأخ Shade0001

كود :

       Dim myNumber As Integer
       myNumber = 11
       Dim formattedNumber As String
       formattedNumber = Format("000" & myNumber)
       TextBox1.Text = formattedNumber