Function at 0x4a07b0
Capabilities:
Manipulate safe mode programs

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x18
push 0x4106c6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0x2c8
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 0x18], esp
mov dword [ebp - 0x14], 0x408d78
mov dword [ebp - 0x10], 0
mov dword [ebp - 0xc], 0
mov dword [ebp - 4], 1
mov dword [ebp - 4], 2
push 1
call dword [sym.imp.MSVBVM60.DLL___vbaOnError]
mov dword [ebp - 4], 3
mov dword [ebp - 0x2ac], 0x417628
mov dword [ebp - 0x2b4], 8
lea edx, [ebp - 0x2b4]
lea ecx, [ebp - 0x2a0]
call dword [sym.imp.MSVBVM60.DLL___vbaVarDup]
push 0x418224
push 0x431608
lea eax, [ebp - 0x2a0]
push eax
call fcn.004c7510
mov dword [ebp - 0x3c], eax
lea ecx, [ebp - 0x2a0]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov dword [ebp - 4], 4
push 0
push 1
push 1
push 0
lea ecx, [ebp - 0x2a4]
push ecx
push 0x10
push 0x880
call dword [sym.imp.MSVBVM60.DLL___vbaRedim]
add esp, 0x1c
mov dword [ebp - 0x2ac], 0x4310a0
mov dword [ebp - 0x2b4], 8
lea edx, [ebp - 0x2b4]
mov eax, dword [ebp - 0x2a4]
xor ecx, ecx
sub ecx, dword [eax + 0x14]
shl ecx, 4
mov eax, dword [ebp - 0x2a4]
mov eax, dword [eax + 0xc]
add ecx, eax
call dword [sym.imp.MSVBVM60.DLL___vbaVarCopy]
lea ecx, [ebp + 8]
mov dword [ebp - 0x2bc], ecx
mov dword [ebp - 0x2c4], 0x4003
lea edx, [ebp - 0x2c4]
mov eax, dword [ebp - 0x2a4]
mov ecx, 1
sub ecx, dword [eax + 0x14]
shl ecx, 4
mov eax, dword [ebp - 0x2a4]
mov eax, dword [eax + 0xc]
add ecx, eax
call dword [sym.imp.MSVBVM60.DLL___vbaVarZero]
lea ecx, [ebp - 0x2a4]
push ecx
push 1
mov edx, dword [ebp - 0x3c]
push edx
call fcn.004c7c80
lea eax, [ebp - 0x2a4]
push eax
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaErase]
mov dword [ebp - 4], 5
lea ecx, [ebp - 0x2c8]
push ecx
mov edx, dword [0x4f3108]
mov eax, dword [edx]
mov ecx, dword [0x4f3108]
push ecx
call dword [eax + 0x8c]
fnclex
mov dword [ebp - 0x2d0], eax
cmp dword [ebp - 0x2d0], 0
jge 0x4a096b
push 0x8c
push 0x421090
mov edx, dword [0x4f3108]
push edx
mov eax, dword [ebp - 0x2d0]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov dword [ebp - 0x2e8], eax
jmp 0x4a0975
mov dword [ebp - 0x2e8], 0
mov ecx, dword [ebp + 8]
cmp ecx, dword [ebp - 0x2c8]
jne 0x4a09e2
mov dword [ebp - 4], 6
mov word [ebp - 0x288], 0xffff
mov dword [ebp - 4], 7
mov edx, dword [ebp - 0x3c]
mov dword [ebp - 0x2ac], edx
mov dword [ebp - 0x2b4], 3
push 0xffffffffffffffff
push 0xa
mov eax, 0x10
call sub.MSVBVM60.DLL___vbaChkstk
mov eax, esp
mov ecx, dword [ebp - 0x2b4]
mov dword [eax], ecx
mov edx, dword [ebp - 0x2b0]
mov dword [eax + 4], edx
mov ecx, dword [ebp - 0x2ac]
mov dword [eax + 8], ecx
mov edx, dword [ebp - 0x2a8]
mov dword [eax + 0xc], edx
call fcn.0047e4d0
mov dword [ebp - 4], 9
mov dword [ebp - 0x2c8], 0
lea eax, [ebp - 0x2c8]
push eax
push 2
call fcn.0041b54c
mov dword [ebp - 0x2cc], eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov ecx, dword [ebp - 0x2cc]
mov dword [ebp - 0x54], ecx
mov dword [ebp - 4], 0xa
mov dword [ebp - 0x284], 0x22c
mov dword [ebp - 4], 0xb
lea edx, [ebp - 0x284]
push edx
mov eax, dword [ebp - 0x54]
push eax
call fcn.0041b594
mov dword [ebp - 0x2c8], eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov ecx, dword [ebp - 0x2c8]
mov dword [ebp - 0x50], ecx
mov dword [ebp - 4], 0xc
cmp dword [ebp - 0x50], 0
je 0x4a0ac0
mov dword [ebp - 4], 0xd
mov edx, dword [ebp + 8]
cmp edx, dword [ebp - 0x27c]
jne 0x4a0a92
mov dword [ebp - 4], 0xe
mov eax, dword [ebp - 0x26c]
mov dword [ebp - 0x24], eax
mov dword [ebp - 4], 0xf
mov dword [ebp - 0x50], 0
jmp 0x4a0abe
mov dword [ebp - 4], 0x11
lea ecx, [ebp - 0x284]
push ecx
mov edx, dword [ebp - 0x54]
push edx
call fcn.0041b5dc
mov dword [ebp - 0x2c8], eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov eax, dword [ebp - 0x2c8]
mov dword [ebp - 0x50], eax
jmp 0x4a0a53
mov dword [ebp - 4], 0x14
mov ecx, dword [ebp - 0x54]
push ecx
call fcn.0041b4f4
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov dword [ebp - 4], 0x15
mov dword [ebp - 0x54], 0
mov dword [ebp - 4], 0x16
mov dword [ebp - 0x50], 0
mov dword [ebp - 4], 0x17
cmp word [ebp - 0x288], 0xffff
jne 0x4a0b55
mov dword [ebp - 4], 0x18
mov edx, dword [ebp - 0x3c]
mov dword [ebp - 0x2ac], edx
mov dword [ebp - 0x2b4], 3
push 0
push 0xa
mov eax, 0x10
call sub.MSVBVM60.DLL___vbaChkstk
mov eax, esp
mov ecx, dword [ebp - 0x2b4]
mov dword [eax], ecx
mov edx, dword [ebp - 0x2b0]
mov dword [eax + 4], edx
mov ecx, dword [ebp - 0x2ac]
mov dword [eax + 8], ecx
mov edx, dword [ebp - 0x2a8]
mov dword [eax + 0xc], edx
call fcn.0047e4d0
mov dword [ebp - 4], 0x1b
push 0
push 1
push 1
push 0
lea eax, [ebp - 0x2a4]
push eax
push 0x10
push 0x880
call dword [sym.imp.MSVBVM60.DLL___vbaRedim]
add esp, 0x1c
mov dword [ebp - 0x2ac], 0x41fc8c
mov dword [ebp - 0x2b4], 8
lea edx, [ebp - 0x2b4]
mov ecx, dword [ebp - 0x2a4]
xor eax, eax
sub eax, dword [ecx + 0x14]
shl eax, 4
mov ecx, dword [ebp - 0x2a4]
mov ecx, dword [ecx + 0xc]
add ecx, eax
call dword [sym.imp.MSVBVM60.DLL___vbaVarCopy]
lea edx, [ebp - 0x24]
mov dword [ebp - 0x2bc], edx
mov dword [ebp - 0x2c4], 0x4003
lea edx, [ebp - 0x2c4]
mov eax, dword [ebp - 0x2a4]
mov ecx, 1
sub ecx, dword [eax + 0x14]
shl ecx, 4
mov eax, dword [ebp - 0x2a4]
mov eax, dword [eax + 0xc]
add ecx, eax
call dword [sym.imp.MSVBVM60.DLL___vbaVarZero]
lea ecx, [ebp - 0x2a4]
push ecx
push 0x10
mov edx, dword [ebp - 0x3c]
push edx
call fcn.004c7c80
lea eax, [ebp - 0x2a4]
push eax
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaErase]
mov dword [ebp - 4], 0x1c
mov ecx, dword [ebp - 0x24]
mov dword [ebp - 0x28], ecx
mov dword [ebp - 4], 0x1d
mov edx, dword [ebp - 0x3c]
push edx
call fcn.004c8940
jmp 0x4a0c67
call dword [sym.imp.MSVBVM60.DLL___vbaExitProc]
push 0x4a0cbb
jmp 0x4a0c90
lea ecx, [ebp - 0x38]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
lea ecx, [ebp - 0x4c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
lea ecx, [ebp - 0x28c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x290]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
ret