将Now（）函数的格式设置为“ hh：mm：ss”

Question

我正在尝试编写一个VBA宏，该宏在Excel中每秒向计时器添加一秒钟。我为此使用即时功能。 我面临的问题是我需要格式为“ hh：mm：ss”，即“ 14:32:18”。

我当前的代码是：

Range("B1") = Format(Time, "hh:mm:ss")
DaEt = Now + TimeValue("00:00:01")
Range("B1") = DaEt

但是，这让我将其作为单元格值：

  

10.05.2019 17:57:47

有什么方法可以将该值缩短为“ 17:57:47”吗？