Sub UTCTime As String
DateTime.DateFormat = "yyyy-MM-dd'T'HH:mm:ss'Z'"
Dim offset As Double = DateTime.GetTimeZoneOffsetAt(DateTime.Now)
Dim result As String = DateTime.Date(DateTime.Now-offset*DateTime.TicksPerHour)
Log(result)
Return result
End Sub