Create FindCell.bas

Instead of looping through all cells in a column to find today's date the function uses bisection search to find the cell with the desired data, in this instance the current day's date.