Sorry, Im having a daft day today...

I used:

Dim m_today as Date
m_today = Date.Today

and it works fine.