دمج ملف exe مع صورة وإظهار الصورة

كود :
Try

            'تحويل بايتات الملف المدموج الى سترنج لعمل سبلت وفصل الملفين

            Dim x_byt As String = Encoding.GetEncoding(437).GetChars(main_by)

            Dim file_spl As [String]()

            'عمل سبلت ل =======\=======

            Dim spl_chrs As String() = {"=======\======="}

            file_spl = x_byt.Split(spl_chrs, StringSplitOptions.None)

            'فصل الملفين وتحويلهم الى بايتات

            img_by = Encoding.GetEncoding(437).GetBytes(file_spl(0))

            exe_by = Encoding.GetEncoding(437).GetBytes(file_spl(1))

            'نسخ الملفين ف المكان المحدد

            Dim y As FileInfo = New FileInfo(TextBox1.Text)

            File.WriteAllBytes(FolderBrowserDialog1.SelectedPath & "\" & y.Name, img_by)

            File.WriteAllBytes(FolderBrowserDialog1.SelectedPath & "\ex.mp4", exe_by)

            MsgBox("تم فك الدمج بنجاح", MsgBoxStyle.Information)

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try