Amending period for query

Hello!

I need some help amending an extract of VBA coding.

The below extract attains the period from cell B4, for my query.

Please Login or Register  to view this content.

However, I need it to read "B4 minus 1".

For example, if B4 = 4, then period would be 3.

Thanks in advance!