Дан текстовый файл,каждая строка которого содержит изображения нескольких чисел,разделенные пробелами(вещественные числа имеют ненулевую дробную часть - VB

Sub Task(finp as string,fout as string)
    fi%=freefile
    open finp for input as #fi%
    fo%=freefile
    open fout for binary access write as #fo%
    Do While (Not EOF(fi%))
        Line input #fi%,Stri$
        Arr=Split(Stri$," ")
        for i%=0 to Ubound(Arr,1)
            s$=Arr(i%)
            if len(s$) > 0 then
              Z#=Val(s$)
              if Abs(Z#-Fix(Z#)) >= 1E-14 then Put #fo%,,Z# 
            end if 
        Next i%
    Loop
    Close #fi%
    Close #fo%
End Sub