Дано целое число N (> 2) и набор из N чисел. Найти два наименьших элемента из данного набора - VB

Sub Task(A() As integer, n as integer)
      min1%=A(1)
      min2%=A(2)
      for i%=1 to n
          If A(i%) < min1% then
             min2%=min1%
             min1%=A(i%)
          elseIf A(i%) < min2% then
             min2%=A(i%)
          end if
      Next i%
      Debug.Print min1%;" ";min2% 
End Sub