makro ile sutunlar arası çarpma

[kemal turan]

merhabalar,
Aşağıdaki kod bir alıntıdır.Değiştirmeye çalışıyorum.
Sorunum şu;
Listbox1 click olayında e ile f sutunu çarpma işlemi sonucunda h sutununda sonucu 0,0 olarak gösteriyor.
Yardımlarınız için teşekkürler..

Private Sub listbox1_Click()

'
Sheets("GELEN").Cells(Rows.Count, "D").End(3).Offset(1, 0) = ListBox1.Column(0)
Sheets("GELEN").Cells(Rows.Count, "E").End(3).Offset(1, 0) = Format(ListBox1.Column(1), "0.0")
Sheets("GELEN").Cells(Rows.Count, "F").End(3).Offset(1, 0) = Format(ListBox1.Column(2), "0.0")
Sheets("GELEN").Cells(Rows.Count, "h").End(3).Offset(1, 0) = Sheets("GELEN").Cells(Rows.Count, "e").Value * Sheets("GELEN").Cells(Rows.Count, "f").Value
Range("A1").Select

End Sub
Private Sub TextBox1_Change()
ReDim Dizi(1 To 10, 1 To 1)

On Error Resume Next
ListBox1.RowSource = Empty
ListBox1.Clear
On Error GoTo 0

If TextBox1 = "" Then
UserForm_Initialize
Else
Say = 0
Set Data = S2.Range("A3:L" & S2.Cells(Rows.Count, 2).End(3).Row)
For Each Veri In Data
If Veri.Column = 1 Then
If UCase(Replace(Replace(Veri, "i", "İ"), "ı", "I")) Like _
"*" & UCase(Replace(Replace(TextBox1, "i", "İ"), "ı", "I")) & "*" Then

Say = Say + 1
ReDim Preserve Dizi(1 To 10, 1 To Say)
Dizi(1, Say) = Veri
Dizi(2, Say) = Veri.Offset(0, 1)
Dizi(3, Say) = Veri.Offset(0, 2)

End If
End If
Next

If Say > 0 Then ListBox1.Column = Dizi
End If
End Sub