overflow hatası

[musculus]

aşağıda kodlarınıda yazdığım kısımda textbox1 değeri olarak 100000 yazdığımda hata veriyor
kaçük rakam yazar isem hata vermiyor ama onuda yuvarlıyor
acaba büyük rakamları yazdığımda overflow hatasını vermesini nasıl engellerim
birde yuvarlama yapmadan tam değeri 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

 

[musculus]

integer yerine as long kullanınca overflow hatası düzeldi


http://www.excel.web.tr/f48/overflow-hatasy-t109813.html

ama yuvarlama yapmasını nasıl engellerim