các bác cho em hỏi em so sánh thời gian

Code:
myhour = Time(Now)
		If SmartTags("CHUYEN") = True Then
				
				If #6:30 AM# < myhour <= #2:30 PM# Then
					ts.WriteLine "CA_1"
					ElseIf #2:30 PM# < myhour <= #10:30 PM# Then
					ts.WriteLine "CA_2"
				Else 
					ts.WriteLine "CA_3"
				End If 
		End If
em viết định dạng giờ để so sánh như thế kia có đúng không ạ? em so sánh không thấy được, quá 2h30PM mà vẫn ghi ra là CA_1 ý
Hay tại em khai báo "myhour" sai hả các bác?