Bu çalışmada hata nerede?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Private Sub CommandButton1_Click()
    Range("B3,F3").ClearContents
    [B3] = Now
        [B3] = Format([B3], "h:mm:ss")
        [D3] = Format([B3], "hh")
        [E3] = Format([B3], "mm")
        [F3] = Format([B3], "ss")
End Sub

Dakika 34 olmasına rağmen niçin 12 yazıyor?
Saygılarımla

 

[Haluk]

Private Sub CommandButton1_Click()
    Range("B3,F3").ClearContents
    [B3] = Now
        
        [B3] = Format([B3], "hh:nn:ss")
        [D3] = Format([B3], "hh")
        [E3] = Format([B3], "nn")
        [F3] = Format([B3], "ss")
End Sub

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Çok teşekkür ederim.
Saygılarımla