[VB6] Problema sintassi orari

[optime]

basta 1 sola if, dato che le condizioni da rispettare sono 2.

ho una certa età e non mi sono cimentato nell'ottimizzazione tu come faresti?