Function PD_lesen(ByVal Dateiname As String, ByVal Datensatz As Long) As Long
 
        Dim st As Stream
        Dim br As BinaryReader
        Dim bytes() As Byte
        Dim sb As StringBuilder
        Dim s As String
 
        Dim i As Long
        Dim a As String
        Dim jj1, jj2, mm1, tt, dd, hh, mm2 As String
        ' Header
        Dim v_Kennung As Byte
        Dim v_Terminal_SW As String '* 4
        Dim v_Kartenhersteller As String '* 1
        Dim v_Kartennummer As Double
        Dim v_filler As String '* 4
 
 
       ......
 
 
 
        '###########################################################
 
        'Datei öffnen
        st = New FileStream(Dateiname, FileMode.Open, FileAccess.Read)
        br = New BinaryReader(st)
 
        'Dim fn As Integer
        'fn = FreeFile()
        'While Datensatz > 1
 
        bytes = br.ReadBytes(120)
        Datensatz = Datensatz - 1
 
        'End While
 
        br.Close()
        st.Close()
 
 
        Dim test As String
        sb = New StringBuilder(bytes.Length)
        MsgBox("bytes.Length " & bytes.Length)
        For i = 0 To bytes.Length - 1
 
            sb.Append(bytes(i)) '.ToString("x2"))
 
        Next
        s = sb.ToString
        MsgBox("s = " & s)
        ListBox1.Items.Add(s)
        TextBoxEinreichungID.Text = s
 
 
 
        'Header
        '########################################################
        'Pos HGS 1
        v_Kennung = Asc(s)
        'Pos HGS 2
        MsgBox("Kennung " & v_Kennung)
        'Pos HGS 4
        v_Kartennummer = strKonvertierung.StringToDouble(496)
        MsgBox("v_Kartennummer " & v_Kartennummer)
 
 
        Return 0
    End Function