VBA Code for Date and Day of Month

Hello:

Could some one tell me VBA Code to insert Day,Date in A1,A2 and A3 as follows:

A1 = Day# of Today's date eg 5/7/2007 ....A1=7
A2 = Todays Date ................5/7/2007
A3 = TEXT(A2,"ddd") = Mon

7 5/7/2007 Mon

Thank U....

Riz Momin