Formatlı olarak girdiğim sayının sıfırlarını göremi

[sakaryali]

Bir metin kutusu için şu şekilde kod yazdım.

TextBox1=Format(TextBox1,"#,###")

Program TextBox1 in içeriğini herhangi bir hücreye attığı zaman saynın sıfırlarını görem iyorum.
Ã?rneğin TextBox1 e 1000000 olarak sayı giriyorum. TextBox1 in içeriği
1,000,000 oluyor. Fakat bu exceldeki herhangi bir hücreye gaktarıldığı zaman 1 olarak görünüyor.
Bunun yazdığım şekilde aktarılmasını nasıl sağlayabilirim??

 

[hamitcan]

TEXTBOX

AÞAÐIDAKİ KODU DENER MİSİNİZ?

Private Sub CommandButton1_Click()
TextBox1 = Format(TextBox1, "#,###")
Cells(1, 1) = TextBox1.Value

End Sub