Thanks Plamen! It's exactly what I needed!

>Here is the code (refer MSDN for further information):
>tdBegdate.text = Date() - DatePart("w", Date()) - 2