Store result from formula array into variable

Hello,

I am trying to store a result from Formula Array into a variable, w/out placing it in a worksheet
Any chance for a solution?

Sub test()
Dim ws As Worksheet
Set ws = ActiveSheet

'This way it returns the correct result but puts it into the cell
ws.Range("A1").FormulaArray = "=sum(1/countif(b4:b142,b4:B142))"


'I would like to store the result straight into a variable
'x = FormulaArray = "=sum(1/countif(B4:B142,B4:B142))"


MsgBox x



End Sub

Regards'
Vito