wo ist der Fehler?

Public Sub Test()
Dim dZeit_Soll  As Double
Dim iAnzTage    As Integer: iAnzTage = 31 ' die Tage im Mai
dZeit_Soll = 41850 ' das wäre das Ergebnis - und es passt auch.
dZeit_Soll = iAnzTage * 450 * 3
MsgBox dZeit_Soll
End Sub