有没有懂VBScript的大佬，这个闹钟为什么用不了？

Dim alarmTime, currentTime

alarmTime = InputBox("请输入闹钟时间（格式为hh:mm:ss）：")

Do While True
    currentTime = Time()
    If currentTime >= alarmTime Then
        Beep
        MsgBox "时间到了！"
        Exit Do
    End If
    WScript.Sleep 1000
Loop