среднее геометрическое числа

[Warhead]

Мне нужно создать функцию в VBA выводящую среднее геометрическое из нескольких выбранных чисел Listbox ( В listbox введено 10 чисел)
Заранее благодарен.

[Stilet]

Не ручаюсь за правильность но:

 Dim i As Integer 
 
dim g as double
 For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) Then
   g=g*CInt(ListBox1.List(i));
  End If
  
 Next i

[Warhead]

блин не работает , а плюс мне же функцию надо. не можешь уточнить?

[Stilet]

Я плохо знаю VBA, уж что вспомнил то написал )