Sub Mix() Dim myAnswer As Byte Dim num1 As Single Dim num2 As Byte num1 = 4.1 num2 = 5 myAnswer = num1 * num2 End Sub