Как записать в массив? Это всегда пусто или в 0

Question

Я относительно новичок в VBA

Я думаю, что ошибка в моем синтаксисе.

Ниже приведена подпрограмма, над которой я работаю. массив "MyArray" всегда пуст. Я dim'd и redim'd и изменил тип и синтаксис на основе того, что я видел в Интернете в миллион раз, его всегда 0 или пусто. пожалуйста, помогите.

Sub CostPerTon()

Dim FeedType As String, count#, CostPerTon#

FeedType = "Duck - Comercial - Starter - 1 to 25 Days"

Sheets("Formulations").Activate

count = Application.WorksheetFunction.CountA(Range("A:A"))

i = 1

Dim IngredientCost As Double
Dim MyArray(100) As Variant


Do While i < count + 1

    IngredientCost = Application.WorksheetFunction.VLookup(FeedType, Range("1:1048576"), i + 2, 0) _
     * Worksheets("Costs").Cells(i + 2, 2) * (1 / 1000)
    MyArray(i) = IngredientCost

    i = i + 1


Loop


End Sub

переменная IngredientCost имеет значения, когда я циклически перебираю l oop, так что функция в порядке. Он разбивается на строку MyArray (i) = IngredientCost. он просто остается пустым

и счет 14