Dim bytes() As Byte = File.ReadAllBytes("C:\Herman2\DOS\C\PC-Blue\0\blu000.arc")
        Dim pos1 As Integer = 2
        Dim str5 As String = ""
        Dim str6 As String
        Dim byt1 As Byte
        Dim fo5 As Integer = 0
        Dim length As UInteger
        Do
            fo = 0
            str5 = ""
            fo5 = 0
            For i = 1 To 13
                byt1 = bytes(pos1)
                If byt1 <> 0 Then
                    If fo5 = 0 Then
                        str5 = str5 + Chr(byt1)
                    End If
                Else
                    fo5 = 1
                End If
                pos1 = pos1 + 1
            Next
            length = bytes(pos1) + 256 * bytes(pos1 + 1)
            pos1 = pos1 + length + 16
            str6 = str6 + str5 + vbNewLine
        Loop Until pos1 + 2 >= bytes.Length
        TextBox1.Text = str6
        ActiveControl = Label1