vba初学者问个问题

题目让用户输入雇员每周五天的工作时间，并计算出总的工作时间，用消息框显示总的工作时间。
我编的程序如下：
Public Sub EnterHours()
Dim iHours As Integer
Dim iDays As Integer
For iDays = 1 To 5
iHours = InputBox("请输入你的工作时间")
sHours = iHours + iHours
Next
MsgBox "你的工作时间总计为:" & sHours
End Sub
为什么计算老是出错啊