Sub ParseUTCTime (time As String) As Long
Dim m As Matcher = Regex.Matcher("(\d+):(\d+):(\d+)\s(\w+)", time)
If m.Find = False Then Return 0
Dim hours As Int = m.Group(1) Mod 12
Dim minutes As Int = m.Group(2)
Dim seconds As Int = m.Group(3)
Dim am As Boolean = m.Group(4).ToLowerCase = "am"
If am = False Then hours = hours + 12
Return DateUtils.SetDateAndTime2(DateTime.GetYear(DateTime.Now), DateTime.GetMonth(DateTime.Now), DateTime.GetDayOfMonth(DateTime.Now), _
hours, minutes, seconds, 0)
End Sub