değişkenin kusüratlı olarak sonuçlanması

[musculus]

textbox1 içine 47000 verisini yazdığımda hesapla butonuna bastığımda değer 19 olarak çıkıyor.Ama gerçek değer 18.8 olması gerekiyor.
textbox1 verisine 47000 değeri girdiğimde 18.8 sonucunu nasıl alırım

Private Sub CommandButton1_Click()
Dim sayı As Integer, kişi As Integer, aylık As Integer
For a = 1 To 5
kişi = kişi + 1
Next a

sayı = TextBox1.Value

aylık = sayı / 500 / kişi
MsgBox aylık

 

[webuyeislemleri]

http://www.excel.web.tr/f14/textboxdan-hucreye-yazdyrylan-rakamda-kuru-sorunu-t18179.html bu konyu bir incele,

 

[musculus]

teşekkürler