将文本框设置为＆＃34; 00：00：00＆＃34;格式

Question

我目前正在创建一个用户表单，它将在＆＃34;计时器＆＃34;中显示特定单元格的值。在我的用户表单中填入textbox1。单元格包含时间。但是，每当我尝试运行userform时，文本框都不会以"00:00:00"格式显示单元格的值。

请检查我在下面处理的代码：

Private Sub commandbutton1_click()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Sheets("Timer")
    sh.Range("R1").Value = "Start"

    If sh.Range("R2").Value = "" Then
        sh.Range("R2").Value = Now
    End If

x:
    VBA.DoEvents

    If sh.Range("R1").Value = "Stop" Then Exit Sub

    sh.Range("R3").Value = Now
    Me.TextBox1.Value = sh.Range("R4").Value

GoTo x

End Sub

我已经尝试在VBA中添加：Textbox1.value = Format("00:00:00")，但它无效。它往往会将textbox1的值显示为"12:00:00 AM"