konvetere tal til countdown

Jeg er lige igang med at lave et lille program som kan regne ud hvornår noget er klar ved at man indtaster hvor mange procent der er færdig.
Koden ser sådan her ud:

Private Sub beregn_Click()
    Timer1.Enabled = True
    Timer1.Interval = 1000
    finish1 = 100 - Val(day1txt.Text)
    ready1 = finish1 * 12 / 60
    klar1 = DateAdd("h", ready1, Now)
End Sub


Private Sub Timer1_Timer()
    txt = Format$(klar1 - Now, "h:m:s")
    ready1.Caption = txt   
End Sub


Så langt så godt. Så tæller den ned i timer, minuter og sekunder.

Det jeg så skal have lavet om er så den viser dage, timer og minuter. Det håber jeg at jeg kan finde ud af.
Det jeg så har brug for hjælp til er når jeg er over 95% altså der hvor den går fra timer til minuter så er det der går galt.

Så jeg går ud fra jeg faktisk skal have alt regnet om i minuter eller?

Har kigget lidt rundt på nettet men ikke rigtig fundet noget jeg forstod af kode da jeg er ret ny til vb endnu og jeg gider ik bare klippe og kliste noget kode ind jeg ikke forstår.

Så hvis der er nogen som kan give mig noget kode med en super forklaring på hvad der skal til så bliver jeg da super glad...