3.cü olarak alttaki koduda eklememişsiniz.Bunu en alta ekleyebilirsiniz.
Hafızadan temizlemek için yazdım.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    Set dict = Nothing

End Sub