List 6-38　コレクションで返す例

  1： Function GetCustomers2(ByRef CUSTOMERNAME As Collection, _
   　                        ByRef TELEPHONE As Collection, _
   　                        ByRef FAX As Collection)
  2：          
  3：     ' コレクションを作成
  4：     Set CUSTOMERNAME = New Collection
  5：     Set TELEPHONE = New Collection
  6：     Set FAX = New Collection
  7：     ' データを設定
  8：     CUSTOMERNAME.Add "ソフトバンクパブリッシング"
  9：     TELEPHONE.Add "03-1234-5678"
 10：     FAX.Add "03-1234-5679"
 11： 
 12：     CUSTOMERNAME.Add "マイクロソフト"
 13：     TELEPHONE.Add "03-2345-6789"
 14：     FAX.Add "03-2345-6790"
 15：           
 16：     ' データ数を設定
 17：     MsgBox CUSTOMERNAME.Count
 18：     GetCustomers2 = 2
 19： End Function