Function at 0x498360
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x18
push 0x407636
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0x7c
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 0x18], esp
mov dword [ebp - 0x14], 0x407270
mov dword [ebp - 0x10], 0
mov dword [ebp - 0xc], 0
mov dword [ebp - 4], 1
mov dword [ebp - 4], 2
push 0xffffffffffffffff
call dword [sym.imp.MSVBVM60.DLL___vbaOnError]
mov dword [ebp - 4], 3
mov dword [ebp - 0x54], 0x80020004
mov dword [ebp - 0x5c], 0xa
mov edx, 0x40e784
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov edx, 0x415f10
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov dword [ebp - 0x60], 0x80000001
mov eax, 0x10
call sub.MSVBVM60.DLL___vbaChkstk
mov eax, esp
mov ecx, dword [ebp - 0x5c]
mov dword [eax], ecx
mov edx, dword [ebp - 0x58]
mov dword [eax + 4], edx
mov ecx, dword [ebp - 0x54]
mov dword [eax + 8], ecx
mov edx, dword [ebp - 0x50]
mov dword [eax + 0xc], edx
lea eax, [ebp - 0x30]
push eax
lea ecx, [ebp - 0x2c]
push ecx
lea edx, [ebp - 0x60]
push edx
lea eax, [ebp - 0x4c]
push eax
call fcn.004968b0
lea ecx, [ebp - 0x4c]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x28]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea edx, [ebp - 0x30]
push edx
lea eax, [ebp - 0x2c]
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
lea ecx, [ebp - 0x4c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov dword [ebp - 4], 4
cmp dword [0x49e690], 0
jne 0x498481
push 0x49e690
push 0x40f4f8
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov dword [ebp - 0x88], 0x49e690
jmp 0x49848b
mov dword [ebp - 0x88], 0x49e690
mov ecx, dword [ebp - 0x88]
mov edx, dword [ecx]
mov dword [ebp - 0x64], edx
lea eax, [ebp - 0x3c]
push eax
mov ecx, dword [ebp - 0x64]
mov edx, dword [ecx]
mov eax, dword [ebp - 0x64]
push eax
call dword [edx + 0x14]
fnclex
mov dword [ebp - 0x68], eax
cmp dword [ebp - 0x68], 0
jge 0x4984ce
push 0x14
push 0x40f4e8
mov ecx, dword [ebp - 0x64]
push ecx
mov edx, dword [ebp - 0x68]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov dword [ebp - 0x8c], eax
jmp 0x4984d8
mov dword [ebp - 0x8c], 0
mov eax, dword [ebp - 0x3c]
mov dword [ebp - 0x6c], eax
lea ecx, [ebp - 0x2c]
push ecx
mov edx, dword [ebp - 0x6c]
mov eax, dword [edx]
mov ecx, dword [ebp - 0x6c]
push ecx
call dword [eax + 0x58]
fnclex
mov dword [ebp - 0x70], eax
cmp dword [ebp - 0x70], 0
jge 0x498516
push 0x58
push 0x410950
mov edx, dword [ebp - 0x6c]
push edx
mov eax, dword [ebp - 0x70]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov dword [ebp - 0x90], eax
jmp 0x498520
mov dword [ebp - 0x90], 0
push 0x415fa8
mov ecx, dword [ebp - 0x28]
push ecx
mov edx, dword [0x49d068]
push edx
push 0x40f700
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
push eax
mov eax, dword [ebp - 0x2c]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
push eax
push 0x415f98
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x38]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
push eax
call fcn.00498800
lea ecx, [ebp - 0x38]
push ecx
lea edx, [ebp - 0x34]
push edx
lea eax, [ebp - 0x2c]
push eax
lea ecx, [ebp - 0x30]
push ecx
push 4
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x14
lea ecx, [ebp - 0x3c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
mov dword [ebp - 4], 5
mov dword [ebp - 0x54], 0x80020004
mov dword [ebp - 0x5c], 0xa
mov edx, 0x415fcc
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov edx, 0x415f10
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov dword [ebp - 0x60], 0x80000001
mov eax, 0x10
call sub.MSVBVM60.DLL___vbaChkstk
mov edx, esp
mov eax, dword [ebp - 0x5c]
mov dword [edx], eax
mov ecx, dword [ebp - 0x58]
mov dword [edx + 4], ecx
mov eax, dword [ebp - 0x54]
mov dword [edx + 8], eax
mov ecx, dword [ebp - 0x50]
mov dword [edx + 0xc], ecx
lea edx, [ebp - 0x30]
push edx
lea eax, [ebp - 0x2c]
push eax
lea ecx, [ebp - 0x60]
push ecx
lea edx, [ebp - 0x4c]
push edx
call fcn.004968b0
lea eax, [ebp - 0x4c]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x28]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea ecx, [ebp - 0x30]
push ecx
lea edx, [ebp - 0x2c]
push edx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
lea ecx, [ebp - 0x4c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov dword [ebp - 4], 6
mov eax, dword [ebp - 0x28]
push eax
push 0x416018
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x28]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov dword [ebp - 4], 7
cmp dword [0x49e690], 0
jne 0x49868b
push 0x49e690
push 0x40f4f8
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov dword [ebp - 0x94], 0x49e690
jmp 0x498695
mov dword [ebp - 0x94], 0x49e690
mov ecx, dword [ebp - 0x94]
mov edx, dword [ecx]
mov dword [ebp - 0x64], edx
lea eax, [ebp - 0x3c]
push eax
mov ecx, dword [ebp - 0x64]
mov edx, dword [ecx]
mov eax, dword [ebp - 0x64]
push eax
call dword [edx + 0x14]
fnclex
mov dword [ebp - 0x68], eax
cmp dword [ebp - 0x68], 0
jge 0x4986d8
push 0x14
push 0x40f4e8
mov ecx, dword [ebp - 0x64]
push ecx
mov edx, dword [ebp - 0x68]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov dword [ebp - 0x98], eax
jmp 0x4986e2
mov dword [ebp - 0x98], 0
mov eax, dword [ebp - 0x3c]
mov dword [ebp - 0x6c], eax
lea ecx, [ebp - 0x2c]
push ecx
mov edx, dword [ebp - 0x6c]
mov eax, dword [edx]
mov ecx, dword [ebp - 0x6c]
push ecx
call dword [eax + 0x58]
fnclex
mov dword [ebp - 0x70], eax
cmp dword [ebp - 0x70], 0
jge 0x498720
push 0x58
push 0x410950
mov edx, dword [ebp - 0x6c]
push edx
mov eax, dword [ebp - 0x70]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov dword [ebp - 0x9c], eax
jmp 0x49872a
mov dword [ebp - 0x9c], 0
push 0x416070
mov ecx, dword [ebp - 0x28]
push ecx
mov edx, dword [0x49d068]
push edx
push 0x40f700
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
push eax
mov eax, dword [ebp - 0x2c]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
push eax
push 0x415f98
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x38]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
push eax
call fcn.00498800
lea ecx, [ebp - 0x38]
push ecx
lea edx, [ebp - 0x34]
push edx
lea eax, [ebp - 0x2c]
push eax
lea ecx, [ebp - 0x30]
push ecx
push 4
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x14
lea ecx, [ebp - 0x3c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
push 0x4987e6
jmp 0x4987dc
lea ecx, [ebp - 0x28]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
ret