List 6-36　Variant型の配列として返す例

  1： Function GetCustomers(ByRef CUSTOMERNAME As Variant, _
   　                       ByRef TELEPHONE As Variant, _
   　                       ByRef FAX As Variant) As Long
  2：     CUSTOMERNAME = Array("ソフトバンクパブリッシング", "マイクロソフト")
  3：     TELEPHONE = Array("03-1234-5678", "03-2345-6789")
  4：     FAX = Array("03-1234-5679", "03-2345-6790")
  5：     GetCustomers = 2 ' 行数
  6： End Function