Загрузка исходных данных из файла - VB

Sub LoadMatrix(fname as string) As Single()
Dim  Res() As Single
      fi%=FreeFile
      Open fname For Binary read  As #fi%
      L&=LOF(fi%)
      Buf$=Space$(L&)
      Get #fi%,,Buf$
      Close #fi%
      Redim Res(1 to 5, 1 to 5) As Single
      Buf$=Replace$(Buf$, chr$(10)," ")
      Buf$=Replace$(Buf$, chr$(13),"")
      V=Split(Buf$)
      k%=0
      For i%=1 to 5
           For j%=1 to 5
                Res(i%,j%)=Val(V(k%))
                k%=k%+1
           Next j%
      Next i%
      LoadMatrix=Res 
End Sub