Нужно написать код на VBA, помогите пожалуйста

[wadsspire]

Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 —
понедельник, 2 — вторник, …, 6 — суббота. Дано целое число K, лежащее в
диапазоне 1–365. Определить номер дня недели для K-го дня года, если
известно, что в этом году 1 января было понедельником.


И если не затруднит, то с блок-схемой, пожалуйста

[evg_m]

1.янв. пн(1)
2.янв. вт(2)
...
7.янв. вс(0) 7=7+0
8.янв. пн(1) 8=7+1
ответ =(остаток от деления номера дня К на 7)