Quiero usar VB para crear una herramienta de apagado programado

/********************************* ilustrar*************** **************************

//El formato de hora es 24 horas--00:00~23 :59

/// Cuando no esté dentro de este rango, informará un error y volverá a permitir que el usuario vuelva a ingresar~~:

/***** ******** **************************** código fuente************ ********* **********************

dim Obim informará un error y regresará, lo que permitirá al usuario volver -ingrese~~:)

/ ********************************** código fuente* ************** ****************************

tenue Obj, Nombre de usuario, Hora actual, Lente, Núm.

set Obj = createobject("WScript.Shell")