Sub HowMuch() Dim num1 As Single Dim num2 As Single Dim result As Single num1 = 45.33 num2 = 19.24 result = MultiplyIt(num1, num2) MsgBox result End Sub Function MultiplyIt(num1, num2) As Integer MultiplyIt = num1 * num2 End Function