应用程序onTime更新

Question

我在这段代码上遇到了一个问题，因为它只有一次在它被触发时运行，可能出现什么问题？

Sub test()
xTim791 = "11:10:05"
If Minute(Now) < 1 Then
    TimeToRun = TimeValue(Hour(Now) & ":01:05")
End If
Debug.Print TimeToRun
If Format(sTim, "hh:nn:ss") = Format(xTim791, "hh:nn:ss") Then
    Debug.Print "I have done for " + xTim791
M1_Update
Prev_Update
End If
Application.OnTime Now + TimeSerial(0, 0, 1), "test"
End Sub