Hesaplama sorunu

[minti34]

Arkadaşlar merhaba;
Userformda
Dim a,b as single
a=b-csing(textbox1.text)

b ye 136,4
Textbox1.text=132,3

Girdiğimde sonucun 4,1 çıkması gerekirken 4,0998 çıkıyor.
Bir türlü çözemedim. Yardımcı olursanız sevinirim.
Kolay gelsin...

 

[Emir Hüseyin Çoban]

.

a değişkenini Currency olarak tanımlayın.

Dim a As Currency
Dim b As Single

.