Using fs As New IO.FileStream("G:\daten\.....", IO.FileMode.Open, _
    IO.FileAccess.Read)
     Dim bytes(CInt(fs.Length - 1)) As Byte
     fs.Read(bytes, 0, bytes.Length)
     Dim bm As New BitArray(bytes)
     '.... ab hier ist eine indizierter Zugriff (nullbasiert)
     'auf die einzelnen Bits möglich
     'Damit kanst Du die exakte Position und Länge Deiner
     'einzelnen Datenfelder ermitteln und Bit-Folgen zu Daten-Werten 
     'konvertieren.
  End Using

Sub test()
        Dim t1 As String = Chr(&H1) & Chr(&H15)
        Dim e As String, i As Int16
 
        e = Convert.ToInt16(GetChar(t1, 1)).ToString("X") & Convert.ToInt16( _
          GetChar(t1, 2)).ToString("X2")
        i = Convert.ToInt16(e)  ' nur,wenn du mit der Zahl rechnen willst
 
        Debug.Print(e)
        Debug.Print(i)
 
    End Sub

Function test16(t1 As String) As Short
 
        Dim e As String, i As Int16
 
        e = Convert.ToInt16(GetChar(t1, 1)).ToString("X2") & Convert.ToInt16( _
          GetChar(t1, 2)).ToString("X2")
        i = Convert.ToInt16(e)  ' nur,wenn du mit der Zahl rechnen willst
 
        Return i
 
End Function

    Function Test(t1 As String) As Integer
 
        Dim e As String = ""
 
        For i = 1 To Len(t1)
            e = e & Convert.ToInt16(GetChar(t1, i)).ToString("X2")
        Next
 
        Return Convert.ToInt32(e)
 
    End Function

   Function Test(t1 As Char()) As Integer
 
        Dim e As String = ""
 
        For i = 1 To Len(t1)
            e = e & Convert.ToInt32(GetChar(t1, i)).ToString("X2")
        Next
 
        Return Convert.ToInt32(e)
 
    End Function

   Function Test(t1 As Char()) As Integer
 
        Dim e As String = ""
 
        For i = 1 To Len(t1)
            e = e & Convert.ToInt32(GetChar(t1, i)).ToString("X2")
        Next
 
        Return Convert.ToInt32(e)
 
    End Function

Zitat:

Nimm ChrW statt Chr. Dann klappt's auch mit Werten > 127 (7F hex)

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)

    Structure Artikel
        Dim Mc As String '10 Byte
        Dim Num As Integer '2 Byte
        ...
        Dim NeuDat As String '4 Byte
        ...
    End Structure
 
    Sub LeseDatei()
 
        Dim s = IO.File.OpenRead("d:\##\cobol.txt")  'Testdatei
        Dim r = New IO.BinaryReader(s)
 
        'einen Satz lesen
        Dim a As New Artikel
 
        ReadBuffer = r.ReadBytes(2)
        a.Num = CType(Comp6toString(ReadBuffer), Integer)  'inkl. Umsetzung 
        ' nach Integer
 
        ...
 
        ReadBuffer = r.ReadBytes(4)
        a.NeuDat = Comp6toString(ReadBuffer)               'bleibt eine String
 
        ...
 
        r.Close()
 
    End Sub

   Public Function Comp6toString(ReadValue() As Byte) As String
 
        Dim x As String = ""
        For i = 0 To ReadValue.Length - 1
            x &= ReadValue(i).ToString("x2")
        Next
        Return x
 
    End Function