months={1:"睦月", 2:"如月", 3:"弥生", 4:"卯月"}

newmonths=month.pop(2)

{1:"睦月", 3:"弥生", 4:"卯月"}

VBAではKeyでの削除、indexでの削除
がRemoveでできる。

Public Sub DicTest()
Dim months As New Dictionary
Dim cKey
months.Add 1, "睦月"
months.Add 2, "如月"
months.Add 3, "弥生"
months.Add 4, "卯月"
cKey = months.Keys

'どちらも同じ処理
'months.Remove cKey(0)
'months.Remove 1

End Sub