Why is this producing 0 when the result should be a decimal point answer (0.032748161) which is what I want?

I have tried formatting and rounddown but neither work.

Dim LRow as Long, APAve as Long

LRow = .Range("G" & .Rows.Count).End(xlUp).row
APAve = WorksheetFunction.Average(ThisWorkbook.Sheets(3).Range("M2:M" & LRow))