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

Sub SplitF(Finp as string, Fo1 as string, Fo2 as string, _ 
              Optional fi as integer=-1, _
              Optional fo1 as integer=-1, _
              Optional fo2 as integer=-1)
      If fi=-1 then
         fii%=FreeFile
         Open Finp for Input as #fii%
         foo1%=FreeFile
         Open Fo1 for Output as #foo1%
         foo2%=FreeFile
         Open Fo2 for Output as #foo2%
         SplitF "","",fii%,fo1%,fo2%
     Else
         If EOF(fi) then
            Close fi
            Close fo1
            Close fo2
            Exit Sub
         else
            Line input #fi,Stri$
            If (val(Stri$) mod 2)=0 then
               print #fo1,Stri$
            else
               print #fo2,Stri$
            end if 
            SplitF "","",fi,fo1,fo2
     End if       
End Sub