Excele Fiyat (Sayı) verisi aktarırken Virgül ile ayırmıyor

[sekhil]

Userformdan excele fiyat verilerini aktarırken excel de veri aşağıdaki gibi görünüyor

TL Fiyatı 900

Döviz Kuru 7,562

Dövizli Fiyatı 11902,00

normalde olması gereken:
TL Fiyatı: 900,00
Döviz Kuru: 7,562
Dövizli Fiyatı: 119,0200

böyle çıkmayınca excelde hesaplamalar hatalı cıkıyor bu kez

 

[sekhil]

Userformdan excele fiyat verilerini aktarırken excel de veri aşağıdaki gibi görünüyor

TL Fiyatı 900

Döviz Kuru 7,562

Dövizli Fiyatı 11902,00

normalde olması gereken:
TL Fiyatı: 900,00
Döviz Kuru: 7,562
Dövizli Fiyatı: 119,0200

böyle çıkmayınca excelde hesaplamalar hatalı cıkıyor bu kez

Sheets("Kasalar").Range("L" & indis) = CDbl(txtKasaDovizTutari.Value)