VBS脚本中的循环

Do While True
    WScript.Sleep 1000
    If CStr(nTime) = sRunTime Then
        Set Wsh = WScript.CreateObject("WScript.Shell")
        wsh.Run "taskkill /f /im iexplore.exe",0,True Wsh.Run sProgramme,0,True
        Set Wsh = NoThing
        sRunTime = DateAdd("h",2,Time)
        sRunTime = Mid(sRunTime,4,5)
        Msgbox sRunTime
       'Exit Do
    End If
    nTime = Mid(Time,4,5)
    WScript.Sleep 1000
Loop