Windows 10 Pro_x64 + Excel2013_x86 VBA で 可変長配列、Type、Dictionary を使う

Windows 10 Pro_x64 + Excel2013_x86 VBA で 可変長配列、Type、Dictionaryを使う
　
自分の中では、可変長配列、Type、Dictionary はセットで使うことが多い気が
しているので、まとめてメモっておく
・ReDim typArry(3)：可変長配列のサイズを４と定義する
　※添え字の最小値は0、最大値は3、内容は未定義
・ReDim typArry(3)
　ReDim Preserve typArry(4)：
※typArry(3)までの値は保持
※typArry(4)の内容は未定義
・Dictionary.Exists(Key)：Keyが存在するかをチェックする
・Dictionary.Add Key, Value：Key, Valueのペアを登録する
・Variant = Dictionary.Keys：Keyの配列を取得する
・Dictionary.Item(Key)：Keyに対応するValueを取得する

Option Explicit
Private Type typDemo

    Code    As String

    Name    As String

End Type
Private Sub UserForm_Initialize()
    Dim typArry()   As typDemo

    Dim varkeys     As Variant

    Dim keys        As Variant

    Dim intCnt      As Integer

    '

    '   配列の添え字は 0〜3

    '

    ReDim Preserve typArry(3)

    Dim dict As New Dictionary

    Dim dcnt As New Dictionary

    '

    '   使用データ

    '

    typArry(0).Code = "01"

    typArry(0).Name = "北海道"

    typArry(1).Code = "02"

    typArry(1).Name = "青森県"

    typArry(2).Code = "03"

    typArry(2).Name = "岩手県"

    typArry(3).Code = "01"

    typArry(3).Name = "北海道"

    '

    '   LBound 関数は配列の最小インデックス

    '   UBound 関数は配列の最大インデックス

    '

    For intCnt = LBound(typArry) To UBound(typArry)

        If dict.Exists(typArry(intCnt).Code) Then

            '

            '   Dictionary に Key が登録済

            '

            Debug.Print "dict.Exists: ", _

                        intCnt, _

                        typArry(intCnt).Code, _

                        typArry(intCnt).Name

            '

            '   出現数のカウントアップ

            '

            dcnt.Item(typArry(intCnt).Code) = dcnt.Item(typArry(intCnt).Code) + 1

        Else

            '

            '   Dictionary に Key, Value のペアを追加

            '

            dict.Add typArry(intCnt).Code, typArry(intCnt).Name

            '

            '   出現数のカウント：初期値

            '

            dcnt.Add typArry(intCnt).Code, 1

        End If

    Next

    '

    'Dictionary に登録された項目数

    '

Debug.Print dict.count

    '

    '   登録されたkeyをVariantのリストとして取得する

    '

    varkeys = dict.keys

    '

    '   Dictionary より Key, Value のペアを取得する

    '

    For Each keys In varkeys

        Debug.Print keys, dict.Item(keys), dcnt.Item(keys)

    Next

'

End Sub