half wasn't getting the right value. try this.... Prints 32

Code:
Private Sub Form_Load()
    Dim tv As Currency
    tv = 2.1
    half = 0.5
    Debug.Print Int(tv * Val("15") + half)
End Sub