Разность двух дат - VB

Формулировка задачи:

Добрый день! Есть такая строчка:

If CDate(TextBox1.Text) = CDate(excel_sheet.Cells(row, 1)) Then

Используем 1 TextBox.Text, как сделать к примеру разность в двух датах, к примеру в 1 тестовом поле одна дата, а во втором другая дата, вот использовать даты между двумя датами. В SQL используется BETWEEN, а как применить к полям? Догадываюсь, что использовать примерно так:

If CDate(TextBox1.Text) <= CDate(excel_sheet.Cells(row, 1)) Then

Но как написать нормально, не прибегая к

быдлокодерству

? И дописать вторую дату на проверку?

Решение задачи: «Разность двух дат»

textual
                            Листинг программы 
                        

                            dim Today as Date, RetVal as long, myDate as date
myDate= CDate("11.11.2011 10:23:59")
Today=CDate(Date & " " & Time) 'получаем системное время/дату
retval = DateDiff ("s", Today, MyDate)
                        