Сброс счетчика на следующий день

Question

Мне нужно создать форму, в которую нужно поместить счетчик входов, которые должны быть перезапущены на следующий день и не сбрасываться после закрытия формы. Все, что происходит, - это то, что форма считается до тех пор, пока она не будет закрыта. После того, как я включу его снова, он начинается с самого начала. NumberBox - это то место, где я ищу значение для изменения и не сбрасываю до следующего дня.

Это мой код

Set sf = ThisWorkbook.Sheets("CF")
Dim n As Long

Dim LDate As String
LDate = Format(Now, "yyyy/mm/dd hh:mm AM/PM")

n = sf.Range("A" & Application.Rows.Count).End(xlUp).Row



sf.Range("A" & n + 1).Value = Me.DateBox.Value
sf.Range("B" & n + 1).Value = Me.BatchNameBox.Value + "-" + NumberBox.Value

sf.Range("C" & n + 1).Value = Me.OperatorBox.Value
sf.Range("D" & n + 1).Value = Me.BatchVolBox.Value
sf.Range("E" & n + 1).Value = Me.APPAddedBox.Value
sf.Range("F" & n + 1).Value = Me.ZtagAddedBox.Value
sf.Range("G" & n + 1).Value = Me.StartTimeBox.Value
sf.Range("H" & n + 1).Value = Me.EndTimeBox.Value
sf.Range("I" & n + 1).Value = Me.ShootInvBox.Value
sf.Range("J" & n + 1).Value = Me.Vib1Box.Value
sf.Range("K" & n + 1).Value = Me.Vib2Box.Value
sf.Range("L" & n + 1).Value = Me.Vib3Box.Value
sf.Range("M" & n + 1).Value = Me.FlowBox.Value
sf.Range("N" & n + 1).Value = Me.CFPressureBox.Value
sf.Range("O" & n + 1).Value = Me.RecircTimeBox.Value
sf.Range("P" & n + 1).Value = Me.InitialBox.Value
sf.Range("Q" & n + 1).Value = Me.FinalBox.Value
sf.Range("R" & n + 1).Value = Me.RemovedBox.Value
sf.Range("S" & n + 1).Value = Me.CommentsBox.Value

Static cnt As Long
cnt = cnt + 1

Do While Me.BatchNameBox.Value > Me.BatchNameBox.Value
cnt = cnt + 1
Loop


If Me.BatchNameBox.Value > Me.BatchNameBox.Value Then
NumberBox.Value = 1
End If




NumberBox = Val(NumberBox) + 1
End Sub

Private Sub NumberBox_Change()

End Sub

Private Sub UserForm_Initialize()

Me.DateBox = Now()

Конец кода