Как получить текущее время в VBA в виде строки? Бывший. 19:38, хочу "073800"

Я пытаюсь вернуть значение времени в виде строки без «:» или «AM/PM». Я не хочу, чтобы значение возвращалось в виде десятичной дроби. Итак, если сейчас 19:53, я хочу, чтобы код возвращал «195300».

Немного о коде, в формуле в ячейке D6 я извлекаю данные из листа Excel и форматирую их в идентификатор.

Позже пользователям стало необходимо скопировать и вставить этот идентификатор. Но они не смогли скопировать значение в D6, не получив формулу (сейчас не интересно, есть ли для этого лучшее решение). Поэтому я запускаю макрос при нажатии кнопки, макрос проверяет, не пусты ли ячейки, входящие в формулу для создания идентификатора. Если они не пусты, я помещаю значение из D6 в K99, чтобы пользователь мог скопировать его.

Именно в этом разделе кода я хочу взять текущее время и отформатировать его как «ЧЧММСС» без «:» или «AM/PM». Сейчас я хочу сохранить его в случайной ячейке, V128, и позже добавлю это к своему идентификатору.

Private Sub Worksheet_Change(ByVal mnTarget As Range)

'other code that isn't relevent here

For Each Cell In Range("G18,E27,E28, E40, E42")
    If Cell.Value <> "" Then
        Range("K99").Value = Range("D6").Value
        
    Else
        Range("K99").Value = ""
    End If
Next Cell

'test point to show the current time
'MsgBox Time

Dim var As String
var = Time

tmp = Replace(var, ":", "")
Range("V128").Value = var

End Sub

Это по-прежнему возвращает время в формате двоеточий и AM/PM. Пожалуйста помогите, я не могу найти ничего в Интернете для этого решения.

Я также пробовал использовать формулы на листе, поэтому, если «19:53:00» находится в ячейке V128, в соседней ячейке я попробовал =SUBSTITUTE(V128,":",""), но это вернуло бессмысленное значение. .