Matrix multiplication in VBA (not the application. one)

[SamT]

Break it down

Sub a()
    Dim Nomin As Double
    Dim Denom As Double
    Dim WsF As Object
    Set WsF = Application.WorksheetFunction
    With WsF
        Nomin = (.MMult(.MMult(.Transpose(onevector), .MInverse(Sigma)), ExcessMu))
        Denom = (.MMult(.MMult(.Transpose(ExcessMu), .MInverse(Sigma)), ExcessMu))
    End With
    TMVMuTanN = Nomin / Denom
End Sub