VBAでcollectionを引数にする場合のエラー

Question

前提・実現したいこと

UserFormからclass1のメソッドにcollectionを引数として渡し、呼ばれたclass1のメソッドから更にclass2のメソッドへcollectionを渡したい。

発生している問題・エラーメッセージ

実行時エラー91 オブジェクト変数または With ブロック変数が設定されていません。

該当のソースコード

実コードそのものではないですが、意図としてはこのような感じです。

'UserForm1
Private setting As New Collection

Sub Userform_Initialize()
    With setting
        .Add Item:=cmb.text
        .Add Item:=cbbx1.ListIndex
        .Add Item:=cbbx2.text
    End With
End Sub

Sub set()
  Dim result As Boolean
  result = class1.open(setting)
End Sub

'class1
Function open(ByRef data As Collection) As Boolean
   Msgbox(data(1))'UserFormのsettingコレクションのItem1が表示できる
   class2.Open data'ここで実行時エラー発生
～～省略～～
End Function


'class2
Sub open(Byref data As Collection)
～～省略～～  
End Sub

試したこと

詰まっています。

補足情報（FW/ツールのバージョンなど）

VBA6.5

Answer 1

多少変えて試してみましたがうまくいきました。
参考になるでしょうか。

'Userform1
Private setting As New Collection

Private Sub Userform_Initialize()
    With setting
        .Add Item:="A"
        .Add Item:="B"
        .Add Item:="C"
    End With
End Sub

Private Sub CommandButton1_Click()
  Dim result As Boolean
  Dim c1 As Class1
  Set c1 = New Class1
  result = c1.open1(setting)
End Sub

'Class1
Public Function open1(ByRef data As Collection) As Boolean
   MsgBox (data(1)) 'UserFormのsettingコレクションのItem1が表示できる
   Dim c2 As Class2
   Set c2 = New Class2
   c2.open2 data
   open1 = True
End Function

'Class2
Sub open2(ByRef data As Collection)
    MsgBox data(1)
End Sub

Answer 2

ダメ元です。
Collectionオブジェクトの変数宣言とインスタンス化を別けてみました。

'UserForm1
Private setting As Collection

Sub Userform_Initialize()
    Set setting = New Collection
    With setting
        .Add Item:=cmb.text
        .Add Item:=cbbx1.ListIndex
        .Add Item:=cbbx2.text
    End With
End Sub