Excel 2010 :: Macro That Will Draw Information From Spreadsheet

I am new to Excel VBA and am trying to create a macro that will draw information from a spreadsheet. The code i have written so far is shown below:

Sub Event1()
'Dim Event Date As Double
Dim Message As String
Dim Ans As String

' Prompt for Data

[Code] ......

The section i am having issues with is shown in red above.

What i am trying to do is have a message box pop up with the information as shown based on a date being typed into the the original box that pops up (Please enter a date and click on OK). The following message box then displays the required information from the spreadsheet.