Время в формате UTF - VB

Формулировка задачи:

Имеется код

Option Explicit
Private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
Private Type TIME_ZONE_INFORMATION
    Bias As Long
    StandardName(32) As Integer
    StandardDate As SYSTEMTIME
    StandardBias As Long
    DaylightName(32) As Integer
    DaylightDate As SYSTEMTIME
    DaylightBias As Long
End Type
 
Public Function utfzona(UTF)
    Dim a As TIME_ZONE_INFORMATION
    GetTimeZoneInformation a
    utfzona = a.Bias / 60
End Function

Выводит текущий часовой пояс, у меня -11 Как применять часовой пояс чтоб время и дата изменялись согласно введённой зоне UTF? Нашёл пример:

Format(Time + (a.Bias / 60) / 24, "hh:mm")
'Сделал его ввиде
'UTF это передаваемый часовой пояс
    Dim af As Long
    af = (a.Bias / 60) + UTF
     utfzona = Format(Time + af / 24, "hh:mm")

Тоесть код ещё недоработанный чутка так как если модуль числа будет положительный и UTF будет положительное получится ляп. Но в моём случае если прибавить просто (a.Bias / 60) то получится время нулевого пояса. В общем всё работало до 12 часов ночи, я уже обрадовался, портянку другого кода накатал и тут часы пошли в обратную сторону О_О Суть вопроса в чём как получить время в формате UTF нулевого пояса и оперировать с ним применяя различные пояса так чтоб не глючило от времени суток? Можно конечно часы разобрать и дату по частям и с помощью разных условий пересобирать, но мне кажется есть способ проще

Решение задачи: «Время в формате UTF»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Public Type utcvr
    gor As String
    utc As Integer
End Type
 
Public Sub UTCmass(ByRef mzon() As utcvr)
     ReDim mzon(1 To 12) As utcvr
     Dim i As Integer, temp
     temp = Split(sText, vbCrLf)
     For i = LBound(mzon) To UBound(mzon)
             mzon(i).gor = temp(i - 1)
             mzon(i).utc = CInt(Mid(Trim(temp(i - 1)), 5, InStr(1, Trim(temp(i - 1)), ":") - InStr(1, Trim(temp(i - 1)), "C") - 1))
     Next i
End Sub
 
Private Function sText() As String
    Dim s As String
    s = "(UTC-12:00) Линия перемены дат" & vbCrLf & _
        "(UTC-11:00) Время в формате UTC -11" & vbCrLf & _
        "(UTC-10:00) Время в формате UTC -10" & vbCrLf & _
        "(UTC-9:00) Время в формате UTC -9" & vbCrLf & _
        "(UTC-8:00) Время в формате UTC -8" & vbCrLf & _
        "(UTC-7:00) Время в формате UTC -7" & vbCrLf & _
        "(UTC-6:00) Время в формате UTC -6" & vbCrLf & _
        "(UTC-5:00) Время в формате UTC -5" & vbCrLf & _
        "(UTC-4:00) Время в формате UTC -4" & vbCrLf & _
        "(UTC-3:00) Время в формате UTC -3" & vbCrLf & _
        "(UTC-2:00) Время в формате UTC -2" & vbCrLf & _
        "(UTC-1:00) Время в формате UTC -1"
        sText = s
End Function
                        