Ondalık basamak sorunu

Selam,

' **** Döngü başlangıcı
For I = 1 To Z Step 1
asd = asd + Round(Par, 0)


N = BordroNO.Value
Tar = DateAdd("m", I, tar1)
rs.AddNew
rs("BordroNO") = N
rs("Alacak") = Toplam.Value / Taksit.Value
rs("Vade") = Tar
rs("Tarih") = Tarih
rs("KKNO") = KKNO
rs("İşlemNo") = [İşlemNO]
rs("EvrakNO") = [EvrakNO]
rs("Kaynak") = [Kaynak]
rs("Açıklama") = [Toplam] & " TL.lik Harcamanın " & [Taksit] & " / " & [I] & " Taksidi"

rs.Update
Next I

yukardaki VB kodunda Alacak hanesi sonuç ondalıklı olunca hata veriyor. Tam sayılarda çalışıyor. Sonuç ondalıklıda olsa Alacak hanesine nasıl işleyebiliriz. Cevap verecek arkadaşlara şimdiden teşekkür.

Not: Kod taksit yapmak için hazırlanmıştır.

örnek eklerseniz daha kolay yardımcı oluruz.

Arkadaşlar,
Biraz araştırmamla Round(*) koduyla bu işin çözüleceğini öğrendim . Şöyleki Round(x,2) burdaki 2 ondalık basamak adedini belirliyor 2 basamak için 2, 3 basamak için 3 eğer hiç ondalık istemiyorsak 0 gibi.
Sorun çözülmüştür yardım etmek isteyen arkadaşlara teşekkürler.