EXCEL VBA コレクション コレクションのすべてのアイテムを削除する。

コレクションのアイテムを削除したいときってありませんか？
コレクションは全アイテムの削除機能が内容ですので、
関数を作りました。

※ディクショナリは全削除が用意されいます。

Public Sub test2()
    Dim cll As New Collection
    cll.Add "AAA"
    Debug.Print cll.Count   '1
    cll.Add "AAA"
    Debug.Print cll.Count   '2
    cll.Add "AAA"
    Debug.Print cll.Count   '3
    psubCollectionClear cll
    Debug.Print cll.Count    '0
End Sub

'
'　コレクションのすべてのアイテムを削除する。
'
'https://pgbigoroku.hatenablog.com/entry/2022/08/25/094125
'2021/8/21
Private Sub psubCollectionClear(ByRef pcll As Collection)
    Do Until pcll.Count = 0
        pcll.Remove (1)
    Loop
End Sub