textboxtaki sayı aktarılırken ondalık problemi

[microaim]

merhaba arkadaşlar;
textboxtaki veriyi hücreye aktarınca ondalıkta problem oluyor. ekteki dosyada detaylı anlatmaya çalıştım.
şimdiden teşekkür ederim

 

[Orion1]

Private Sub CommandButton1_Click()
Cells(1, 1) = CDbl(TextBox1.Value)
Cells(1, 1).NumberFormat = "#,##0.00"
End Sub

Private Sub UserForm_Activate()
TextBox1.Value = Format(Cells(1, 1), "#,##0.00")
End Sub

 

[microaim]

hocam teşekkürler,saygılar...