Sub TimeIsBetween(TimeBetween As String,t1 As String, t2 As String) As Boolean
Dim OrigDateFormat As String = DateTime.dateFormat
DateTime.dateFormat = "MM/dd/yyyy HH:mm"
Dim tbetween As Long=DateTime.DateParse(TimeBetween)
Dim tstart As Long=DateTime.DateParse(t1)
Dim tend As Long=DateTime.DateParse(t2)
DateTime.dateFormat =OrigDateFormat
If tbetween>=tstart And tbetween<= tend Then
Return True
Else
Return False
End If
End Sub