Dim num,a
num = 10 / 3
a = Int(num)
MessageBox a