Function at 0x634170
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0xc
push 0x407eb6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x9c
push ebx
push esi
push edi
mov dword [ebp - 0xc], esp
mov dword [ebp - 8], 0x407108
mov edx, dword [ebp + 0xc]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
xor edi, edi
lea ecx, [ebp - 0x40]
mov dword [ebp - 0x18], edi
mov dword [ebp - 0x40], edi
mov dword [ebp - 0x44], edi
mov dword [ebp - 0x4c], edi
mov dword [ebp - 0x50], edi
mov dword [ebp - 0x54], edi
mov dword [ebp - 0x58], edi
mov dword [ebp - 0x5c], edi
mov dword [ebp - 0x60], edi
mov dword [ebp - 0x64], edi
mov dword [ebp - 0x68], edi
mov dword [ebp - 0x6c], edi
mov dword [ebp - 0x7c], edi
mov dword [ebp - 0x8c], edi
mov dword [ebp - 0x90], edi
call esi
mov edx, dword [ebp + 0x10]
lea ecx, [ebp - 0x44]
call esi
push 0x11
lea eax, [ebp - 0x34]
push 0x4427c4
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaAryConstruct2]
mov edx, dword [ebp - 0x40]
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
lea ecx, [ebp - 0x18]
lea eax, [ebp - 0x64]
push ecx
push 0x2003f
push edi
push edx
push eax
call ebx
mov ecx, dword [ebp + 8]
push eax
push ecx
call fcn.0043caa4
mov dword [ebp - 0x90], eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov edx, dword [ebp - 0x64]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
lea eax, [ebp - 0x40]
push edx
push eax
call esi
mov ecx, dword [ebp - 0x90]
mov dword [ebp - 0x3c], ecx
lea ecx, [ebp - 0x64]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
cmp dword [ebp - 0x3c], edi
jne 0x6344bf
mov ecx, dword [ebp - 0x44]
lea edx, [ebp - 0x60]
push edx
lea eax, [ebp - 0x4c]
push edi
push eax
push edi
lea edx, [ebp - 0x64]
push ecx
push edx
call ebx
push eax
mov eax, dword [ebp - 0x18]
push eax
call fcn.0043cce8
mov dword [ebp - 0x90], eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov ecx, dword [ebp - 0x64]
lea edx, [ebp - 0x44]
push ecx
push edx
call esi
mov eax, dword [ebp - 0x90]
lea ecx, [ebp - 0x64]
mov dword [ebp - 0x3c], eax
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
cmp dword [ebp - 0x3c], edi
jne 0x6344bf
mov ecx, dword [ebp - 0x4c]
lea eax, [ecx - 1]
cmp eax, 3
ja case.default.0x6342b1
jmp dword [eax*4 + 0x634724]
lea edx, [ebp - 0x7c]
mov dword [ebp - 0x74], edi
push edx
push 0x400
mov dword [ebp - 0x7c], 2
call dword [sym.imp.MSVBVM60.DLL_rtcStringBstr]
mov edx, eax
lea ecx, [ebp - 0x5c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea ecx, [ebp - 0x7c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov ecx, dword [ebp - 0x5c]
lea eax, [ebp - 0x60]
push eax
lea edx, [ebp - 0x68]
push ecx
push edx
mov dword [ebp - 0x60], 0x400
mov dword [ebp - 0x90], edi
call ebx
mov ecx, dword [ebp - 0x44]
push eax
lea eax, [ebp - 0x90]
lea edx, [ebp - 0x64]
push eax
push edi
push ecx
push edx
call ebx
push eax
mov eax, dword [ebp - 0x18]
push eax
call fcn.0043caf0
mov ebx, eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov ecx, dword [ebp - 0x64]
lea edx, [ebp - 0x44]
push ecx
push edx
call esi
mov eax, dword [ebp - 0x68]
lea ecx, [ebp - 0x5c]
push eax
push ecx
call esi
lea edx, [ebp - 0x68]
lea eax, [ebp - 0x64]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
cmp ebx, edi
jne 0x6344bf
mov ecx, dword [ebp - 0x5c]
push 1
push ecx
push edi
call dword [sym.imp.MSVBVM60.DLL_rtcBstrFromAnsi]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x64]
call esi
push eax
push edi
call dword [sym.imp.MSVBVM60.DLL___vbaInStr]
xor ebx, ebx
lea ecx, [ebp - 0x64]
test eax, eax
setg bl
neg ebx
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
cmp bx, di
je 0x634683
mov edx, dword [ebp - 0x5c]
push 1
push edx
push edi
call dword [sym.imp.MSVBVM60.DLL_rtcBstrFromAnsi]
mov edx, eax
lea ecx, [ebp - 0x64]
call esi
push eax
push edi
call dword [sym.imp.MSVBVM60.DLL___vbaInStr]
sub eax, 1
jo 0x634734
push eax
mov eax, dword [ebp - 0x5c]
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcLeftCharBstr]
mov edx, eax
lea ecx, [ebp - 0x54]
call esi
lea ecx, [ebp - 0x64]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
jmp 0x634683
lea ecx, [ebp - 0x60]
lea edx, [ebp - 0x58]
push ecx
mov ecx, dword [ebp - 0x44]
lea eax, [ebp - 0x90]
push edx
push eax
push edi
lea edx, [ebp - 0x64]
push ecx
push edx
mov dword [ebp - 0x60], 0x400
mov dword [ebp - 0x90], edi
call ebx
push eax
mov eax, dword [ebp - 0x18]
push eax
call fcn.0043cce8
mov ebx, eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov ecx, dword [ebp - 0x64]
lea edx, [ebp - 0x44]
push ecx
push edx
call esi
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x64]
call esi
cmp ebx, edi
jne 0x6344bf
lea ecx, [ebp - 0x8c]
lea eax, [ebp - 0x58]
push 0x4427e0
push ecx
mov dword [ebp - 0x84], eax
mov dword [ebp - 0x8c], 0x4003
call dword [sym.imp.MSVBVM60.DLL_rtcHexBstrFromVar]
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x64]
call edi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x54]
call edi
lea ecx, [ebp - 0x64]
call esi
jmp 0x634683
mov eax, dword [ebp - 0x28]
lea edx, [ebp - 0x60]
push edx
mov edx, dword [ebp - 0x44]
lea ecx, [ebp - 0x90]
push eax
push ecx
push edi
lea eax, [ebp - 0x64]
push edx
push eax
mov dword [ebp - 0x90], edi
call ebx
mov ecx, dword [ebp - 0x18]
push eax
push ecx
call fcn.0043cce8
mov ebx, eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov edx, dword [ebp - 0x64]
lea eax, [ebp - 0x44]
push edx
push eax
call esi
lea ecx, [ebp - 0x64]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
cmp ebx, edi
je 0x6344c9
mov edx, 0x439530
jmp 0x634686
mov edx, 0x439530
lea ecx, [ebp - 0x54]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov edx, dword [ebp - 0x60]
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov esi, 1
mov dword [ebp - 0xa8], edx
mov dword [ebp - 0x1c], esi
cmp esi, dword [ebp - 0xa8]
jg 0x634683
sub esi, 1
jo 0x634734
cmp esi, 0x401
jb 0x634517
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov eax, dword [ebp - 0x28]
lea ecx, [ebp - 0x8c]
add eax, esi
push ecx
mov dword [ebp - 0x84], eax
mov dword [ebp - 0x8c], 0x4011
call dword [sym.imp.MSVBVM60.DLL_rtcHexBstrFromVar]
mov edx, eax
lea ecx, [ebp - 0x64]
call edi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaLenBstr]
mov esi, eax
lea ecx, [ebp - 0x64]
dec esi
neg esi
sbb esi, esi
inc esi
neg esi
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
test si, si
mov esi, dword [ebp - 0x1c]
je 0x6345eb
sub esi, 1
jo 0x634734
cmp esi, 0x401
jb 0x63457d
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 0x54]
add edx, esi
push eax
push 0x43bbdc
mov dword [ebp - 0x84], edx
mov dword [ebp - 0x8c], 0x4011
call ebx
mov edx, eax
lea ecx, [ebp - 0x64]
call edi
lea ecx, [ebp - 0x8c]
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL_rtcHexBstrFromVar]
mov edx, eax
lea ecx, [ebp - 0x68]
call edi
push eax
call ebx
mov edx, eax
lea ecx, [ebp - 0x6c]
call edi
push eax
push 0x43d470
call ebx
mov edx, eax
lea ecx, [ebp - 0x54]
call edi
lea edx, [ebp - 0x6c]
lea eax, [ebp - 0x68]
push edx
lea ecx, [ebp - 0x64]
push eax
push ecx
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x10
jmp 0x63465b
sub esi, 1
jo 0x634734
cmp esi, 0x401
jb 0x634602
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 0x54]
lea ecx, [ebp - 0x8c]
add edx, esi
push eax
push ecx
mov dword [ebp - 0x84], edx
mov dword [ebp - 0x8c], 0x4011
call dword [sym.imp.MSVBVM60.DLL_rtcHexBstrFromVar]
mov edx, eax
lea ecx, [ebp - 0x64]
call edi
push eax
call ebx
mov edx, eax
lea ecx, [ebp - 0x68]
call edi
push eax
push 0x43d470
call ebx
mov edx, eax
lea ecx, [ebp - 0x54]
call edi
lea edx, [ebp - 0x68]
lea eax, [ebp - 0x64]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
mov ecx, dword [ebp - 0x1c]
mov eax, 1
add eax, ecx
jo 0x634734
mov dword [ebp - 0x1c], eax
mov esi, eax
jmp 0x6344f4
mov edx, 0x439530
lea ecx, [ebp - 0x54]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov edx, dword [ebp - 0x54]
lea ecx, [ebp - 0x50]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov ecx, dword [ebp - 0x18]
push ecx
call fcn.0043cc34
mov dword [ebp - 0x90], eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
push 0x63470e
jmp 0x6346db
lea eax, [ebp - 0x90]
lea edx, [ebp - 0x34]
push eax
push 0
mov dword [ebp - 0x90], edx
call dword [sym.imp.MSVBVM60.DLL___vbaAryDestruct]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x40]
call esi
lea ecx, [ebp - 0x44]
call esi
lea ecx, [ebp - 0x54]
call esi
lea ecx, [ebp - 0x5c]
call esi
ret
call dword [sym.imp.MSVBVM60.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop