Required. New value that replaces the specified key.
Remarks
If key is not found when changing a key, a run-time error will occur.
The following example illustrates the use of the Key property:
Function DicDemo
Dim d ' Create some variables.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" ' Add some keys and items.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
d.Key("c") = "d" ' Set key for "c" to "d".
DicDemo = d.Item("d") ' Return associate item.
End Function