Dim tz As TimeZone = System.TimeZone.CurrentTimeZone
Dim intHoursDifference As Integer
Dim testUTC As DateTime = Now.UtcNow
check if were in Daylight Savings Time now
If tz.IsDaylightSavingTime(Now) Then
EST is 4 hours difference
intHoursDifference = -4
Else
EST is 5 hours difference
intHoursDifference = -5
End If
MsgBox("UTC Time in EST is " & DateAdd(DateInterval.Hour, intHoursDifference, testUTC))