Function at 0x40f3c0
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0xc
push 0x4015f6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x68
push ebx
push esi
push edi
mov dword [ebp - 0xc], esp
mov dword [ebp - 8], 0x401180
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
xor esi, esi
mov edx, 0x402bf8
lea ecx, [ebp - 0x18]
mov dword [ebp - 0x18], esi
mov dword [ebp - 0x1c], esi
mov dword [ebp - 0x20], esi
mov dword [ebp - 0x24], esi
mov dword [ebp - 0x34], esi
mov dword [ebp - 0x38], esi
mov dword [ebp - 0x3c], esi
mov dword [ebp - 0x40], esi
mov dword [ebp - 0x44], esi
mov dword [ebp - 0x48], esi
mov dword [ebp - 0x4c], esi
mov dword [ebp - 0x50], esi
mov dword [ebp - 0x54], esi
mov dword [ebp - 0x64], esi
mov dword [ebp - 0x68], esi
mov dword [ebp - 0x6c], esi
mov dword [0x414010], 0x80000001
call edi
mov edx, 0x402c80
lea ecx, [ebp - 0x20]
call edi
mov eax, dword [ebp - 0x18]
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push 0x414024
push 1
push esi
lea ecx, [ebp - 0x50]
push eax
push ecx
call edi
mov edx, dword [0x414010]
push eax
push edx
call fcn.00402860
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov dword [ebp - 0x68], eax
call esi
mov eax, dword [ebp - 0x50]
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
lea ecx, [ebp - 0x18]
push eax
push ecx
call ebx
mov eax, dword [ebp - 0x68]
xor edx, edx
test eax, eax
setne dl
neg edx
lea ecx, [ebp - 0x50]
mov dword [ebp - 0x74], edx
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
cmp word [ebp - 0x74], 0
jne 0x40f5ce
lea eax, [ebp - 0x6c]
lea ecx, [ebp - 0x40]
push eax
mov eax, dword [ebp - 0x20]
lea edx, [ebp - 0x68]
push ecx
push edx
push 0
lea ecx, [ebp - 0x50]
push eax
push ecx
mov dword [ebp - 0x6c], 4
mov dword [ebp - 0x68], 1
call edi
mov edx, dword [0x414024]
push eax
push edx
call fcn.004028ac
mov dword [ebp - 0x70], eax
call esi
mov eax, dword [ebp - 0x50]
lea ecx, [ebp - 0x20]
push eax
push ecx
call ebx
lea ecx, [ebp - 0x50]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
mov eax, dword [ebp - 0x70]
xor edx, edx
test eax, eax
sete dl
neg edx
test dx, dx
jne 0x40f5ce
push 0x80
mov dword [ebp - 0x24], 0x80
call dword [sym.imp.MSVBVM60.DLL_rtcSpaceBstr]
mov edx, eax
lea ecx, [ebp - 0x3c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov ecx, dword [ebp - 0x3c]
lea eax, [ebp - 0x24]
push eax
lea edx, [ebp - 0x54]
push ecx
push edx
mov dword [ebp - 0x68], 1
call edi
mov ecx, dword [ebp - 0x20]
push eax
lea eax, [ebp - 0x68]
lea edx, [ebp - 0x50]
push eax
push 0
push ecx
push edx
call edi
push eax
mov eax, dword [0x414024]
push eax
call fcn.004028ac
mov dword [ebp - 0x6c], eax
call esi
mov ecx, dword [ebp - 0x50]
lea edx, [ebp - 0x20]
push ecx
push edx
call ebx
mov eax, dword [ebp - 0x54]
lea ecx, [ebp - 0x3c]
push eax
push ecx
call ebx
mov ecx, dword [ebp - 0x6c]
xor edx, edx
test ecx, ecx
lea eax, [ebp - 0x54]
lea ecx, [ebp - 0x50]
sete dl
push eax
push ecx
neg edx
push 2
mov dword [ebp - 0x74], edx
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
cmp word [ebp - 0x74], 0
je 0x40f5ce
mov edx, dword [ebp - 0x24]
mov eax, dword [ebp - 0x3c]
sub edx, 1
jo 0x40f80d
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcLeftCharBstr]
mov edx, eax
lea ecx, [ebp - 0x3c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov ecx, dword [ebp - 0x3c]
lea edx, [ebp - 0x64]
mov dword [ebp - 0x5c], ecx
mov ecx, dword [ebp + 0xc]
mov dword [ebp - 0x64], 8
call dword [sym.imp.MSVBVM60.DLL___vbaVargVarCopy]
mov edx, dword [0x414024]
push edx
call fcn.00402938
call esi
mov edx, 0x402c94
lea ecx, [ebp - 0x4c]
mov dword [0x414010], 0x80000002
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov edx, 0x402cf4
lea ecx, [ebp - 0x44]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov eax, dword [ebp - 0x4c]
push 0x414024
push 1
push 0
lea ecx, [ebp - 0x50]
push eax
push ecx
call edi
mov edx, dword [0x414010]
push eax
push edx
call fcn.00402860
mov dword [ebp - 0x68], eax
call esi
mov eax, dword [ebp - 0x50]
lea ecx, [ebp - 0x4c]
push eax
push ecx
call ebx
mov eax, dword [ebp - 0x68]
xor edx, edx
test eax, eax
setne dl
neg edx
lea ecx, [ebp - 0x50]
mov dword [ebp - 0x74], edx
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
cmp word [ebp - 0x74], 0
jne 0x40f5ce
lea eax, [ebp - 0x6c]
lea ecx, [ebp - 0x1c]
push eax
mov eax, dword [ebp - 0x44]
lea edx, [ebp - 0x68]
push ecx
push edx
push 0
lea ecx, [ebp - 0x50]
push eax
push ecx
mov dword [ebp - 0x6c], 4
mov dword [ebp - 0x68], 1
call edi
mov edx, dword [0x414024]
push eax
push edx
call fcn.004028ac
mov dword [ebp - 0x70], eax
call esi
mov eax, dword [ebp - 0x50]
lea ecx, [ebp - 0x44]
push eax
push ecx
call ebx
mov eax, dword [ebp - 0x70]
xor edx, edx
test eax, eax
sete dl
neg edx
lea ecx, [ebp - 0x50]
mov dword [ebp - 0x74], edx
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
cmp word [ebp - 0x74], 0
jne 0x40f782
mov eax, dword [ebp - 0x24]
mov dword [ebp - 0x38], 0x80
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcSpaceBstr]
mov edx, eax
lea ecx, [ebp - 0x48]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, dword [ebp - 0x48]
lea ecx, [ebp - 0x38]
push ecx
lea eax, [ebp - 0x54]
push edx
push eax
mov dword [ebp - 0x68], 1
call edi
mov edx, dword [ebp - 0x44]
lea ecx, [ebp - 0x68]
push eax
push ecx
push 0
lea eax, [ebp - 0x50]
push edx
push eax
call edi
mov ecx, dword [0x414024]
push eax
push ecx
call fcn.004028ac
mov dword [ebp - 0x6c], eax
call esi
mov edx, dword [ebp - 0x50]
lea eax, [ebp - 0x44]
push edx
push eax
call ebx
mov ecx, dword [ebp - 0x54]
lea edx, [ebp - 0x48]
push ecx
push edx
call ebx
mov edx, dword [ebp - 0x6c]
xor eax, eax
test edx, edx
lea ecx, [ebp - 0x54]
lea edx, [ebp - 0x50]
sete al
push ecx
push edx
neg eax
push 2
mov edi, eax
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
test di, di
je 0x40f782
mov eax, dword [ebp - 0x38]
mov ecx, dword [ebp - 0x48]
sub eax, 1
jo 0x40f80d
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL_rtcLeftCharBstr]
mov edx, eax
lea ecx, [ebp - 0x48]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, dword [ebp - 0x48]
mov ecx, dword [ebp + 0x10]
mov dword [ebp - 0x5c], edx
lea edx, [ebp - 0x64]
mov dword [ebp - 0x64], 8
call dword [sym.imp.MSVBVM60.DLL___vbaVargVarCopy]
mov eax, dword [0x414024]
push eax
call fcn.00402938
call esi
push 0x40f7de
jmp 0x40f7b9
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x18]
call esi
lea ecx, [ebp - 0x20]
call esi
lea ecx, [ebp - 0x3c]
call esi
lea ecx, [ebp - 0x44]
call esi
lea ecx, [ebp - 0x48]
call esi
lea ecx, [ebp - 0x4c]
call esi
ret
call dword [sym.imp.MSVBVM60.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop