秒時間を時分秒に変換

Sub KANZAN2()
' 秒時間をHH:MM:SSに変換する。
If keika >= 3600 Then
hh = Int(keika \ 3600)
mm = Int(Int(keika - hh * 3600) \ 60)
ss = keika - Int(hh * 3600) - Int(mm * 60)
GoTo ex
End If
If keika < 3600 And keika >= 60 Then
hh = 0
mm = Int(keika \ 60)
ss = keika - Int(mm * 60)
GoTo ex
End If
If keika < 60 Then
hh = 0
mm = 0
ss = keika
GoTo ex
End If
ex:

End Sub