>Sure. Depending on what you are trying to achieve these might be useful:

Dim dt2 As DateTime = DateTime.Now
>Dim utcTime As DateTime = TimeZoneInfo.ConvertTimeToUtc(dt2)
>
>Dim dt3 As DateTime = DateTime.UtcNow
>Dim easternTime As DateTime = TimeZoneInfo.ConvertTimeFromUtc(dt3, TimeZoneInfo.FindSystemTimeZoneById("Eastern Standard Time"))

And another (new in 4.0 or maybe 3.5):

Dim dto As New DateTimeOffset(DateTime.Now)
>Dim offset = dto.Offset
>Dim utcTime = dto.UtcDateTime
>Dim localTime = dto.LocalDateTime

Thanks