Dim bytes() As System.Byte
        Dim länge As Integer
        Try
            Using fs As New FileStream(Datei, FileMode.Open, FileAccess.Read)
                Using reader As New BinaryReader(fs)
                    bytes = reader.ReadBytes(CInt(fs.Length))
                End Using
            End Using
 
            RichTextBox1.Clear()
 
           Dim sb As New StringBuilder(2 * bytes.Length)
 
            For Each b As System.Byte In bytes
                sb.Append(String.Format("{0:X2}", b))
                'ProgressBar1.Value = ProgressBar1.Value + 1
            Next
            RichTextBox1.Text = sb.ToString()

        Dim sb As New StringBuilder()
 
        For i = 1 To RichTextBox1.TextLength Step 1
             sb.Append(String.Format("{0:X2}", Hex(i)))
        Next
        Zwischentext = sb.ToString()
 
        Using fs As New FileStream(AusgabeDatei, FileMode.Create,   _
          FileAccess.Write)
            Using writer As New BinaryWriter(fs)
                writer.Write((Zwischentext))
                writer.Close()
            End Using
        End Using