VBA_配列からNothingを除外

1.概要

オブジェクトの配列においてNothingであるものを除外する関数
※自己クラスの配列において、不要なものを予めNothingにし、
　後にまとめて除外したいことがあったため作成

2.ソースコード

'引数の配列からNothingを除外する
Public Function DeleteNothingObj(arg_array As Variant)

    Dim i As Long 'カウンタ
    Dim buf_ As New Collection '消さないオブジェクトのバッファ

    '引数の配列からNothingでないオブジェクトをバッファへ格納
    For i = 0 To UBound(arg_array)
        If Not arg_array(i) Is Nothing Then
            Call buf_.Add(arg_array(i))
        End If
    Next

    '引数の配列をバッファのオブジェクト数にRedim
    ReDim arg_array(buf_.Count - 1)

    '引数に再格納
    For i = 0 To UBound(arg_array)
        Set arg_array(i) = buf_(i + 1)
    Next

End Function

3.出力結果

～略～