text-value yuvarlama ve metin olarak kaydetme hatası

[emrebengul]

Değerli hocalarım merhaba,
userformda çıkan virgüllü sonucun excele kaydolurken aynen yuvarlamadan virgüllü şekilde geçmesini istiyorum. .text olarak yazdığımda metin olarak algıladığında sayıya metin hatası veriyor

Ancak .value yazdığımda da atıyorum 8,2 yi excele 8 olarak kaydediyor.
Örnek dosyamı bırakıyorum.
Yardımcı olabilirseniz sevinirim.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    ActiveCell.Offset(0, 1).Value = TextBox1.Text
    ActiveCell.Offset(0, 2).Value = CDbl(TextBox2.Value)
    ActiveCell.Offset(0, 3).Value = CDbl(TextBox3.Value)
    ActiveCell.Offset(0, 4).Value = CDbl(TextBox4.Value)
End Sub

Private Sub TextBox3_Change()
    TextBox4.Value = Replace(TextBox3.Value * TextBox2.Value, ".", ",")
End Sub

 

[emrebengul]

oldu korhan hocam elinize sağlık teşekkürler