Listbox üzerinde işlemde format sorunu

[crpzz37]

Selamunaleyküm arkadaşlar aşağıda görüldüğü gibi textbox3 e girilen değer ile listboxın tüm satılarını 3. sütununda bulunan değeri ile çarparak 5. sütuna yazdırmak istiyorum ancak. Tüm işlemleri yapıyor ama ondalık kısımda hata alıyorum çarpma işlemini doğru yapmıyor. resimde görseli var.

Yardımcı olursanız çok sevinirim.



Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox3 = "" Then
Exit Sub
ElseIf Not IsNumeric(TextBox3.Text) Then
MsgBox ("LÜTFEN RAKAMLA GİRİŞ YAPINIZ."), vbCritical, "HATA"
TextBox3 = ""
Exit Sub
Else
Dim kactane As Integer
kactane = ListBox2.ListCount
Dim adet As Integer
adet = TextBox3
For i = 0 To kactane - 1
Dim katsayı As Double
katsayı = ListBox2.List(i, 3)
ListBox2.List(i, 5) = katsayı * adet
Next i
End If
End Sub

 

[Korhan Ayhan]

Aleyküm Selam,

Deneyiniz.

ListBox2.List(i, 5) = Replace(katsayı, ".", ",") * adet

 

[crpzz37]

Aleyküm Selam,

Deneyiniz.

ListBox2.List(i, 5) = Replace(katsayı, ".", ",") * adet

Hocam Allah razı olsun sizden

Dim katsayı As Double
katsayı = Replace(ListBox2.List(i, 3), ".", ",")

ListBox2.List(i, 5) = katsayı * adet

bu şekilde çözdüm