vba 数组参数

  Function   test(a   As   String,   b()   As   String)   As   String  
            Dim   i   As   Long,   s   As   String  
            For   i   =   LBound(b)   To   UBound(b)  
                  s   =   s   +   b(i)  
            Next  
            test   =   s   +   a  
  End   Function  

  Private   Sub   Test()  
          Dim   marray()   As   String  
          marray   =   Split("hello   ,welcom   ,you-",   ",")  
          MsgBox   test("boy",   marray)  
  End   Sub