Con esta funcion, (me pico la curiosidad) te puede valer, la he testeado y funciona:
Código vb:
Ver originalPublic Function CloseOpen(HoraActual As Date) As String
If HoraActual > CDate("8:29:59") And HoraActual < CDate("17:29:59") Then
CloseOpen = "ABIERTA"
Else
CloseOpen = "CERRADA"
End If
End Function
Puedes utilizarla así para Wellington Label17 = CloseOpen(cdate(Label8.Caption))
Saludos