I think it works, but will not return a amount?

Function efc(amt1 As Variant, amt2 As Variant, amt3 As
Variant, amt4 As Variant, amt5 As Variant, amt6 As
Variant, amt7 As Variant, amt8 As Variant, amt9 As
Variant) As Variant
        Dim Myx As Variant
        Dim MyYs As Variant
        Dim MyXs As Variant
        Dim objExcel As Excel.Application
        Set objExcel = CreateObject("Excel.Application")

        Myx = amt1
        MyYs = Array(amt2, amt3, amt4, amt5)
        MyXs = Array(amt6, amt7, amt8, amt9)

        efc = Excel.Application.Forecast(Myx, MyYs, MyXs)

        objExcel.Quit
        Set objExcel = Nothing

End Function