Como calcular Média Harmônica em VBA - VBA para Matemática e Estatística

' Macro que permite obter a média harmônica de um conjunto
Sub CalcularMediaHarmonica()
  ' vamos declarar o array
  Dim valores As Variant
  ' para guardar a quantidade de elementos
  Dim n As Integer
  ' para guardar a média harmônica
  Dim media_harmonica As Double
  ' guarda a soma dos inversos dos elementos do conjunto
  Dim soma As Double
  Dim i As Integer
     
  ' vamos criar um vetor com os valores do conjunto
  valores = Array(3, 9, 7, 2, 5)

  n = (UBound(valores) - LBound(valores)) + 1
  soma = 0
    
  ' vamos mostrar os elementos do conjunto
  Debug.Print "Os elementos do conjunto são: " & _