List 6-37　List 6-36の呼び出し例

  1： Dim rows As Long, i As Long
  2： Dim CUSTOMERNAME As Variant, TELEPHONE As Variant, FAX As Variant
  3：     
  4： ' GetCostumersメソッドの呼び出し
  5： rows = GetCustomers(CUSTOMERNAME, TELEPHONE, FAX)
  6： ' それぞれの行を取得
  7： For i = 0 To rows - 1
  8：     MsgBox "顧客名=" & CUSTOMERNAME(i) & _
   　            "電話番号=" & TELEPHONE(i) & _
   　            "FAX番号=" & FAX(i)
  9： Next
10：    
11： ' 取得したデータを破棄
12： Set CUSTOMERNAME = Nothing
13： Set TELEPHONE = Nothing
14： Set FAX = Nothing