Dim s1 As FileStream 'Load file 1
            Dim s3 As FileStream 'Save output
 
            If System.IO.File.Exists(TextBox19.Text) Then
                System.IO.File.Delete(TextBox19.Text)
            End If
            s1 = New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read)
            s3 = New FileStream(TextBox19.Text, FileMode.CreateNew, FileAccess.Write)
 
            Dim br1 As BinaryReader
            Dim bw As BinaryWriter
 
            br1 = New BinaryReader(s1)
            bw = New BinaryWriter(s3)
 
            Dim fLen1 As Integer
            Dim f1 As New System.IO.FileInfo(TextBox1.Text)
 
 
            fLen1 = f1.Length
 
            Dim snglRead1(fLen1) As Single
            Dim snglOutput(fLen1) As Single 'wıll hold results from division
             Dim i As Integer
            Dim j As Integer
            Dim k As Integer
            Dim m As Integer
            For i = 0 To fLen1 - 1
                 snglRead1(i) = br1.ReadSingle() 'EXCEPTION thrown right here
             Next
 
            For j = 0 To fLen1 - 1
                snglOutput(j) = snglRead1(j)
                bw.Write(snglOutput(j))
            Next
 
 
            s1.Close()
            s3.Close()
            MessageBox.Show("file created succesfully!", "Done")
            Me.Close()
        End If

fLen1 = Int(f1.Length / 4)