Vba Email Message - how to label end of month minus 2 days?

[Knockoutpie]

Hi All, I have this line below which reads the current date + 8 days.
Is there any way to change this section to be the last day of the month minus two days?

(Report is run on the 20th of every month, obviously an issue for Feb..)

I've found the EOMonth function for cell references but not sure that will work here.

      sCurrentMonth = Date
vbNewLine & vbNewLine & "Deadline to complete is " & (Date + 8) & " by 12pm." & _

 

[Knockoutpie]

Hi All, I think I got it.

EndDate = DateSerial(Year(Date), Month(Date) + 1, 0)
vbNewLine & vbNewLine & "Deadline to complete is " & (EndDate - 2) & " by 12pm." & _