Function at 0x639f20
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 8
push 0x407eb6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x48
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x4073d0
mov eax, dword [0x654258]
xor ebx, ebx
cmp eax, ebx
mov dword [ebp - 0x14], ebx
mov dword [ebp - 0x18], ebx
mov dword [ebp - 0x1c], ebx
mov dword [ebp - 0x20], ebx
mov dword [ebp - 0x24], ebx
mov dword [ebp - 0x28], ebx
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x30], ebx
mov dword [ebp - 0x34], ebx
jne 0x639f7f
push 0x654258
push 0x43955c
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x654258]
lea ecx, [ebp - 0x30]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
cmp eax, ebx
fnclex
jge 0x639fa8
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
push 0x14
push 0x439544
push esi
push eax
call edi
jmp 0x639fae
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x30]
lea ecx, [ebp - 0x20]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x50]
cmp eax, ebx
fnclex
jge 0x639fce
push 0x50
push 0x43956c
push esi
push eax
call edi
cmp dword [0x654258], ebx
jne 0x639fe6
push 0x654258
push 0x43955c
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x654258]
lea eax, [ebp - 0x34]
push eax
push esi
mov edx, dword [esi]
call dword [edx + 0x14]
cmp eax, ebx
fnclex
jge 0x63a007
push 0x14
push 0x439544
push esi
push eax
call edi
mov eax, dword [ebp - 0x34]
lea edx, [ebp - 0x24]
push edx
push eax
mov ecx, dword [eax]
mov esi, eax
call dword [ecx + 0x58]
cmp eax, ebx
fnclex
jge 0x63a027
push 0x58
push 0x43956c
push esi
push eax
call edi
mov eax, dword [ebp - 0x20]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push eax
push 0x43bf58
call esi
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x28]
call edi
mov ecx, dword [ebp - 0x24]
push eax
push ecx
call esi
mov edx, eax
lea ecx, [ebp - 0x2c]
call edi
push eax
push 0x43cda8
call esi
mov edx, eax
lea ecx, [ebp - 0x1c]
call edi
lea edx, [ebp - 0x2c]
lea eax, [ebp - 0x24]
push edx
lea ecx, [ebp - 0x28]
push eax
lea edx, [ebp - 0x20]
push ecx
push edx
push 4
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
lea eax, [ebp - 0x34]
lea ecx, [ebp - 0x30]
push eax
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObjList]
add esp, 0x20
mov edx, 0x4427ec
lea ecx, [ebp - 0x14]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov eax, dword [ebp - 0x14]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
lea edx, [ebp - 0x18]
lea ecx, [ebp - 0x20]
push edx
push eax
push ecx
call esi
push eax
push 0x80000002
call fcn.0043aa14
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
call edi
mov edx, dword [ebp - 0x20]
lea eax, [ebp - 0x14]
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x20]
call ebx
cmp word [ebp + 8], 0
je 0x63a13d
cmp word [ebp + 0xc], 0
jne 0x63a13d
mov ecx, dword [ebp - 0x1c]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaLenBstrB]
mov edx, dword [ebp - 0x1c]
push eax
lea eax, [ebp - 0x24]
push edx
push eax
call esi
push eax
push 1
push 0
lea ecx, [ebp - 0x20]
push 0x436854
push ecx
call esi
mov edx, dword [ebp - 0x18]
push eax
push edx
call fcn.0043a9cc
call edi
mov eax, dword [ebp - 0x24]
lea ecx, [ebp - 0x1c]
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
lea edx, [ebp - 0x24]
lea eax, [ebp - 0x20]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
jmp 0x63a1ad
lea ecx, [ebp - 0x20]
push 0x436854
push ecx
call esi
mov edx, dword [ebp - 0x18]
push eax
push edx
call fcn.0043aaa8
call edi
lea ecx, [ebp - 0x20]
call ebx
lea eax, [ebp - 0x20]
push 0x4428d0
push eax
call esi
mov ecx, dword [ebp - 0x18]
push eax
push ecx
call fcn.0043aaa8
call edi
lea ecx, [ebp - 0x20]
call ebx
lea edx, [ebp - 0x20]
push 0x43683c
push edx
call esi
push eax
mov eax, dword [ebp - 0x18]
push eax
call fcn.0043aaa8
call edi
lea ecx, [ebp - 0x20]
call ebx
lea ecx, [ebp - 0x20]
push 0x442c38
push ecx
call esi
mov edx, dword [ebp - 0x18]
push eax
push edx
call fcn.0043aaa8
call edi
lea ecx, [ebp - 0x20]
call ebx
mov eax, dword [ebp - 0x18]
push eax
call fcn.0043aa58
call edi
push 0x63a1fc
jmp 0x63a1eb
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x14]
call esi
lea ecx, [ebp - 0x1c]
call esi
ret