A code that implements VBS countdown

A code to implement VBS countdown

The following content is the program code:

<script language="VBScript">
       Dim oTime : oTime = 5
       Function STime
            ("oInput").value = "00:00:" & oTime
            If oTime>0 Then
               oTime = oTime - 1
                "STime", 1000
            Else
MsgBox “Time is up!”
            End If
       End Function
       Sub Window_Onload
             Call STime
       End Sub
msgbox(value)
</script>
<input  type="text">



Save the above paragraph as a complete countdown timer. Who can help me change it to VBS so that it can become a VBS countdown timer!