Разработать функцию пользователя для расчета общей стоимости товаров - VB

Формулировка задачи:

Здравствуйте! Помогите пожалуйста с созданием функции пользователя циклической структуры. Разработать функцию пользователя для расчета общей стоимости товаров по формуле: С=ƩК_i*Ц_i, где С-общая стоимость товаров, К_i-количество i-го товара, Ц_i-цена i-го товара.

пыталась сделать так. не работает.

                    Листинг программы
                
 
                        
                          
                    
Public Function ОбщаяСтоимость(КоличествоТовара As Variant, ЦенаТовара As Variant) As Double
Dim K, I As Integer
Rem Описываем переменные
K = КоличествоТовара.Count
Rem Определяем количество товара
For I = 1 To K
ОбщаяСтоимость = ОбщаяСтоимость + КоличествоТовара * ЦенаТовара
Next I
End Function

подскажите, в чем ошибка? как исправить?

Решение задачи: «Разработать функцию пользователя для расчета общей стоимости товаров»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Function ОбщаяСтоимость(КоличествоТовара As Variant, ЦенаТовара As Variant) As Double
Dim K, I As Integer
Dim Cost As Double
Rem Описываем переменные
K = КоличествоТовара.Count
Rem Определяем количество товара
Cost = 0
For I = 1 To K
    Cost = Cost + КоличествоТовара(I) * ЦенаТовара(I)
Next I
ОбщаяСтоимость = Cost
End Function