Sub IntegerType() Dim answer As Integer Dim num1 As Single Dim num2 As Integer num1 = 5.3 num2 = 6 answer = num1 * num2 Debug.Print answerEnd Sub