Циклы в VB

[megostudent]

Есть задание

Дано показатели работы предпреятия за N месяцов - ветор Х(х1, х2, ...хn) и величины А, К, М. Найти номера месяцов, у которых показатели имеют минимальное значение.
Помогите плиз решить задание, а то есть пример и он нерабочий, а с VB ток познакомился сегодня.
пример:

Private Sub Form_Load()
Dim mint, I As Integer
Dim mdblFCP, mdbl As Double
mint = InputВох("Введите количество отраслей", _
"Цикличный вычислительный процесс", 5)
ReDim msng(mint) As Single
For I = 1 To mint
mint(І)=InputВох("Введите уровень зарплаты " & I & " — отрасли" , _
"Цикличный вычислительный процесс", "000.00")
Next I
mdblFCP = 0
For І = 1 То mintN
mdblFCP = mdblFCP + msngF(I)
Next I
mdblFCP = mdblFCP / mintN
mdblR = 0
For I = 1 To mintN
mdblR = mdblR + (msngF(I) — mdblFCP) ^ 2
Next I
mdblR = Sqr(mdblR / mintN)
MsgBox "Среднеквадратическое отклонение заработной платы = " _
& Format(mdbL "0 00"). vbOKOnly + vblnformation, _
" Цикличный вычислительный процесс"
End Sub