LINEST Function Calculation Using Only VBA

I can do least squares fitting utilizing LINEST and a worksheet. (See attachment.)

I would like to do the same calculations entirely within VBA.

I can specify the values as arrays within VBA :

Sub linest2VBA()
'
' linest2VBA Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Dim dXvalSqd(4), dXval(4), dYval(4), dFirstRegStat As Double
Dim i As Integer
Second Question:

Is there a way to get the remaining regression statistics within VBA by referencing only the three arrays: dXvalSqd, dXval, and dYval?