Function at 0x40a250
Capabilities:
Access peb ldr_data
Get process heap flags
Get process heap force flags

Disassembly:
push ebp
mov ebp, esp
sub esp, 8
push 0x401a46
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x90
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x401460
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
xor ebx, ebx
mov edx, 0x403b00
mov ecx, 0x41502c
mov dword [ebp - 0x14], ebx
mov dword [ebp - 0x18], ebx
mov dword [ebp - 0x1c], ebx
mov dword [ebp - 0x20], ebx
mov dword [ebp - 0x30], ebx
mov dword [ebp - 0x40], ebx
mov dword [ebp - 0x50], ebx
mov dword [ebp - 0x60], ebx
mov dword [ebp - 0x70], ebx
call edi
mov ecx, dword [0x415040]
mov edx, 0x403b20
call edi
mov eax, dword [0x415040]
mov edx, 0x403b40
lea ecx, [eax + 4]
call edi
mov ecx, dword [0x415040]
mov edx, 0x403b60
add ecx, 8
call edi
mov eax, dword [0x415040]
mov edx, 0x403b80
lea ecx, [eax + 0xc]
call edi
mov ecx, dword [0x415040]
mov edx, 0x4038b0
add ecx, 0x10
call edi
mov eax, dword [0x415040]
mov edx, 0x403ba0
lea ecx, [eax + 0x14]
call edi
mov ecx, dword [0x415040]
mov edx, 0x403bc0
add ecx, 0x18
call edi
mov eax, dword [0x415040]
mov edx, 0x403be0
lea ecx, [eax + 0x1c]
call edi
mov ecx, dword [0x415040]
mov edx, 0x403c00
add ecx, 0x20
call edi
mov eax, dword [0x415040]
mov edx, 0x403c20
lea ecx, [eax + 0x24]
call edi
mov ecx, dword [0x415040]
mov edx, 0x403c40
add ecx, 0x28
call edi
mov eax, dword [0x415040]
mov edx, 0x403c60
lea ecx, [eax + 0x2c]
call edi
mov ecx, dword [0x415040]
mov edx, 0x403c80
add ecx, 0x30
call edi
lea edx, [ebp - 0x70]
lea ecx, [ebp - 0x30]
mov dword [ebp - 0x68], 0x403aa0
mov dword [ebp - 0x70], 8
call dword [sym.imp.MSVBVM60.DLL___vbaVarDup]
lea edx, [ebp - 0x30]
push edx
call dword [sym.imp.MSVBVM60.DLL_rtcEnvironBstr]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x1c]
call esi
mov edx, dword [ebp - 0x1c]
push ebx
push 0xffffffffffffffff
push 1
push 0x403a44
push 0x403ad0
lea ecx, [ebp - 0x14]
mov dword [ebp - 0x1c], ebx
call esi
push eax
push 0x403ca0
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x18]
call esi
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcReplace]
mov edx, eax
mov ecx, 0x415068
call esi
lea eax, [ebp - 0x1c]
lea ecx, [ebp - 0x18]
push eax
lea edx, [ebp - 0x14]
push ecx
push edx
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x10
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
lea edx, [ebp - 0x70]
lea ecx, [ebp - 0x30]
mov dword [ebp - 0x68], 0x403aa0
mov dword [ebp - 0x70], 8
call dword [sym.imp.MSVBVM60.DLL___vbaVarDup]
lea eax, [ebp - 0x30]
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcEnvironBstr]
mov edx, eax
lea ecx, [ebp - 0x1c]
call esi
mov edx, dword [ebp - 0x1c]
push ebx
push 0xffffffffffffffff
push 1
push 0x403a44
push 0x403ad0
lea ecx, [ebp - 0x14]
mov dword [ebp - 0x1c], ebx
call esi
push eax
push 0x403cb8
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x18]
call esi
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcReplace]
mov edx, eax
mov ecx, 0x415060
call esi
lea ecx, [ebp - 0x1c]
lea edx, [ebp - 0x18]
push ecx
lea eax, [ebp - 0x14]
push edx
push eax
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x10
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
lea edx, [ebp - 0x70]
lea ecx, [ebp - 0x30]
mov dword [ebp - 0x68], 0x403aa0
mov dword [ebp - 0x70], 8
call dword [sym.imp.MSVBVM60.DLL___vbaVarDup]
lea ecx, [ebp - 0x30]
push ecx
call dword [sym.imp.MSVBVM60.DLL_rtcEnvironBstr]
mov edx, eax
lea ecx, [ebp - 0x1c]
call esi
mov edx, dword [ebp - 0x1c]
push ebx
push 0xffffffffffffffff
push 1
push 0x403a44
push 0x403ad0
lea ecx, [ebp - 0x14]
mov dword [ebp - 0x1c], ebx
call esi
push eax
push 0x403cd0
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x18]
call esi
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcReplace]
mov edx, eax
mov ecx, 0x415064
call esi
lea edx, [ebp - 0x1c]
lea eax, [ebp - 0x18]
push edx
lea ecx, [ebp - 0x14]
push eax
push ecx
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x10
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
cmp dword [0x415484], ebx
jne 0x40a528
push 0x415484
push 0x40327c
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov eax, dword [0x415484]
lea ecx, [ebp - 0x20]
push ecx
push eax
mov edx, dword [eax]
mov dword [ebp - 0x84], eax
call dword [edx + 0x14]
cmp eax, ebx
fnclex
jge 0x40a558
mov edx, dword [ebp - 0x84]
push 0x14
push 0x40326c
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x20]
lea edx, [ebp - 0x14]
push edx
push eax
mov ecx, dword [eax]
mov dword [ebp - 0x8c], eax
call dword [ecx + 0x50]
cmp eax, ebx
fnclex
jge 0x40a586
mov ecx, dword [ebp - 0x8c]
push 0x50
push 0x403978
push ecx
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov edx, dword [ebp - 0x14]
push ebx
push 0xffffffffffffffff
push 1
push 0x403a44
push 0x403ad0
push edx
push 0x403ce8
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x18]
call esi
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcReplace]
mov edx, eax
mov ecx, 0x41506c
call esi
lea eax, [ebp - 0x18]
lea ecx, [ebp - 0x14]
push eax
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
lea ecx, [ebp - 0x20]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
mov edx, 0x403d04
mov ecx, 0x415094
call edi
mov edx, dword [0x415068]
mov eax, dword [0x415094]
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push edx
push eax
call edi
mov edx, eax
mov ecx, 0x415068
call esi
mov ecx, dword [0x415060]
mov edx, dword [0x415094]
push ecx
push edx
call edi
mov edx, eax
mov ecx, 0x415060
call esi
mov eax, dword [0x415064]
mov ecx, dword [0x415094]
push eax
push ecx
call edi
mov edx, eax
mov ecx, 0x415064
call esi
push ebx
lea edx, [ebp - 0x30]
push 0x403d1c
push edx
mov dword [ebp - 0x68], 0x403d14
mov dword [ebp - 0x70], 8
call dword [sym.imp.MSVBVM60.DLL_rtcCreateObject2]
mov ecx, dword [ebp - 0x70]
push ebx
push 0x403d54
mov edx, dword [ebp - 0x6c]
sub esp, 0x10
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaVarLateMemCallLdRf]
mov eax, esp
push 1
push 0x403914
mov dword [eax], ecx
mov ecx, dword [ebp - 0x68]
mov dword [eax + 4], edx
mov edx, dword [ebp - 0x64]
mov dword [eax + 8], ecx
lea ecx, [ebp - 0x40]
mov dword [eax + 0xc], edx
lea eax, [ebp - 0x30]
push eax
push ecx
call edi
add esp, 0x20
lea edx, [ebp - 0x50]
push eax
push edx
call edi
add esp, 0x10
push eax
lea eax, [ebp - 0x60]
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcHexVarFromVar]
lea ecx, [ebp - 0x60]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
mov ecx, 0x415070
call esi
lea edx, [ebp - 0x60]
lea eax, [ebp - 0x50]
push edx
lea ecx, [ebp - 0x40]
push eax
lea edx, [ebp - 0x30]
push ecx
push edx
push 4
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
add esp, 4
mov ecx, 2
mov edx, esp
mov dword [ebp - 0x70], ecx
mov eax, 3
push 0x403d74
mov dword [edx], ecx
mov ecx, dword [ebp - 0x6c]
mov dword [ebp - 0x68], eax
push 0x402f68
mov dword [edx + 4], ecx
push 0x402d2c
mov dword [edx + 8], eax
mov eax, dword [ebp - 0x64]
mov dword [edx + 0xc], eax
call dword [sym.imp.MSVBVM60.DLL_rtcGetSetting]
mov edx, eax
lea ecx, [ebp - 0x14]
call esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaUI1Str]
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x14]
mov byte [0x415050], al
call edi
mov cl, byte [0x415050]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrUI1]
mov edx, eax
lea ecx, [ebp - 0x14]
call esi
push eax
push 0x403d74
push 0x402f68
push 0x402d2c
call dword [sym.imp.MSVBVM60.DLL_rtcSaveSetting]
lea ecx, [ebp - 0x14]
call edi
push 0x40a798
jmp 0x40a797
ret