怎樣用vb編程使在文本框中輸入的秒數，單擊命令按鈕後轉換成時分秒並在便簽上顯示

Dim i, j, iHour, iMinute, iSecond As Integer

i = Val(Text1.Text)

iSecond = i Mod 60

i = i \ 60

iMinute = i Mod 60

i = i \ 60

iHour = i Mod 60

Label1.Caption = Str(iHour) & "小時" & Str(iMinute) & "分" & Str(iSecond) & "秒"

End Sub