Read Time Zone Names Stored in the Registry

Option Explicit
Dim TimeZoneCol As Collection
Const ValueName As String = "Display"
Const MasterKey As String = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones"

Private Sub Form_Load()
    Dim KeyCol As Collection
    'be sure key exists
    If MRegistry.CheckRegistryKey(HKEY_LOCAL_MACHINE, MasterKey) Then
        'retrieve all subkeys
        Set KeyCol = MRegistry.EnumRegistryKeys(MRegistry.HKEY_LOCAL_MACHINE, MasterKey)
        Dim TheKey As Variant
        Set TimeZoneCol = New Collection
        'for each subkey, get the "Name" value
        For Each TheKey In KeyCol
             CboTimeZone.AddItem MRegistry.GetRegistryValue(MRegistry.HKEY_LOCAL_MACHINE, addSlash(MasterKey) & TheKey, ValueName, "")
        Next
    End If
End Sub



Private Function addSlash(ByVal sPath As String) As String
    sPath = Trim(sPath)
    If Len(sPath) > 0 Then
        If Right$(sPath, 1) <> "/" Then
            If Right$(sPath, 1) <> "\" Then
                sPath = sPath & "\"
            End If
        End If
        addSlash = sPath
    End If
End Function