Structure Artikel
        Dim Mc As String '10 Byte
 
        Dim Num() As Byte  'Byte Array ohne Anzahl-Angabe
 
        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("d:\##\cobol.txt")  'Testdatei
        Dim r = New IO.BinaryReader(s)
        Dim x As String = "" 
        Dim i As Integer
 
        'einen Satz lesen
        Dim a As New Artikel
        a.Mc = r.ReadChars(10)
 
'###################################################################
 
        a.Num = r.ReadBytes(2)   '<--- Anzahl Bytes anpassen
        For i = 0 To a.Num.Length - 1   ' Arrays fangen mit 0 an
            x &= a.Num(i).ToString("X2")  ' als string
        Next
        i = Convert.ToInt16(x) ' in Integer Zahl konvertieren
'###################################################################
 
        a.Bez = r.ReadChars(10)
        a.Vki = r.ReadInt32
        a.AnzVol = r.ReadInt32
        a.AnzLer = r.ReadInt32
 
        r.Close()
 
        Debug.Print("Num-String   : " & x)
        Debug.Print("Num-Zahl     : " & i.ToString)