Function at 0x54fce0
Capabilities:
Get geographical location

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x18
push 0x426926
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0x88
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 0x18], esp
mov dword [ebp - 0x14], 0x40f810
mov dword [ebp - 0x10], 0
mov dword [ebp - 0xc], 0
push 0x432a30
call dword [sym.imp.MSVBVM60.DLL___vbaAptOffset]
mov dword [ebp - 0x98], eax
mov dword [ebp - 4], 1
mov dword [ebp - 4], 2
push 1
call dword [sym.imp.MSVBVM60.DLL___vbaOnError]
mov dword [ebp - 4], 4
mov word [ebp - 0x28], 0
mov dword [ebp - 4], 6
lea eax, [ebp - 0x2c]
push eax
mov ecx, dword [ebp - 0x98]
mov edx, dword [ecx + 0x609074]
mov eax, dword [ebp - 0x98]
mov ecx, dword [eax + 0x609074]
mov eax, dword [ecx]
push edx
call dword [eax + 0x24]
fnclex
mov dword [ebp - 0x7c], eax
cmp dword [ebp - 0x7c], 0
jge 0x54fdac
push 0x24
push 0x456d80
mov ecx, dword [ebp - 0x98]
mov edx, dword [ecx + 0x609074]
push edx
mov eax, dword [ebp - 0x7c]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov dword [ebp - 0x9c], eax
jmp 0x54fdb6
mov dword [ebp - 0x9c], 0
mov ecx, dword [ebp - 0x2c]
push ecx
push 0x43e948
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x24]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
mov dword [ebp - 4], 8
lea edx, [ebp - 0x24]
push edx
lea eax, [ebp - 0x4c]
push eax
call fcn.00571430
lea ecx, [ebp - 0x4c]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaBoolVarNull]
mov word [ebp - 0x7c], ax
lea ecx, [ebp - 0x4c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
movsx edx, word [ebp - 0x7c]
test edx, edx
je 0x54fe2a
mov dword [ebp - 4], 0xa
lea eax, [ebp - 0x24]
mov dword [ebp - 0x64], eax
mov dword [ebp - 0x6c], 0x4008
lea ecx, [ebp - 0x6c]
push ecx
call dword [sym.imp.MSVBVM60.DLL_rtcKillFiles]
mov dword [ebp - 4], 0xd
lea edx, [ebp - 0x24]
push edx
lea eax, [ebp - 0x4c]
push eax
call fcn.00571430
lea ecx, [ebp - 0x4c]
push ecx
lea edx, [ebp - 0x5c]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaVarNot]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaBoolVarNull]
mov word [ebp - 0x7c], ax
lea ecx, [ebp - 0x4c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
movsx eax, word [ebp - 0x7c]
test eax, eax
je 0x55020d
mov dword [ebp - 4], 0xf
lea ecx, [ebp - 0x2c]
push ecx
mov edx, dword [ebp - 0x98]
mov eax, dword [edx + 0x609074]
mov ecx, dword [ebp - 0x98]
mov edx, dword [ecx + 0x609074]
mov ecx, dword [edx]
push eax
call dword [ecx + 0x24]
fnclex
mov dword [ebp - 0x7c], eax
cmp dword [ebp - 0x7c], 0
jge 0x54fec6
push 0x24
push 0x456d80
mov edx, dword [ebp - 0x98]
mov eax, dword [edx + 0x609074]
push eax
mov ecx, dword [ebp - 0x7c]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov dword [ebp - 0xa0], eax
jmp 0x54fed0
mov dword [ebp - 0xa0], 0
push 4
push 2
push 0x43e980
lea edx, [ebp - 0x38]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
mov eax, dword [ebp - 0x2c]
push eax
push 0x43e964
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
push eax
lea ecx, [ebp - 0x34]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
call fcn.00452e28
mov word [ebp - 0x70], ax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
xor edx, edx
cmp word [ebp - 0x70], 0
sete dl
neg edx
mov word [ebp - 0x80], dx
lea eax, [ebp - 0x38]
push eax
lea ecx, [ebp - 0x34]
push ecx
lea edx, [ebp - 0x30]
push edx
lea eax, [ebp - 0x2c]
push eax
push 4
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x14
movsx ecx, word [ebp - 0x80]
test ecx, ecx
je 0x54fffe
mov dword [ebp - 4], 0x11
mov word [ebp - 0x74], 0xffff
push 0x458c38
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaCastObj]
push eax
lea edx, [ebp - 0x3c]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaObjSet]
mov word [ebp - 0x70], 0xffff
mov edx, 0x45d6d8
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov edx, 0x448090
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov dword [ebp - 0x78], 0x30
push 0x44be94
mov eax, dword [ebp - 0x24]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea ecx, [ebp - 0x74]
push ecx
lea edx, [ebp - 0x3c]
push edx
lea eax, [ebp - 0x70]
push eax
lea ecx, [ebp - 0x34]
push ecx
lea edx, [ebp - 0x30]
push edx
lea eax, [ebp - 0x78]
push eax
lea ecx, [ebp - 0x2c]
push ecx
call fcn.0056fe70
lea edx, [ebp - 0x34]
push edx
lea eax, [ebp - 0x30]
push eax
lea ecx, [ebp - 0x2c]
push ecx
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x10
lea ecx, [ebp - 0x3c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
jmp 0x55020d
mov dword [ebp - 4], 0x14
push 0
push 0x17
push 0x448060
lea edx, [ebp - 0x30]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
push 0x43faf4
lea eax, [ebp - 0x2c]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
call fcn.00452d98
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
lea ecx, [ebp - 0x30]
push ecx
lea edx, [ebp - 0x2c]
push edx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
mov dword [ebp - 4], 0x16
push 0
push 0x23
push 0x448060
lea eax, [ebp - 0x30]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
push 0x43f238
lea ecx, [ebp - 0x2c]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
call fcn.00452d98
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
lea edx, [ebp - 0x30]
push edx
lea eax, [ebp - 0x2c]
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
mov dword [ebp - 4], 0x18
push 0
push 0x20
push 0x448060
lea ecx, [ebp - 0x30]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
push 0x43fae4
lea edx, [ebp - 0x2c]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
call fcn.00452d98
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
lea eax, [ebp - 0x30]
push eax
lea ecx, [ebp - 0x2c]
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
mov dword [ebp - 4], 0x1a
push 0
push 0x26
push 0x448060
lea edx, [ebp - 0x30]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
push 0x43f22c
lea eax, [ebp - 0x2c]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
call fcn.00452d98
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
lea ecx, [ebp - 0x30]
push ecx
lea edx, [ebp - 0x2c]
push edx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
mov dword [ebp - 4], 0x1c
call fcn.00452d50
mov word [ebp - 0x70], ax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
movsx eax, word [ebp - 0x70]
test eax, eax
je 0x550164
mov dword [ebp - 4], 0x1e
call fcn.00452a8c
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov dword [ebp - 4], 0x20
mov word [ebp - 0x28], 0xffff
jmp 0x55020d
mov dword [ebp - 4], 0x23
mov word [ebp - 0x74], 0xffff
push 0x458c38
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaCastObj]
push eax
lea ecx, [ebp - 0x3c]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaObjSet]
mov word [ebp - 0x70], 0xffff
mov edx, 0x45d6d8
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov edx, 0x448090
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov dword [ebp - 0x78], 0x30
push 0x44be94
mov edx, dword [ebp - 0x24]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea eax, [ebp - 0x74]
push eax
lea ecx, [ebp - 0x3c]
push ecx
lea edx, [ebp - 0x70]
push edx
lea eax, [ebp - 0x34]
push eax
lea ecx, [ebp - 0x30]
push ecx
lea edx, [ebp - 0x78]
push edx
lea eax, [ebp - 0x2c]
push eax
call fcn.0056fe70
lea ecx, [ebp - 0x34]
push ecx
lea edx, [ebp - 0x30]
push edx
lea eax, [ebp - 0x2c]
push eax
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x10
lea ecx, [ebp - 0x3c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
jmp 0x5502f4
call dword [sym.imp.MSVBVM60.DLL___vbaExitProc]
push 0x550343
jmp 0x550339
lea ecx, [ebp - 0x24]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
ret