Konversi Detik Ke Jam Menit Detik Pada Visual Basic

 Buat 1 project dengan :
1 Form
1 TextBox
1 CommandButton
Copy source code berikut pada Form : 

Private Sub Command1_Click()
    Dim hour, minute, second As Long
    Dim a, b, c, d As Long
    a = Text1.Text
    hour = Int(a / 3600)
    b = hour * 3600
    minute = Int((a - b) / 60)
    second = a - b - (minute * 60)
    MsgBox "Hasil konversi = " & hour & " jam " & minute & " menit " & second & " detik ", vbOKOnly
End Sub