Function at 0x437c10
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 8
push 0x402666
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x54
fld dword [0x43c064]
fcomp dword [0x401fe0]
push ebx
push esi
push edi
xor esi, esi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x4023a8
fnstsw ax
mov dword [ebp - 0x14], esi
mov dword [ebp - 0x18], esi
test ah, 1
mov dword [ebp - 0x24], esi
mov dword [ebp - 0x28], esi
mov dword [ebp - 0x2c], esi
mov dword [ebp - 0x30], esi
mov dword [ebp - 0x34], esi
mov dword [ebp - 0x38], esi
mov dword [ebp - 0x48], esi
mov dword [ebp - 0x58], esi
mov dword [ebp - 0x5c], esi
jne 0x437c86
mov edi, dword [sym.imp.MSVBVM50.DLL___vbaStrCopy]
mov edx, 0x411fd8
lea ecx, [ebp - 0x30]
call edi
mov edx, 0x412034
jmp 0x437c9b
mov edi, dword [sym.imp.MSVBVM50.DLL___vbaStrCopy]
mov edx, 0x41204c
lea ecx, [ebp - 0x30]
call edi
mov edx, 0x40c6ec
lea ecx, [ebp - 0x14]
call edi
mov ecx, dword [ebp - 0x30]
lea eax, [ebp - 0x18]
push eax
push 0x20019
push esi
mov esi, dword [sym.imp.MSVBVM50.DLL___vbaStrToAnsi]
lea edx, [ebp - 0x34]
push ecx
push edx
call esi
push eax
push 0x80000002
call fcn.00409d90
mov dword [ebp - 0x5c], eax
call dword [sym.imp.MSVBVM50.DLL___vbaSetSystemError]
mov eax, dword [ebp - 0x34]
mov ebx, dword [sym.imp.MSVBVM50.DLL___vbaStrToUnicode]
lea ecx, [ebp - 0x30]
push eax
push ecx
call ebx
mov edi, dword [ebp - 0x5c]
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM50.DLL___vbaFreeStr]
test edi, edi
jne 0x437e5b
push 0xff
call dword [sym.imp.MSVBVM50.DLL_rtcSpaceBstr]
mov edi, dword [sym.imp.MSVBVM50.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
mov edx, dword [ebp - 0x24]
push edx
call dword [sym.imp.MSVBVM50.DLL___vbaLenBstr]
mov ecx, dword [ebp - 0x24]
mov dword [ebp - 0x28], eax
lea eax, [ebp - 0x28]
lea edx, [ebp - 0x38]
push eax
push ecx
push edx
mov dword [ebp - 0x5c], 1
call esi
mov ecx, dword [ebp - 0x14]
push eax
lea eax, [ebp - 0x5c]
lea edx, [ebp - 0x34]
push eax
push 0
push ecx
push edx
call esi
push eax
mov eax, dword [ebp - 0x18]
push eax
call fcn.00409dd4
mov esi, eax
call dword [sym.imp.MSVBVM50.DLL___vbaSetSystemError]
mov ecx, dword [ebp - 0x34]
lea edx, [ebp - 0x14]
push ecx
push edx
call ebx
mov eax, dword [ebp - 0x38]
lea ecx, [ebp - 0x24]
push eax
push ecx
call ebx
lea edx, [ebp - 0x38]
lea eax, [ebp - 0x34]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM50.DLL___vbaFreeStrList]
add esp, 0xc
test esi, esi
jne 0x437e4c
lea edx, [ebp - 0x58]
lea eax, [ebp - 0x48]
lea ecx, [ebp - 0x24]
push edx
push eax
mov dword [ebp - 0x50], ecx
mov dword [ebp - 0x58], 0x4008
call dword [sym.imp.MSVBVM50.DLL_rtcTrimVar]
lea ecx, [ebp - 0x48]
push ecx
call dword [sym.imp.MSVBVM50.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
mov ebx, dword [sym.imp.MSVBVM50.DLL___vbaFreeVar]
lea ecx, [ebp - 0x48]
call ebx
mov edx, dword [ebp - 0x24]
push 1
push edx
push 0x4120bc
push esi
call dword [sym.imp.MSVBVM50.DLL___vbaInStr]
mov ecx, eax
call dword [sym.imp.MSVBVM50.DLL___vbaI2I4]
mov esi, eax
mov edx, dword [ebp - 0x24]
mov ax, si
add ax, 3
jo 0x437ead
movsx ecx, ax
push ecx
push edx
call dword [sym.imp.MSVBVM50.DLL_rtcLeftCharBstr]
mov ecx, dword [ebp + 8]
mov edx, eax
call edi
mov edx, dword [ebp - 0x24]
add si, 5
jo 0x437ead
movsx ecx, si
lea eax, [ebp - 0x48]
mov dword [ebp - 0x40], 0x80020004
push eax
push ecx
push edx
mov dword [ebp - 0x48], 0xa
call dword [sym.imp.MSVBVM50.DLL_rtcMidCharBstr]
mov edx, eax
lea ecx, [ebp - 0x34]
call edi
push eax
push 0x40e870
call dword [sym.imp.MSVBVM50.DLL___vbaStrCat]
mov ecx, dword [ebp + 0xc]
mov edx, eax
call edi
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM50.DLL___vbaFreeStr]
lea ecx, [ebp - 0x48]
call ebx
mov dword [ebp - 0x2c], 0xffffffff
mov eax, dword [ebp - 0x18]
push eax
call fcn.00409e4c
call dword [sym.imp.MSVBVM50.DLL___vbaSetSystemError]
wait
push 0x437e96
jmp 0x437e80
mov esi, dword [sym.imp.MSVBVM50.DLL___vbaFreeStr]
lea ecx, [ebp - 0x14]
call esi
lea ecx, [ebp - 0x24]
call esi
lea ecx, [ebp - 0x30]
jmp esi
call dword [sym.imp.MSVBVM50.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop