Тема: Помогите составить программу поиска одномерных массивов

Голый BASIC, не компилировал(нечем).
На VB перетаскивайте сами.

Basic Code:

DIM N AS INTEGER
DIM A(N) AS  INTEGER
DIM Sr AS DOUBLE
 
FOR i = 1 TO N
   Sr = Sr + A(i)
NEXT
Sr = Sr / N
 
RzMin = ABS(A(1) - Sr): Num = 1
FOR i = 2 TO N
   Razn = ABS(A(i) - Sr)
   IF Razn < RzMin THEN RzMin = Razn: Num = i
NEXT

В Num должен быть номер искомого элемента.