Use the Int() function in VBA
Code:
Dim j as Single, i as Integer
j=95.67
i = Int(j)
'              i now equals 95