Как получить свой часовой пояс? - VB

Option Explicit
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      As String * 64
   StandardDate      As SYSTEMTIME
   StandardBias      As Long
   DaylightName      As String * 64
   DaylightDate      As SYSTEMTIME
   DaylightBias      As Long
End Type
Private Declare Function GetTimeZoneInformation _
   Lib 'kernel32' (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
'
Public Function GetTimeBias() as Long
    Const TIME_ZONE_ID_STANDARD As Long = 1
    Const TIME_ZONE_ID_UNKNOWN As Long = 0
    Const TIME_ZONE_ID_DAYLIGHT As Long = 2
    Const TIME_ZONE_ID_INVALID As Long = &HFFFFFFFF
    Dim TimeZone      As TIME_ZONE_INFORMATION
    Dim plngRtn       As Long
    Dim plngMinutes   As Long
   
    plngRtn = GetTimeZoneInformation(TimeZone)
    GetTimeBias = -(TimeZone.Bias + IIf(plngRtn = TIME_ZONE_ID_DAYLIGHT, TimeZone.DaylightBias, 0))
End Sub