Public Property Get Item(ByVal index As Variant) As Variant
正
Public Property Get Item(ByVal index As Variant) As Person
P.388「表11-37 RangeクラスのAddressプロパティの引用」4行目
誤
Scenariosの行
正
Scenariosの行をすべてカット(このような引数は存在していません)。
P.524「リスト13-26 KeysメソッドとItemsメソッドを使用した辞書のループ」
正
リストを以下にさしかえ
Sub MySub()
Dim members As Dictionary: Set members = New Dictionary
With members
.Add "m01", "Bob"
.Add "m02", "Tom"
.Add "m03", "Ivy"
Dim i As Long
Dim myItems As Variant: myItems = .Items
For i = LBound(myItems) To UBound(myItems)
Debug.Print i, myItems(i)
Next i
Dim myKeys As Variant: myKeys = .Keys
For i = LBound(myKeys) To UBound(myKeys)
Debug.Print i, myKeys(i), .Item(myKeys(i))
Next i
End With
End Sub