Получить название двух самых дешевых игрушек из файла - VB

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

дан файл Assort, содержащий сведения об игрушках: указывается название игрушки,ее стоимость в рублях и возрастные границы (например, игрушка может для детей от 2 до 5 лет) Получить название двух самых дешевых игрушек.

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

textual
                            Листинг программы 
                        

                            Sub Task(fname as string)
      fi%=freeFile()
      open fname for input as #fi%
      line input #fi%,Stri$
      Arr=Split(Stri$,";")
      n1$=Arr(0)
      m1#=Val(Arr(1))
      n2$=n1$
      m2#=m1#
      Do while (not EOF(fi%))
           line input #fi%,Stri$
           Arr=Split(Stri$,";")
           n$=Arr(0)
           m#=Val(Arr(1))
           If m# < m1# then 
              m2#=m1#
              n2$=n1$
              m1#=m#
              n1$=n$
           elseIf m#  < m2# then
              m2#=m#
              n2$=n$
           end if
       Loop    
       Close #fi%
       debug.print n1$;" ";m1#
       debug.print n2$;" ";m2#
End sub
                        