Attempting to replicate IF(AND statement on VBA editor

I have a small amount of data where I am trying to find a change in trend given within a series of days.

Using an 'IF(AND statement' that returns the specific pattern I am inquiring. The statement goes as follows: =IF(AND(D2>D3,D3>D4,D4>D5,D5<D6),TRUE,"")

I am trying to replicate this onto VBA editor as best I can, but I'm having trouble identifying the best way to write this.

I want to be able to return TRUE statements as shown in this picture.

I also want to know if there was a way to identify a day in the conditional series as a variable.

IE: identify D4 as 'change'