Rakamların soluna sıfır eklenmesi

[oerbas]

TextBox1' aktarılan rakamı 4 haneye tamamlamak için soluna 0 eklettirmek istiyorum. Ã?rneğin sayı " 1 " ise "0001" olarak yazılsın "11" ise "0011" olarak yazılsın

Yardımlarınız için teşekkür ederim.

 

[xxrt]

148 Nolu Dış Genelge ile ilgilyse çalışman,TextBoxlarda değil Hücrelerde bu işlemi yapmanı tavsiye ederim.İstediğin Kod;

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1.Text, "0000")
End Sub

148 Nolu Dış Genelge Kısa:Memur Mernis Sisteme geçiş Hk.