Могу предложить такой вариант без использования прерываний: main:
For cek = 1 To 10080
Pause 1000 ' Пауза 1 сек
GoSub Vkl
GoSub Vykl
Next
GoTo main
End
Vkl:
If x = 1440 Then Led1 = 1 ' Если прошли 1 сутки (24 часа) то включить устройство №1 1440 = 60 сек х 24 часа
If x = 2880 Then Led2 = 1 ' Если прошло 2 суток то включить устройство №2
......
If x = NN Then LedN = 1 ' Если прошлo N сутки (48 часа) то включить устройство №N NN = 60 cек x N суток
Return
Vykl:
If x >= 1500 Then Led1 = 0 ' Если прошли 25 часов то выключить устройство №1 1440 = 60 сек х 24 часа
If x >= 2940 Then Led2 = 0 ' Если прошло 49 часов то выключить устройство №2
......
If x >= NN Then LedN = 0 ' Если прошлo NN cекунд выключить устройство №N
Return
