改良版。
こっちの方が表示がスマート。

msgbox "1時間あたり" & int(400000/240) & "円です。"