josecl

If Format(Time, "hh:mm") = "07:45" Then Label2.BackColor = vbBlue Text2.Text = 1 End If Eso seria todo. Para probar lo que estar preguntando el debug. Print si o asigna a una variable. Porque no te funcionaba porque "07:00" con el mid quedaba así "7:00:"