Function at 0x404e00
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 8
push 0x401556
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x100
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x4011d8
lea eax, [ebp - 0x40]
xor edi, edi
push 0x22
push eax
mov dword [ebp - 0x14], edi
mov dword [ebp - 0x18], edi
mov dword [ebp - 0x20], edi
mov dword [ebp - 0x24], edi
mov dword [ebp - 0x28], edi
mov dword [ebp - 0x2c], edi
mov dword [ebp - 0x30], edi
mov dword [ebp - 0x40], edi
mov dword [ebp - 0x50], edi
mov dword [ebp - 0x60], edi
mov dword [ebp - 0x70], edi
mov dword [ebp - 0x80], edi
mov dword [ebp - 0x90], edi
mov dword [ebp - 0xa0], edi
mov dword [ebp - 0xb0], edi
mov dword [ebp - 0xc0], edi
mov dword [ebp - 0xd0], edi
mov dword [ebp - 0xe0], edi
call dword [sym.imp.MSVBVM60.DLL_rtcVarBstrFromAnsi]
cmp dword [0x40a5a8], edi
jne 0x404e9a
push 0x40a5a8
push 0x402618
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x40a5a8]
lea edx, [ebp - 0x2c]
push edx
push esi
mov ecx, dword [esi]
call dword [ecx + 0x14]
cmp eax, edi
fnclex
jge 0x404ec3
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
push 0x14
push 0x402608
push esi
push eax
call ebx
jmp 0x404ec9
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x2c]
lea edx, [ebp - 0x20]
push edx
push eax
mov ecx, dword [eax]
mov esi, eax
call dword [ecx + 0x50]
cmp eax, edi
fnclex
jge 0x404ee9
push 0x50
push 0x402628
push esi
push eax
call ebx
mov eax, dword [ebp - 0x20]
mov dword [ebp - 0x20], edi
mov dword [ebp - 0x48], eax
mov eax, 8
mov dword [ebp - 0x50], eax
mov dword [ebp - 0xd0], eax
mov eax, dword [0x40a5a8]
mov dword [ebp - 0xc8], 0x403470
cmp eax, edi
jne 0x404f23
push 0x40a5a8
push 0x402618
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x40a5a8]
lea ecx, [ebp - 0x30]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
cmp eax, edi
fnclex
jge 0x404f44
push 0x14
push 0x402608
push esi
push eax
call ebx
mov eax, dword [ebp - 0x30]
lea ecx, [ebp - 0x24]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x58]
cmp eax, edi
fnclex
jge 0x404f64
push 0x58
push 0x402628
push esi
push eax
call ebx
mov eax, dword [ebp - 0x24]
lea edx, [ebp - 0xb0]
mov dword [ebp - 0x78], eax
mov eax, 8
push 0x22
push edx
mov dword [ebp - 0x24], edi
mov dword [ebp - 0x80], eax
mov dword [ebp - 0xd8], 0x403478
mov dword [ebp - 0xe0], eax
call dword [sym.imp.MSVBVM60.DLL_rtcVarBstrFromAnsi]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaVarCat]
lea eax, [ebp - 0x40]
lea ecx, [ebp - 0x50]
push eax
lea edx, [ebp - 0x60]
push ecx
push edx
call esi
push eax
lea eax, [ebp - 0xd0]
lea ecx, [ebp - 0x70]
push eax
push ecx
call esi
push eax
lea edx, [ebp - 0x80]
lea eax, [ebp - 0x90]
push edx
push eax
call esi
lea ecx, [ebp - 0xe0]
push eax
lea edx, [ebp - 0xa0]
push ecx
push edx
call esi
push eax
lea eax, [ebp - 0xb0]
lea ecx, [ebp - 0xc0]
push eax
push ecx
call esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x14]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea edx, [ebp - 0x30]
lea eax, [ebp - 0x2c]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObjList]
lea ecx, [ebp - 0xc0]
lea edx, [ebp - 0xb0]
push ecx
lea eax, [ebp - 0xa0]
push edx
lea ecx, [ebp - 0x90]
push eax
lea edx, [ebp - 0x80]
push ecx
lea eax, [ebp - 0x70]
push edx
lea ecx, [ebp - 0x60]
push eax
lea edx, [ebp - 0x50]
push ecx
lea eax, [ebp - 0x40]
push edx
push eax
push 9
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
add esp, 0x34
lea ecx, [ebp - 0x18]
lea edx, [ebp - 0x20]
push ecx
push 0x3f
push edi
push 0x402460
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
push 0x80000001
call fcn.00402678
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
lea ecx, [ebp - 0x20]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
mov eax, dword [ebp + 8]
cmp word [eax], di
mov eax, dword [0x40a5a8]
je 0x40514a
cmp eax, edi
jne 0x405098
push 0x40a5a8
push 0x402618
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x40a5a8]
lea edx, [ebp - 0x2c]
push edx
push esi
mov ecx, dword [esi]
call dword [ecx + 0x14]
cmp eax, edi
fnclex
jge 0x4050b9
push 0x14
push 0x402608
push esi
push eax
call ebx
mov eax, dword [ebp - 0x2c]
lea edx, [ebp - 0x20]
push edx
push eax
mov ecx, dword [eax]
mov esi, eax
call dword [ecx + 0x60]
cmp eax, edi
fnclex
jge 0x4050d9
push 0x60
push 0x402628
push esi
push eax
call ebx
mov eax, dword [ebp - 0x14]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaLenBstr]
mov ecx, dword [ebp - 0x14]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
lea edx, [ebp - 0x28]
push ecx
push edx
call esi
push eax
mov eax, dword [ebp - 0x20]
push 1
push edi
lea ecx, [ebp - 0x24]
push eax
push ecx
call esi
mov edx, dword [ebp - 0x18]
push eax
push edx
call fcn.00402704
mov esi, eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov eax, dword [ebp - 0x28]
lea ecx, [ebp - 0x14]
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
xor edx, edx
cmp esi, edi
sete dl
neg edx
lea eax, [ebp - 0x28]
mov dword [ebp - 0x1c], edx
lea ecx, [ebp - 0x24]
push eax
lea edx, [ebp - 0x20]
push ecx
push edx
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x10
jmp 0x4051de
cmp eax, edi
jne 0x40515e
push 0x40a5a8
push 0x402618
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x40a5a8]
lea ecx, [ebp - 0x2c]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
cmp eax, edi
fnclex
jge 0x40517f
push 0x14
push 0x402608
push esi
push eax
call ebx
mov eax, dword [ebp - 0x2c]
lea ecx, [ebp - 0x20]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x60]
cmp eax, edi
fnclex
jge 0x40519f
push 0x60
push 0x402628
push esi
push eax
call ebx
mov edx, dword [ebp - 0x20]
lea eax, [ebp - 0x24]
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
mov ecx, dword [ebp - 0x18]
push eax
push ecx
call fcn.004027ec
mov esi, eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
xor edx, edx
cmp esi, edi
lea eax, [ebp - 0x24]
lea ecx, [ebp - 0x20]
sete dl
push eax
push ecx
neg edx
push 2
mov dword [ebp - 0x1c], edx
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
mov edx, dword [ebp - 0x18]
push edx
call fcn.004026bc
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
push 0x405267
jmp 0x40525d
lea ecx, [ebp - 0x14]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
ret