Data jako numer VB

Date.Parse("01.01.2001").ToOADate
Salty Joe