Visual Basic: Compare dates

'http://msdn.microsoft.com/en-us/library/system.datetime.compare.aspx
Dim date1 As Date = #08/01/2009 12:00AM#
Dim date2 As Date = #08/01/2009 12:00PM#
Dim result As Integer = DateTime.Compare(date1, date2)
Dim relationship As String

If result < 0 Then
   relationship = "is earlier than"
ElseIf result = 0 Then
   relationship = "is the same time as"         
Else
   relationship = "is later than"
End If

'another better way is use a TimeSpan
Dim Result As TimeSpan
Result = CurrentSurveyDate - StartDate
Msgbox Result.Days