Imports System

Imports System.Globalization

Public Module Module1

​

    Public Sub Main()

        Dim value = "2024-07-01T11:00:00-08:00"

        Dim estConversion = ParseDateTimeOffsetToSpecificTimeZone(value, "Eastern Standard Time")

        Console.WriteLine(estConversion.ToString())

        Dim cstConversion = ParseDateTimeOffsetToSpecificTimeZone(value, "Central Standard Time")

        Console.WriteLine(cstConversion.ToString())

        Dim mstConversion = ParseDateTimeOffsetToSpecificTimeZone(value, "Mountain Standard Time")

        Console.WriteLine(mstConversion.ToString())

        Dim pstConversion = ParseDateTimeOffsetToSpecificTimeZone(value, "Pacific Standard Time")

        Console.WriteLine(pstConversion.ToString())

    End Sub

​

    Private Function ParseDateTimeOffsetToSpecificTimeZone(literal As String, timezone As String) As DateTime

        Dim parsedDateTimeOffset = DateTimeOffset.Parse(literal, Nothing, DateTimeStyles.AssumeUniversal)

        Dim desiredTimeZone = TimeZoneInfo.FindSystemTimeZoneById(timezone)

        Dim conversion = TimeZoneInfo.ConvertTime(parsedDateTimeOffset, desiredTimeZone)

        Return conversion.DateTime

    End Function

​

End Module