If you are assigning String Value as a Date then this Error occurs.
There is no constructor for Date which take Date in String format as it is.Try this one :
Dim _Date As Date = New Date("2011", 12, "1")
MessageBox.Show(_Date.Month - 3)
I hope it will help you. :)