Elapsed Time Returning a Negative Number

Hi.

The following code below consistently returns -21.6 hours as the elapsed time between 11/28/2012 14:27:28 and 11/28/12 16:53:49.

Any ideas?

Thanks,
Marc

-------------------------------------------------------------------Dim TotalHrs As dim TotalHrs, WOHours as Double
Dim sDate, eDate, sTime, eTime As String
Dim Date1, Date2 As Long
Dim Elapsed As Long
Dim Seconds, Minutes, Hours, Days As Int

DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"

sDate = "11/28/2012"
eDate = "11/28/2012"
sTime = "14:27:28"
eTime = "16:53:49"


If sDate <> "" AND eDate <> "" Then
Date1 = DateTime.DateParse(sDate) + DateTime.TimeParse(sTime)
Date2 = DateTime.DateParse(eDate) + DateTime.TimeParse(eTime)

Elapsed = Date2 - Date1

Seconds = Round(Elapsed / 1000)

WOHours = Seconds / 3600
TotalHrs = TotalHrs + WOHours

If Elapsed < 0 Then
Msgbox(Seconds,WOHours)
End If

End If