Wieso keine "Uhr" beim speichern, geht Balkern ?

Private Sub VFDateiSchließen_Click()
Application.ScreenUpdating = False
Dim jdate
Dim Verzeichnis As String
Dim myFSO As Object, myDrv As Object, strFS As String
Set myFSO = CreateObject("Scripting.FileSystemObject")
'--------------------------------- speichern H ------------------------------
'-------------------------- Laufwerksabfrage --------------------------------
Verzeichnis = "H:\Krefeld VL"
If myFSO.folderexists(Verzeichnis) Then
' If Dir(Verzeichnis, vbDirectory) <> "" Then
MsgBox "Verzeichnis    " & Verzeichnis & "    vorhanden", vbCritical
Else
MsgBox " Achtung Verzeichnis    " & Verzeichnis & "      nicht vorhanden !" _
& Chr(13) & Chr(13) & "  Es wurde nicht gespeichert !  " & Chr(13) & _
Chr(13) & "  Es sollte jetzt ins Laufwerk   ' C '  gesichert werden !" _
& Chr(13), vbCritical
Exit Sub
End If
Application.DisplayAlerts = False             ' Sicherheitsabfrage unterdrücken
ChDrive "H:\Krefeld VL"
ActiveWorkbook.SaveAs Filename:= _
"H:\Krefeld VL\KR-VF-04.xls", FileFormat:= _
xlNormal, Password:="bk", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
'----------------------------------- ab hier V speichern --------------------
Verzeichnis = "V:\Krefeld VL"
If myFSO.folderexists(Verzeichnis) Then
'If Dir(Verzeichnis, vbDirectory) <> "" Then
MsgBox "Verzeichnis    " & Verzeichnis & "    vorhanden", vbCritical
Else
MsgBox " Achtung Verzeichnis    " & Verzeichnis & "      vorhanden !" _
& Chr(13) & Chr(13) & "  Es wurde nicht gespeichert !  " & Chr(13) & _
Chr(13) & "  Es sollte jetzt ins Laufwerk   ' C '  gesichert werden !" _
& Chr(13), vbCritical
Exit Sub
End If
jdate = Format(Now, "dd.mm.yyyy hh:mm")
Sheets("Laufende ").Select
ActiveSheet.Unprotect ("bk")                           'schutz aufheben
Sheets("Laufende ").Range("c1").Value = Application.UserName
Sheets("Laufende ").Range("b2").Value = jdate
Unload Me
'------------------ Speichern in V -----------------------------------------
' On Error Resume Next
Application.DisplayAlerts = False          ' Sicherheitsabfrage unterdrücken
ChDrive "V:\Krefeld VL"
ActiveWorkbook.SaveAs Filename:= _
"V:\Krefeld VL\KR-VF-04.xls", FileFormat:= _
xlNormal, Password:="bk", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Unload Me
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="bk"                                      'schützen
UserForm1.Show
Application.ScreenUpdating = True
End Sub