Beregne gennemsnit i Access

er der nogen eksperter der kan vise hvad der skal rettes i dette
modul for at den kan beregne gennemsnitte med decimaler

Public Function Average(ParamArray pArray() As Variant) As Single
Dim i As Long
Dim counter As Long
Dim sum As Long
  For i = 0 To UBound(pArray)
    If Not IsNull(pArray(i)) Then
      sum = sum + pArray(i)
      counter = counter + 1
    End If
  Next i
  If counter > 0 Then
    Average = sum / counter
  Else
    Average = 0
  End If
 
End Function