Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать четные, а во второй нечетные числа. - VB

Sub Filter(Fi as string, Feven as string, Fodd as string)
      ff%=FreeFile
      Open Fi as input As #ff%
      foev%=FreeFile
      Open Feven as Output As #foev%
      foodd%=FreeFile
      Open Fodd as Output As #foodd%
      Do While (not EOF(ff%))
          line input #ff%,Stri$
          If (Val(Stri$) mod 2)=0 then
             print #foev%,Stri$
          else
             print #foodd%,Stri$
          end if
      Loop
      Close ff%
      Close foev%
      Close foodd%
End sub