You should also be careful about mixing numerical data types in mathematical operations
Sub Mix() Dim myAnswer As Byte Dim num1 As Single Dim num2 As Byte num1 = 4.1 num2 = 5 myAnswer = num1 * num2 End Sub