Вычисление среднего арифметического нечетных чисел в одномерном массиве - VB

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

Всем доброго дня! просьба помочь студенту разобраться с азами програмирования. задача в следующем: есть код на вычисление ср. арифметического нечетых чисел в одномерном массиве

                    Листинг программы
                
 
                        
                          
                    
Dim a() As Single
Dim i As Integer, m As Integer
m = InputBox(" введите количества чисел ")
ReDim a(1 To m)
For i = 1 To m
a(i) = InputBox("введите число ")
List1.List(i - 1) = a(i)
Next i
SR = sum(a, m) ' <---
Text1.Text = SR

sum расчитывается по модулю

                    Листинг программы
                
Public Sub sum(a() As Integer, n As Integer)
Dim i As Integer
For i = 1 To n
a(i) = a(i) * 2
Next i

при запуске выдает ошибку, отмеченную комментарием. где косяк?

Решение задачи: «Вычисление среднего арифметического нечетных чисел в одномерном массиве»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim a() As Single
Dim i As Integer, m As Integer
Dim SR As Single  'нет объявления
m = InputBox(" введите количества чисел ")
ReDim a(1 To m)
For i = 1 To m
a(i) = InputBox("введите число ")
List1.List(i - 1) = a(i)
Next i
SR = sum(a, m)' не согласовано - 'a' объявлено как Single, в функции (а не sub надо) Integer
Text1.Text = SR
 
Public Function sum(a() As Single, n As Integer) As Single
Dim i As Integer
For i = 1 To n
a(i) = a(i) * 2
Next i
sum = 666' в данном случае получишь 666 на возврат - в Text1.Text
End Function