Convert Day to number

Hello group

Today my challenge should be simple.

I have the need to convert a Day in a number.

Monday to 1
Tuesday to 2
etc.. until Sunday with 7

Hope you can help me to use this code in one VBA i am using for simplifying a week import of data.