[RESOLVED] FileStream, ReadBytes with interval

[rossi_4656]

I'm trying to read bytes with 1200 interval for 100 times, but I can't get it working. This is my code:

Try
                Dim fr As FileStream = File.OpenRead(OpenFileDialog1.FileName)
                Dim data(fr.Length) As Byte
                Using reader As New BinaryReader(fr)
                    Const START As Long = 4896
                    fr.Seek(START, SeekOrigin.Begin)
                    data = reader.ReadBytes(data.Length)
                End Using
                ListBox1.Items.Add(System.Text.Encoding.UTF8.GetString(data))
                fr.Close()
            Catch
            End Try

I need to read from offset 4896, then from 6096, then from 7296 for 100 times and for each interval add to the listbox. who can help me? Thanks