Function at 0x436eb0
Capabilities:
Persist via run registry key
Persist via winlogon helper dll registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x14
push 0x4020a6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x88
push ebx
push esi
push edi
mov dword [ebp - 0x14], esp
mov dword [ebp - 0x10], 0x401a18
xor esi, esi
mov dword [ebp - 0xc], esi
mov dword [ebp - 8], esi
mov dword [ebp - 0x2c], esi
mov dword [ebp - 0x30], esi
mov ecx, 8
xor eax, eax
lea edi, [ebp - 0x50]
rep stosd dword es:[edi], eax
mov dword [ebp - 0x54], esi
mov dword [ebp - 0x58], esi
mov dword [ebp - 0x5c], esi
mov dword [ebp - 0x6c], esi
mov dword [ebp - 0x7c], esi
mov dword [ebp - 0x8c], esi
mov edx, dword [ebp + 8]
lea ecx, [ebp - 0x54]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
push 1
call dword [sym.imp.MSVBVM60.DLL___vbaOnError]
mov dword [ebp - 0x50], esi
push 0x40a91c
lea eax, [ebp - 0x5c]
push eax
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
call ebx
push eax
mov ecx, dword [ebp - 0x54]
push ecx
lea edx, [ebp - 0x58]
push edx
call ebx
push eax
call fcn.0040aa00
mov edi, eax
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
call esi
mov eax, dword [ebp - 0x58]
push eax
lea ecx, [ebp - 0x54]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
mov dword [ebp - 0x44], edi
lea edx, [ebp - 0x5c]
push edx
lea eax, [ebp - 0x58]
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
mov dword [ebp - 0x40], 1
lea ecx, [ebp - 0x50]
push ecx
call fcn.0040aa58
mov edi, eax
call esi
test edi, edi
je 0x437079
mov dword [ebp - 0x64], 0
mov dword [ebp - 0x6c], 2
lea edx, [ebp - 0x6c]
push edx
push 0x104
lea eax, [ebp - 0x7c]
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcStringVar]
lea ecx, [ebp - 0x7c]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x30]
call dword [fcn.00401260]
lea edx, [ebp - 0x7c]
push edx
lea eax, [ebp - 0x6c]
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
add esp, 0xc
mov ecx, dword [ebp - 0x30]
push ecx
lea edx, [ebp - 0x58]
push edx
call ebx
push eax
push edi
call fcn.0040aaa4
call esi
mov eax, dword [ebp - 0x58]
push eax
lea ecx, [ebp - 0x30]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
lea ecx, [ebp - 0x58]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
push edi
call fcn.0040a9bc
call esi
push 1
mov edx, dword [ebp - 0x30]
push edx
push 0x408dfc
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaInStr]
mov ecx, eax
call dword [sym.imp.MSVBVM60.DLL___vbaI2I4]
test ax, ax
jle 0x437079
lea ecx, [ebp - 0x30]
mov dword [ebp - 0x84], ecx
mov dword [ebp - 0x8c], 0x4008
sub ax, 1
jo 0x43711b
movsx edx, ax
push edx
lea eax, [ebp - 0x8c]
push eax
lea ecx, [ebp - 0x6c]
push ecx
call dword [sym.imp.MSVBVM60.DLL_rtcLeftCharVar]
lea edx, [ebp - 0x6c]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x30]
call dword [fcn.00401260]
lea ecx, [ebp - 0x6c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov edx, dword [ebp - 0x30]
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
call dword [sym.imp.MSVBVM60.DLL___vbaExitProc]
push 0x437105
jmp 0x4370f4
lea ecx, [ebp - 0x30]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
call esi
lea ecx, [ebp - 0x54]
call esi
ret
call dword [sym.imp.MSVBVM60.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop