Textboxtaki veriyi hücreye sayı olarak kaydetme

Arkadaşlar Merhaba,

Aşağıdaki gibi bir Tb2TbxBakiye diye bir textbox var. Bu textbox taki veriyi Döküm sayfasında son satıra yazıyor fakat textbox 7.776,60 yazmasına rağmen D kolonundaki son satıra 7,776 olarak yazmaktadır. bunu nasıl düzeltebilirim.

Sheets("Döküm").Range("d" & st).Value = Val(Tb2TbxBakiye.Text)

Val(....) kısmını şöyle değiştirerek deneyin : Val(Replace(Replace(Tb2TbxBakiye.Text, ".", ""), ",", "."))

@Ömer BARAN hocam,

Çok teşekkür ederim sorun çözüldü

@Ömer BARAN hocam
açık bir konum daha varda onada bakma şansınız var mıdır?

Hücreye yazılan rakama enyakın sonuç dökümü