Function at 0x406744
Capabilities:
Parse pe header

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x18
push 0x403ee6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0x100
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 0x18], esp
mov dword [ebp - 0x14], 0x401420
mov dword [ebp - 0x10], 0
mov dword [ebp - 0xc], 0
mov dword [ebp - 4], 1
mov dword [ebp - 4], 2
push 0xffffffffffffffff
call sub.MSVBVM60.DLL___vbaOnError
mov dword [ebp - 4], 3
movsx eax, word [0x423088]
test eax, eax
jne 0x407987
mov dword [ebp - 4], 4
mov dword [ebp - 0xa8], 0x35
mov dword [ebp - 0xb0], 2
lea eax, [ebp - 0xb0]
push eax
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL_rtcUpperCaseVar
lea eax, [ebp - 0xc0]
push eax
lea eax, [ebp - 0xb0]
push eax
push 2
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0xc
mov dword [ebp - 4], 5
fld qword [0x4016b0]
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcLog
fstp qword [ebp - 0x104]
mov dword [ebp - 4], 6
fld qword [0x4016a8]
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcSqr
fstp qword [ebp - 0x104]
mov dword [ebp - 4], 7
mov dword [ebp - 0x64], 0xb
mov dword [ebp - 4], 8
mov eax, dword [ebp + 8]
push dword [eax]
mov ecx, dword [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaI2I4
push eax
push 0xffffffffffffffff
push 0x120
call sub.MSVBVM60.DLL___vbaFileOpen
mov dword [ebp - 4], 9
mov ecx, dword [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaI2I4
push eax
call sub.MSVBVM60.DLL_rtcFileLength
mov dword [ebp - 0xfc], eax
mov dword [ebp - 0xcc], 0x404acc
mov dword [ebp - 0xd4], 8
lea edx, [ebp - 0xd4]
lea ecx, [ebp - 0xb0]
call sub.MSVBVM60.DLL___vbaVarDup
lea eax, [ebp - 0xb0]
push eax
push dword [ebp - 0xfc]
call sub.MSVBVM60.DLL_rtcStringBstr
mov edx, eax
lea ecx, [ebp - 0x60]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0xb0]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0xa
mov ecx, dword [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaI2I4
push eax
lea eax, [ebp - 0x60]
push eax
push 0
call sub.MSVBVM60.DLL___vbaGet3
mov dword [ebp - 4], 0xb
push 0x1df
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0xa0]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_VarPtr
lea ecx, [ebp - 0xa0]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0xc
push 0x13ae
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0xa0]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_VarPtr
lea ecx, [ebp - 0xa0]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0xd
mov ecx, dword [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaI2I4
push eax
call sub.MSVBVM60.DLL___vbaFileClose
mov dword [ebp - 4], 0xe
push dword [0x4230b0]
call sub.MSVBVM60.DLL___vbaLenBstr
mov ecx, eax
call sub.MSVBVM60.DLL___vbaI2I4
mov word [ebp - 0xf8], ax
lea eax, [ebp - 0xf8]
push eax
call fcn.0040ba4f
mov edx, eax
lea ecx, [ebp - 0x78]
call sub.MSVBVM60.DLL___vbaStrMove
mov dword [ebp - 4], 0xf
mov word [ebp - 0xf8], 0x18b8
lea eax, [ebp - 0xf8]
push eax
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 4], 0x10
fld qword [0x4016a0]
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcTan
fstp qword [ebp - 0x104]
mov dword [ebp - 4], 0x11
push 0
push 0xffffffffffffffff
push 1
push dword [ebp - 0x78]
push dword [0x4230b0]
push dword [ebp - 0x60]
call sub.MSVBVM60.DLL_rtcReplace
mov edx, eax
lea ecx, [ebp - 0x60]
call sub.MSVBVM60.DLL___vbaStrMove
mov dword [ebp - 4], 0x12
fld qword [0x401698]
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcTan
fstp qword [ebp - 0x104]
mov dword [ebp - 4], 0x13
mov dword [ebp - 0xcc], 0x4230b0
mov dword [ebp - 0xd4], 0x4008
push 0
push 0x40
lea eax, [ebp - 0xd4]
push eax
lea eax, [ebp - 0xb0]
push eax
call sub.MSVBVM60.DLL_rtcStrConvVar2
lea eax, [ebp - 0xb0]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x44]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0xb0]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0x14
lea eax, [ebp - 0x78]
mov dword [ebp - 0xcc], eax
mov dword [ebp - 0xd4], 0x4008
push 0
push 0x40
lea eax, [ebp - 0xd4]
push eax
lea eax, [ebp - 0xb0]
push eax
call sub.MSVBVM60.DLL_rtcStrConvVar2
lea eax, [ebp - 0xb0]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x90]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0xb0]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0x15
push 0
push 0xffffffffffffffff
push 1
push dword [ebp - 0x90]
push dword [ebp - 0x44]
push dword [ebp - 0x60]
call sub.MSVBVM60.DLL_rtcReplace
mov edx, eax
lea ecx, [ebp - 0x60]
call sub.MSVBVM60.DLL___vbaStrMove
mov dword [ebp - 4], 0x16
mov edx, 0x404848
lea ecx, [ebp - 0x70]
call sub.MSVBVM60.DLL___vbaStrCopy
mov dword [ebp - 4], 0x17
push dword [ebp - 0x70]
call sub.MSVBVM60.DLL___vbaLenBstr
mov ecx, eax
call sub.MSVBVM60.DLL___vbaI2I4
mov word [ebp - 0xf8], ax
lea eax, [ebp - 0xf8]
push eax
call fcn.0040ba4f
mov edx, eax
lea ecx, [ebp - 0x7c]
call sub.MSVBVM60.DLL___vbaStrMove
mov dword [ebp - 4], 0x18
mov dword [ebp - 0xcc], 0x404848
mov dword [ebp - 0xd4], 8
lea edx, [ebp - 0xd4]
lea ecx, [ebp - 0xb0]
call sub.MSVBVM60.DLL___vbaVarDup
push 0
push 0x40
lea eax, [ebp - 0xb0]
push eax
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL_rtcStrConvVar2
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x50]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0xc0]
push eax
lea eax, [ebp - 0xb0]
push eax
push 2
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0xc
mov dword [ebp - 4], 0x19
lea eax, [ebp - 0x7c]
mov dword [ebp - 0xcc], eax
mov dword [ebp - 0xd4], 0x4008
push 0
push 0x40
lea eax, [ebp - 0xd4]
push eax
lea eax, [ebp - 0xb0]
push eax
call sub.MSVBVM60.DLL_rtcStrConvVar2
lea eax, [ebp - 0xb0]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0xb0]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0x1a
fld qword [0x401690]
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcAtn
fstp qword [ebp - 0x104]
mov dword [ebp - 4], 0x1b
mov dword [ebp - 0xa8], 0x83
mov dword [ebp - 0xb0], 2
push 0
lea eax, [ebp - 0xb0]
push eax
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL_rtcRound
lea eax, [ebp - 0xc0]
push eax
lea eax, [ebp - 0xb0]
push eax
push 2
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0xc
mov dword [ebp - 4], 0x1c
push 0x70
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0xa0]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcAnsiValueBstr
lea ecx, [ebp - 0xa0]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x1d
push 0x52
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0xa0]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcByteValueBstr
lea ecx, [ebp - 0xa0]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x1e
push 0
push 0xffffffffffffffff
push 1
push dword [ebp - 0x7c]
push dword [ebp - 0x70]
push dword [ebp - 0x60]
call sub.MSVBVM60.DLL_rtcReplace
mov edx, eax
lea ecx, [ebp - 0x60]
call sub.MSVBVM60.DLL___vbaStrMove
mov dword [ebp - 4], 0x1f
push 0
push 0xffffffffffffffff
push 1
push dword [ebp - 0x4c]
push dword [ebp - 0x50]
push dword [ebp - 0x60]
call sub.MSVBVM60.DLL_rtcReplace
mov edx, eax
lea ecx, [ebp - 0x60]
call sub.MSVBVM60.DLL___vbaStrMove
mov dword [ebp - 4], 0x20
fld qword [0x401688]
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcSqr
fstp qword [ebp - 0x104]
mov dword [ebp - 4], 0x21
fld qword [0x401680]
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcAtn
fstp qword [ebp - 0x104]
mov dword [ebp - 4], 0x22
push 0x4047b4
call sub.MSVBVM60.DLL___vbaLenBstr
mov ecx, eax
call sub.MSVBVM60.DLL___vbaI2I4
mov word [ebp - 0xf8], ax
lea eax, [ebp - 0xf8]
push eax
call fcn.0040ba4f
mov edx, eax
lea ecx, [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaStrMove
mov dword [ebp - 4], 0x23
mov dword [ebp - 0xa8], 0xfb
mov dword [ebp - 0xb0], 2
push 0
lea eax, [ebp - 0xb0]
push eax
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL_rtcRound
lea eax, [ebp - 0xc0]
push eax
lea eax, [ebp - 0xb0]
push eax
push 2
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0xc
mov dword [ebp - 4], 0x24
mov dword [ebp - 0xa8], 0x4a
mov dword [ebp - 0xb0], 2
lea eax, [ebp - 0xb0]
push eax
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL_rtcUpperCaseVar
lea eax, [ebp - 0xc0]
push eax
lea eax, [ebp - 0xb0]
push eax
push 2
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0xc
mov dword [ebp - 4], 0x25
fld qword [0x401678]
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcAtn
fstp qword [ebp - 0x104]
mov dword [ebp - 4], 0x26
mov dword [ebp - 0xcc], 0x4047b4
mov dword [ebp - 0xd4], 8
lea edx, [ebp - 0xd4]
lea ecx, [ebp - 0xb0]
call sub.MSVBVM60.DLL___vbaVarDup
push 0
push 0x40
lea eax, [ebp - 0xb0]
push eax
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL_rtcStrConvVar2
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x38]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0xc0]
push eax
lea eax, [ebp - 0xb0]
push eax
push 2
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0xc
mov dword [ebp - 4], 0x27
lea eax, [ebp - 0x68]
mov dword [ebp - 0xcc], eax
mov dword [ebp - 0xd4], 0x4008
push 0
push 0x40
lea eax, [ebp - 0xd4]
push eax
lea eax, [ebp - 0xb0]
push eax
call sub.MSVBVM60.DLL_rtcStrConvVar2
lea eax, [ebp - 0xb0]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x34]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0xb0]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0x28
mov dword [ebp - 0xa8], 0x44
mov dword [ebp - 0xb0], 2
lea eax, [ebp - 0xb0]
push eax
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL_rtcUpperCaseVar
lea eax, [ebp - 0xc0]
push eax
lea eax, [ebp - 0xb0]
push eax
push 2
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0xc
mov dword [ebp - 4], 0x29
mov dword [ebp - 0xa8], 0xcb
mov dword [ebp - 0xb0], 2
push 2
lea eax, [ebp - 0xb0]
push eax
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL_rtcLeftCharVar
lea eax, [ebp - 0xc0]
push eax
lea eax, [ebp - 0xb0]
push eax
push 2
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0xc
mov dword [ebp - 4], 0x2a
push 0
push 0xffffffffffffffff
push 1
push dword [ebp - 0x68]
push 0x4047b4
push dword [ebp - 0x60]
call sub.MSVBVM60.DLL_rtcReplace
mov edx, eax
lea ecx, [ebp - 0x60]
call sub.MSVBVM60.DLL___vbaStrMove
mov dword [ebp - 4], 0x2b
push 0
push 0xffffffffffffffff
push 1
push dword [ebp - 0x34]
push dword [ebp - 0x38]
push dword [ebp - 0x60]
call sub.MSVBVM60.DLL_rtcReplace
mov edx, eax
lea ecx, [ebp - 0x60]
call sub.MSVBVM60.DLL___vbaStrMove
mov dword [ebp - 4], 0x2c
push 0x40471c
call sub.MSVBVM60.DLL___vbaLenBstr
mov ecx, eax
call sub.MSVBVM60.DLL___vbaI2I4
mov word [ebp - 0xf8], ax
lea eax, [ebp - 0xf8]
push eax
call fcn.0040ba4f
mov edx, eax
lea ecx, [ebp - 0x24]
call sub.MSVBVM60.DLL___vbaStrMove
mov dword [ebp - 4], 0x2d
push 0xf5
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0xa0]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcByteValueBstr
lea ecx, [ebp - 0xa0]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x2e
mov word [ebp - 0xf8], 0x152c
lea eax, [ebp - 0xf8]
push eax
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 4], 0x2f
mov dword [ebp - 0xa8], 0xc0
mov dword [ebp - 0xb0], 2
push 3
lea eax, [ebp - 0xb0]
push eax
lea eax, [ebp - 0xc0]
push eax
call sub.MSVBVM60.DLL_rtcLeftCharVar
lea eax, [ebp - 0xc0]
push eax
lea eax, [ebp - 0xb0]
push eax
push 2
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0xc
mov dword [ebp - 4], 0x30
mov dword [ebp - 0xcc], 0x40471c
mov dword [ebp - 0xd4], 8
lea edx, [ebp - 0xd4]
mov dword [ebp - 4], 0x66
push 0
push 2
push 1
push 0
lea eax, [ebp - 0xc4]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
mov eax, dword [ebp + 8]
push dword [eax]
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0xcc], eax
mov dword [ebp - 0xd4], 3
lea esi, [ebp - 0xd4]
push 0
push dword [ebp - 0xc4]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
mov eax, dword [ebp + 0xc]
push dword [eax]
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0xdc], eax
mov dword [ebp - 0xe4], 3
lea esi, [ebp - 0xe4]
push 1
push dword [ebp - 0xc4]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
and dword [ebp - 0xec], 0
mov dword [ebp - 0xf4], 0xb
lea esi, [ebp - 0xf4]
push 2
push dword [ebp - 0xc4]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0xc4]
push eax
push dword [0x423264]
push dword [0x4231e4]
call fcn.004107b4
lea eax, [ebp - 0xc4]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
mov dword [ebp - 4], 0x67
push 0
push 1
push 1
push 0
lea eax, [ebp - 0xc4]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
mov eax, dword [ebp + 0xc]
push dword [eax]
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0xcc], eax
mov dword [ebp - 0xd4], 3
lea esi, [ebp - 0xd4]
push 0
push dword [ebp - 0xc4]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
and dword [ebp - 0xdc], 0
mov dword [ebp - 0xe4], 3
lea esi, [ebp - 0xe4]
push 1
push dword [ebp - 0xc4]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0xc4]
push eax
push dword [0x4230c4]
push dword [0x4231e4]
call fcn.004107b4
lea eax, [ebp - 0xc4]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase