Structure Artikel
    Dim Mc As String '10 Byte
    Dim Num As Short '2 Byte
    Dim Bez As String '10 Byte
    Dim Vki As Integer '4 Byte
    Dim AnzVol As Integer '4 Byte
    Dim AnzLer As Integer '4 Byte
  End Structure
 
  Sub LeseDatei()
    Dim s = IO.File.OpenRead("Datei")
    Dim r = New IO.BinaryReader(s)
 
    'einen Satz lesen
    Dim a As New Artikel
    a.Mc = r.ReadChars(10)
    a.Num = BcdToInt16(r.ReadInt16)
    a.Bez = r.ReadChars(10)
    a.Vki = r.ReadInt32
    a.AnzVol = r.ReadInt32
    a.AnzLer = r.ReadInt32
 
    r.Close()
  End Sub
 
  'Binärcodierte Dezimalzahl, in Binärzahl umwandeln
  Function BcdToInt16(w As Short) As Short
    Dim rg As Short = 0
    For i = 0 To 3
      rg += ((w >> i * 4) And &HFS) * CShort(10 ^ i)
    Next
    Return rg
  End Function