Excel VBA kovarians

Hej er der nogen som kan hjælpe med at skrive kovariansen i vba (Excel) uden brug af worksheetfunctions.covar?

her er min kode:
--------------------
Function covarM(obsdata)

'nrObs = obsData.Rows.Count
nrVar = obsdata.Columns.Count

Dim M() As Double
ReDim M(nrVar, nrVar)

For i = 1 To nrVar
    For j = 1 To nrVar
    M(i, j) = _
  """" Application.WorksheetFunction.Covar(obsdata.Columns(i),obsdata.Columns(j))""""
    Next j
Next i

covarM = M

End Function
------------------
Dvs. kunsten består i at skrive kovariansen ud(det som står i anførselstegn)