Como passar um array para uma função VBA - VBA Excel para iniciantes

' Função que recebe um array e retorna a soma de seus elementos
Function SomarElementosArray(vetor As Variant) As Integer
  ' para guardar a soma dos elementos
  Dim soma As Integer
  Dim i As Integer
  
  ' inicializa a soma como zero
  soma = 0
  
  ' percorre todos os elementos do array
  For i = 0 To UBound(vetor)
    soma = soma + vetor(i)
  Next i
  
  ' retorna a soma
  SomarElementosArray = soma
End Function


' Macro que mostra como passar um aray para uma função em VBA
Sub PassarArrayFuncao()
  ' vamos declarar um array de inteiros
  Dim valores As Variant
  Dim s As Integer
  
  ' vamos inicializar os valores do conjunto
  valores = Array(4, 2, 1, 5)
    
  ' vamos mostrar os elementos do conjunto
  Debug.Print "Os elementos do conjunto são: " & _
    Join(valores, ", ")
    
  ' agora vamos chamar a função SomarElementosArray() para
  ' retornar a soma dos elementos do vetor
  s = SomarElementosArray(valores)
  
  ' e mostramos o resultado
  Debug.Print "A soma dos elementos é: " & s
End Sub