Imports System

Imports System.Globalization

Public Module Module1

​

    Public Sub Main()

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

        Dim matchedTimeZone = GetTimeZoneStringFromOffset(value)

        Console.WriteLine(matchedTimeZone)

    End Sub

​

    Private Function GetTimeZoneStringFromOffset(literal As String) As String

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

        Dim offset = parsedDateTimeOffset.Offset

        Dim timeZones = TimeZoneInfo.GetSystemTimeZones()

​

        For Each timeZone In timeZones

            If (timeZone.BaseUtcOffset = offset) Then

                Return timeZone.Id

            End If

        Next

​

        Return Nothing

    End Function

​

End Module