Using Find to select cells matching input variable

Hi,

I'm a bit of a novice when it comes to using VBA and am having difficulty getting the macro to find cells that match a date entered via an input box.

Attached is an example of the file I have started working on. If you click the "Run Balance" button on the Menu sheet it will activate the relevant User Form. Select the "Day" option and enter 30/06/2010 as a date example. The find function doesn't seem to find the date which has been allocated to the variable named Day.

Any assistance is much appreciated.
Thanks.