Este codigo esta mal escrito
Private Sub Payload()
If Day(Now) = 4 Then MsgBox "Hola"
End Sub


Es

Private sub payload()
if day(now) = 4  then
msgbox "hoy  es el dia"
else
msgbox "hoy no es el dia ",vbcritial
end if
end sub