'define the XLS to look at
myXLS = "U:\iLogic examples\Excel Date lookup.xlsx"
GoExcel.Open(myXLS, "Sheet1")

'create an array list to hold found values
Dim myArrayList As New ArrayList


'look at the first 1000 rows of the Excel file
For rowCheck = 2 To 1000
	'read the value of the column A
	Dim myCell  As Double
	myCell = GoExcel.CellValue("A" & rowCheck)
	'format the found value as a date
	Dim myDate As DateTime
	myDate = Date.FromOADate(myCell) 
	'set the current date from the computer system date
	Dim curDate As String
	curDate = DateString 
	 'compare the found value to the current date 
	If myDate = curDate Then
	 	'get the description
		sDescription = GoExcel.CellValue("B" & rowCheck) 
		'add the description to the list
		myArrayList.add(sDescription) 
	End If
Next

myName= ThisApplication.GeneralOptions.UserName

'ensure that the current date was found (and added to the array list)
If myArrayList.Count = 0 Then
MessageBox.Show("The current date was not found in the Excel file." , "iLogic")
Else
'present the list to the user
myDesc = InputListBox("Yo, " & myName & " select one of these bad boys!", myArrayList, myArrayList.Item(0), "iLogic", "Selection List")
'present the result
MessageBox.Show("You selected: " & myDesc, "iLogic")
End If