option explicit
Dim dNow
Dim calc
dNow = Now()
calc = Round((Day(dNow) * Month(dNow) * Year(dNow)) / (Day(dNow) Mod 3 + 2), 0) +  Day(dNow) + Month(dNow) * 31
msgbox("Frilo reset password: " + CStr(calc))