Dim fs As New FileStream("c:\test.bin", FileMode.Open)
        Dim br As New BinaryReader(fs)
        Dim zeilen As Short = br.ReadInt16()
 
        For i As Integer = 0 To zeilen - 1
            Dim b As Byte = br.ReadByte()
            Dim str As String = System.Text.Encoding.Default.GetString( _
              br.ReadBytes(b)) ' 'Default' = Windows Zeichensatz
 
            ' was immer
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist