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