Function at 0x4377d0
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0xc
push 0x402666
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x40
mov eax, dword [0x43c054]
push ebx
mov ebx, dword [sym.imp.MSVBVM50.DLL___vbaLenBstr]
push esi
push edi
xor edi, edi
mov dword [ebp - 0xc], esp
push eax
mov dword [ebp - 8], 0x402388
mov dword [ebp - 0x1c], edi
mov dword [ebp - 0x20], edi
mov dword [ebp - 0x24], edi
mov dword [ebp - 0x28], edi
mov dword [ebp - 0x2c], edi
mov dword [ebp - 0x30], edi
mov dword [ebp - 0x34], edi
mov dword [ebp - 0x44], edi
call ebx
mov ecx, dword [0x43c054]
sub eax, 1
jo 0x437ab4
push eax
push ecx
call dword [sym.imp.MSVBVM50.DLL_rtcLeftCharBstr]
mov esi, dword [sym.imp.MSVBVM50.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x34]
call esi
mov edx, 0x40b7b0
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM50.DLL___vbaStrCopy]
mov edx, dword [ebp - 0x34]
lea ecx, [ebp - 0x2c]
mov dword [ebp - 0x34], edi
call esi
lea edx, [ebp - 0x30]
lea eax, [ebp - 0x2c]
push edx
push eax
call fcn.00436e90
push eax
call dword [sym.imp.MSVBVM50.DLL___vbaStrI4]
mov edx, eax
lea ecx, [ebp - 0x24]
call esi
lea ecx, [ebp - 0x34]
lea edx, [ebp - 0x30]
push ecx
lea eax, [ebp - 0x2c]
push edx
push eax
push 3
call dword [sym.imp.MSVBVM50.DLL___vbaFreeStrList]
mov ecx, dword [ebp - 0x24]
add esp, 0x10
push ecx
call dword [sym.imp.MSVBVM50.DLL___vbaI4Str]
mov edx, dword [0x43c054]
push eax
push edx
call dword [sym.imp.MSVBVM50.DLL_rtcLeftCharBstr]
mov edx, eax
lea ecx, [ebp - 0x2c]
call esi
push eax
push 0x411f24
call dword [sym.imp.MSVBVM50.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x24]
call esi
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM50.DLL___vbaFreeStr]
lea ecx, [ebp - 0x44]
lea eax, [ebp - 0x24]
push edi
push ecx
mov dword [ebp - 0x3c], eax
mov dword [ebp - 0x44], 0x4008
call dword [sym.imp.MSVBVM50.DLL_rtcDir]
mov edx, eax
lea ecx, [ebp - 0x2c]
call esi
push eax
call ebx
xor edx, edx
lea ecx, [ebp - 0x2c]
test eax, eax
setg dl
neg edx
mov dword [ebp - 0x48], edx
call dword [sym.imp.MSVBVM50.DLL___vbaFreeStr]
cmp word [ebp - 0x48], di
je 0x437a5a
lea eax, [ebp - 0x24]
push eax
push 0x411f8c
push 0x40aaac
call fcn.004392d0
mov edx, eax
lea ecx, [ebp - 0x28]
call esi
mov ecx, dword [ebp - 0x28]
push ecx
call ebx
test eax, eax
jne 0x437949
mov eax, dword [0x43c050]
lea edx, [ebp - 0x24]
push edx
push eax
push 0x411f8c
push 0x40aaac
call fcn.004394f0
mov edx, dword [ebp + 8]
lea ecx, [ebp - 0x24]
push ecx
push 0x411d2c
mov ax, word [edx]
push eax
call dword [sym.imp.MSVBVM50.DLL___vbaStrI2]
mov edx, eax
lea ecx, [ebp - 0x2c]
call esi
push eax
call dword [sym.imp.MSVBVM50.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x30]
call esi
push eax
push 0x40aaac
call fcn.004392d0
mov edx, eax
lea ecx, [ebp - 0x28]
call esi
lea ecx, [ebp - 0x30]
lea edx, [ebp - 0x2c]
push ecx
push edx
push 2
call dword [sym.imp.MSVBVM50.DLL___vbaFreeStrList]
mov eax, dword [ebp - 0x28]
add esp, 0xc
push eax
call ebx
test eax, eax
jle 0x437a5a
lea ecx, [ebp - 0x28]
push ecx
call fcn.00439760
mov edx, eax
lea ecx, [ebp - 0x2c]
call esi
push eax
push 0x411b74
call dword [sym.imp.MSVBVM50.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x20]
call esi
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM50.DLL___vbaFreeStr]
lea eax, [ebp - 0x44]
lea edx, [ebp - 0x20]
push 0x20
push eax
mov dword [ebp - 0x3c], edx
mov dword [ebp - 0x44], 0x4008
call dword [sym.imp.MSVBVM50.DLL_rtcDir]
mov edx, eax
lea ecx, [ebp - 0x2c]
call esi
push eax
call ebx
xor ebx, ebx
lea ecx, [ebp - 0x2c]
test eax, eax
setg bl
neg ebx
call dword [sym.imp.MSVBVM50.DLL___vbaFreeStr]
cmp bx, di
je 0x437a5a
mov edx, dword [ebp - 0x28]
mov ecx, 0x43c050
call dword [sym.imp.MSVBVM50.DLL___vbaStrCopy]
mov edx, dword [ebp - 0x28]
lea ecx, [ebp - 0x24]
push ecx
push edx
push 0x411d2c
push 0x40aaac
call fcn.004394f0
mov eax, dword [ebp - 0x28]
push 0x411fa8
push eax
call dword [sym.imp.MSVBVM50.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x2c]
call esi
lea ecx, [ebp - 0x2c]
push ecx
call fcn.004305c0
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM50.DLL___vbaFreeStr]
push 0x437a9e
jmp 0x437a88
mov esi, dword [sym.imp.MSVBVM50.DLL___vbaFreeStr]
lea ecx, [ebp - 0x20]
call esi
lea ecx, [ebp - 0x24]
call esi
lea ecx, [ebp - 0x28]
jmp esi
call dword [sym.imp.MSVBVM50.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop