Vbscript Dictionary: Deleting Particular Keys based on Item Value condition

Dim odic
 
Set odic=CreateObject("Scripting.Dictionary")
odic.Add "Shilpa",1
odic.Add "Amit",2
odic.Add "Sumit",3

For each x in odic.Keys

If odic.item(x)=2 Then
odic.Remove(x)
End If

Next

For each x in odic.Keys
print x 
Next

Set odic=nothing

'Shilpa
'Sumit