Excel VBA dictionary existsで指定されたキーが辞書内に存在するかチェック

以下のようなシーンで利用されます。

・キーの存在を確認してから辞書内の要素にアクセスするときに使用します。

Option Explicit

Sub CheckKeyExistence()
    ' Dictionaryの作成
    Dim myDict As Object
    Set myDict = CreateObject("Scripting.Dictionary")

    ' キーと値の追加
    myDict.Add "Apple", 10
    myDict.Add "Banana", 5
    myDict.Add "Orange", 8

    ' キーの存在を確認
    If myDict.Exists("Banana") Then
        MsgBox "Bananas exist! Quantity: " & myDict("Banana")
    Else
        MsgBox "Bananas do not exist!"
    End If

    ' 存在しないキーを確認
    If myDict.Exists("Grapes") Then
        MsgBox "Grapes exist!"
    Else
        MsgBox "Grapes do not exist!"
    End If
End Sub