00411E90 	push	ebp
00411E91 	mov	ebp,esp
00411E93 	sub	esp,14h
00411E96 	push	00401476h
00411E9B 	mov	eax,fs:[00000000h]
00411EA1 	push	eax
00411EA2 	mov	fs:[00000000h],esp
00411EA9 	sub	esp,000000C0h
00411EAF 	push	ebx
00411EB0 	push	esi
00411EB1 	push	edi
00411EB2 	mov	[ebp-00000014h],esp

* Possible string reference 401170h ""
|
00411EB5 	mov	dword ptr [ebp-00000010h],00401170h
00411EBC 	mov	eax,[ebp+00000008h]
00411EBF 	mov	ecx,eax
00411EC1 	and	ecx,01h
00411EC4 	mov	[ebp-0000000Ch],ecx
00411EC7 	and	al,FEh
00411EC9 	mov	[ebp+00000008h],eax
00411ECC 	xor	esi,esi
00411ECE 	mov	[ebp-00000008h],esi
00411ED1 	mov	edx,[eax]
00411ED3 	push	eax
00411ED4 	call	dword ptr [edx+00000004h]
00411ED7 	mov	[ebp-00000020h],esi
00411EDA 	mov	[ebp-00000024h],esi
00411EDD 	mov	[ebp-00000028h],esi
00411EE0 	mov	[ebp-00000038h],esi
00411EE3 	mov	[ebp-00000048h],esi
00411EE6 	mov	[ebp-00000058h],esi
00411EE9 	mov	[ebp-00000068h],esi
00411EEC 	mov	[ebp-00000078h],esi
00411EEF 	mov	[ebp-00000088h],esi
00411EF5 	mov	[ebp-000000BCh],esi
00411EFB 	mov	[ebp-000000CCh],esi
00411F01 	push	01h

* Reference to MSVBVM50.__vbaOnError
|
00411F03 	call	dword ptr [0041F240h]
00411F09 	cmp	[0041B02Ch],esi
00411F0F 	jnz	00411F21h
00411F11 	push	0041B02Ch

* Possible string reference 40685Ch ""
|
00411F16 	push	0040685Ch

* Reference to MSVBVM50.__vbaNew2
|
00411F1B 	call	dword ptr [0041F2F0h]

* Referenced by a (U)nconditional or (C)onditional Jump or (c)all at Address:
| 00411F0F(C)
|
00411F21 	mov	eax,[0041B02Ch]
00411F26 	push	eax
00411F27 	lea	ecx,[ebp-000000CCh]
00411F2D 	push	ecx

* Reference to MSVBVM50.__vbaObjSetAddref
|
00411F2E 	call	dword ptr [0041F248h]

* Possible string reference 409094h "Abrir"
|
00411F34 	mov	eax,00409094h
00411F39 	mov	ecx,00000008h
00411F3E 	sub	esp,10h
00411F41 	mov	edx,esp
00411F43 	mov	[edx],ecx
00411F45 	mov	ebx,[ebp-00000084h]
00411F4B 	mov	[edx+00000004h],ebx
00411F4E 	mov	[edx+00000008h],eax
00411F51 	mov	eax,[ebp-0000007Ch]
00411F54 	mov	[edx+0000000Ch],eax
00411F57 	push	02h
00411F59 	mov	eax,[ebp-000000CCh]
00411F5F 	mov	ecx,[eax]
00411F61 	push	eax
00411F62 	call	dword ptr [ecx+0000039Ch]
00411F68 	push	eax
00411F69 	lea	edx,[ebp-00000024h]
00411F6C 	push	edx

* Reference to MSVBVM50.__vbaObjSet
|
00411F6D 	mov	esi,[0041F23Ch]
00411F73 	call	esi
00411F75 	push	eax

* Reference to MSVBVM50.__vbaLateIdSt
|
00411F76 	call	dword ptr [0041F358h]
00411F7C 	lea	ecx,[ebp-00000024h]

* Reference to MSVBVM50.__vbaFreeObj
|
00411F7F 	mov	edi,[0041F36Ch]
00411F85 	call	edi

* Possible string reference 4090A4h "Base de Datos Diretel(Diretel.mdb)|Diretel.mdb"
|
00411F87 	mov	eax,004090A4h
00411F8C 	mov	ecx,00000008h
00411F91 	sub	esp,10h
00411F94 	mov	edx,esp
00411F96 	mov	[edx],ecx
00411F98 	mov	[edx+00000004h],ebx
00411F9B 	mov	[edx+00000008h],eax
00411F9E 	mov	eax,[ebp-0000007Ch]
00411FA1 	mov	[edx+0000000Ch],eax
00411FA4 	push	03h
00411FA6 	mov	eax,[ebp-000000CCh]
00411FAC 	mov	ecx,[eax]
00411FAE 	push	eax
00411FAF 	call	dword ptr [ecx+0000039Ch]
00411FB5 	push	eax
00411FB6 	lea	edx,[ebp-00000024h]
00411FB9 	push	edx
00411FBA 	call	esi
00411FBC 	push	eax

* Reference to MSVBVM50.__vbaLateIdSt
|
00411FBD 	call	dword ptr [0041F358h]
00411FC3 	lea	ecx,[ebp-00000024h]
00411FC6 	call	edi
00411FC8 	mov	eax,00001004h
00411FCD 	mov	ecx,00000003h
00411FD2 	sub	esp,10h
00411FD5 	mov	edx,esp
00411FD7 	mov	[edx],ecx
00411FD9 	mov	[edx+00000004h],ebx
00411FDC 	mov	[edx+00000008h],eax
00411FDF 	mov	eax,[ebp-0000007Ch]
00411FE2 	mov	[edx+0000000Ch],eax
00411FE5 	push	07h
00411FE7 	mov	eax,[ebp-000000CCh]
00411FED 	mov	ecx,[eax]
00411FEF 	push	eax
00411FF0 	call	dword ptr [ecx+0000039Ch]
00411FF6 	push	eax
00411FF7 	lea	edx,[ebp-00000024h]
00411FFA 	push	edx
00411FFB 	call	esi
00411FFD 	push	eax

* Reference to MSVBVM50.__vbaLateIdSt
|
00411FFE 	call	dword ptr [0041F358h]
00412004 	lea	ecx,[ebp-00000024h]
00412007 	call	edi
00412009 	or	eax,FFFFFFFFh
0041200C 	mov	ecx,0000000Bh
00412011 	sub	esp,10h
00412014 	mov	edx,esp
00412016 	mov	[edx],ecx
00412018 	mov	[edx+00000004h],ebx
0041201B 	mov	[edx+00000008h],eax
0041201E 	mov	eax,[ebp-0000007Ch]
00412021 	mov	[edx+0000000Ch],eax
00412024 	push	12h
00412026 	mov	eax,[ebp-000000CCh]
0041202C 	mov	ecx,[eax]
0041202E 	push	eax
0041202F 	call	dword ptr [ecx+0000039Ch]
00412035 	push	eax
00412036 	lea	edx,[ebp-00000024h]
00412039 	push	edx
0041203A 	call	esi
0041203C 	push	eax

* Reference to MSVBVM50.__vbaLateIdSt
|
0041203D 	call	dword ptr [0041F358h]
00412043 	lea	ecx,[ebp-00000024h]
00412046 	call	edi
00412048 	push	00h
0041204A 	push	1Eh
0041204C 	mov	eax,[ebp-000000CCh]
00412052 	mov	ecx,[eax]
00412054 	push	eax
00412055 	call	dword ptr [ecx+0000039Ch]
0041205B 	push	eax
0041205C 	lea	edx,[ebp-00000024h]
0041205F 	push	edx
00412060 	call	esi
00412062 	push	eax

* Reference to MSVBVM50.__vbaLateIdCall
|
00412063 	call	dword ptr [0041F1ECh]
00412069 	add	esp,0Ch
0041206C 	lea	ecx,[ebp-00000024h]
0041206F 	call	edi
00412071 	mov	eax,[ebp+00000008h]
00412074 	mov	ecx,[eax]
00412076 	push	eax
00412077 	call	dword ptr [ecx+000002FCh]
0041207D 	push	eax
0041207E 	lea	edx,[ebp-00000028h]
00412081 	push	edx
00412082 	call	esi
00412084 	mov	edi,eax
00412086 	mov	ebx,[edi]
00412088 	push	00h
0041208A 	push	01h
0041208C 	mov	eax,[ebp-000000CCh]
00412092 	mov	ecx,[eax]
00412094 	push	eax
00412095 	call	dword ptr [ecx+0000039Ch]
0041209B 	push	eax
0041209C 	lea	edx,[ebp-00000024h]
0041209F 	push	edx
004120A0 	call	esi
004120A2 	push	eax
004120A3 	lea	eax,[ebp-00000038h]
004120A6 	push	eax

* Reference to MSVBVM50.__vbaLateIdCallLd
|
004120A7 	call	dword ptr [0041F2A4h]
004120AD 	add	esp,10h
004120B0 	push	eax

* Reference to MSVBVM50.__vbaStrVarMove
|
004120B1 	call	dword ptr [0041F1E8h]
004120B7 	mov	edx,eax
004120B9 	lea	ecx,[ebp-00000020h]

* Reference to MSVBVM50.__vbaStrMove
|
004120BC 	call	dword ptr [0041F34Ch]
004120C2 	push	eax
004120C3 	push	edi
004120C4 	call	dword ptr [ebx+000000A4h]
004120CA 	test	eax,eax
004120CC 	jnl	004120E0h
004120CE 	push	000000A4h

* Possible string reference 409104h ""
|
004120D3 	push	00409104h
004120D8 	push	edi
004120D9 	push	eax

* Reference to MSVBVM50.__vbaHresultCheckObj
|
004120DA 	call	dword ptr [0041F220h]

* Referenced by a (U)nconditional or (C)onditional Jump or (c)all at Address:
| 004120CC(C)
|
004120E0 	lea	ecx,[ebp-00000020h]

* Reference to MSVBVM50.__vbaFreeStr
|
004120E3 	call	dword ptr [0041F368h]
004120E9 	lea	ecx,[ebp-00000028h]
004120EC 	push	ecx
004120ED 	lea	edx,[ebp-00000024h]
004120F0 	push	edx
004120F1 	push	02h

* Reference to MSVBVM50.__vbaFreeObjList
|
004120F3 	call	dword ptr [0041F1F8h]
004120F9 	add	esp,0Ch
004120FC 	lea	ecx,[ebp-00000038h]

* Reference to MSVBVM50.__vbaFreeVar
|
004120FF 	call	dword ptr [0041F1E0h]
00412105 	push	00h
00412107 	lea	eax,[ebp-000000CCh]
0041210D 	push	eax

* Reference to MSVBVM50.__vbaObjSetAddref
|
0041210E 	call	dword ptr [0041F248h]
00412114 	jmp	00412216h
00412119 	mov	eax,[ebp+00000008h]
0041211C 	mov	ecx,[eax]
0041211E 	push	eax
0041211F 	call	dword ptr [ecx+000002FCh]
00412125 	push	eax
00412126 	lea	edx,[ebp-00000024h]
00412129 	push	edx

* Reference to MSVBVM50.__vbaObjSet
|
0041212A 	mov	edi,[0041F23Ch]
00412130 	call	edi
00412132 	mov	esi,eax
00412134 	mov	eax,[esi]

* Possible string reference 409118h ""
|
00412136 	push	00409118h
0041213B 	push	esi
0041213C 	call	dword ptr [eax+000000A4h]
00412142 	test	eax,eax
00412144 	jnl	00412158h
00412146 	push	000000A4h

* Possible string reference 409104h ""
|
0041214B 	push	00409104h
00412150 	push	esi
00412151 	push	eax

* Reference to MSVBVM50.__vbaHresultCheckObj
|
00412152 	call	dword ptr [0041F220h]

* Referenced by a (U)nconditional or (C)onditional Jump or (c)all at Address:
| 00412144(C)
|
00412158 	lea	ecx,[ebp-00000024h]

* Reference to MSVBVM50.__vbaFreeObj
|
0041215B 	mov	ebx,[0041F36Ch]
00412161 	call	ebx

* Reference to MSVBVM50.685
|
00412163 	call	dword ptr [0041F318h]
00412169 	push	eax
0041216A 	lea	ecx,[ebp-00000024h]
0041216D 	push	ecx
0041216E 	call	edi
00412170 	mov	esi,eax
00412172 	mov	edx,[esi]
00412174 	lea	eax,[ebp-000000BCh]
0041217A 	push	eax
0041217B 	push	esi
0041217C 	call	dword ptr [edx+0000001Ch]
0041217F 	test	eax,eax
00412181 	jnl	00412192h
00412183 	push	1Ch

* Possible string reference 40911Ch ""
|
00412185 	push	0040911Ch
0041218A 	push	esi
0041218B 	push	eax

* Reference to MSVBVM50.__vbaHresultCheckObj
|
0041218C 	call	dword ptr [0041F220h]

* Referenced by a (U)nconditional or (C)onditional Jump or (c)all at Address:
| 00412181(C)
|
00412192 	xor	ecx,ecx
00412194 	cmp	dword ptr [ebp-000000BCh],00007FF3h
0041219E 	setnz	cl
004121A1 	neg	ecx
004121A3 	mov	esi,ecx
004121A5 	lea	ecx,[ebp-00000024h]
004121A8 	call	ebx
004121AA 	test	si,si
004121AD 	jz	00412216h
004121AF 	mov	ecx,80020004h
004121B4 	mov	[ebp-00000070h],ecx
004121B7 	mov	eax,0000000Ah
004121BC 	mov	[ebp-00000078h],eax
004121BF 	mov	[ebp-00000060h],ecx
004121C2 	mov	[ebp-00000068h],eax
004121C5 	mov	[ebp-00000050h],ecx
004121C8 	mov	[ebp-00000058h],eax
004121CB 	mov	[ebp-00000030h],ecx
004121CE 	mov	[ebp-00000038h],eax
004121D1 	lea	edx,[ebp-00000038h]
004121D4 	push	edx
004121D5 	lea	eax,[ebp-00000048h]
004121D8 	push	eax

* Reference to MSVBVM50.652
|
004121D9 	call	dword ptr [0041F35Ch]
004121DF 	lea	ecx,[ebp-00000078h]
004121E2 	push	ecx
004121E3 	lea	edx,[ebp-00000068h]
004121E6 	push	edx
004121E7 	lea	eax,[ebp-00000058h]
004121EA 	push	eax
004121EB 	push	00h
004121ED 	lea	ecx,[ebp-00000048h]
004121F0 	push	ecx

* Reference to MSVBVM50.595
|
004121F1 	call	dword ptr [0041F238h]
004121F7 	lea	edx,[ebp-00000078h]
004121FA 	push	edx
004121FB 	lea	eax,[ebp-00000068h]
004121FE 	push	eax
004121FF 	lea	ecx,[ebp-00000058h]
00412202 	push	ecx
00412203 	lea	edx,[ebp-00000048h]
00412206 	push	edx
00412207 	lea	eax,[ebp-00000038h]
0041220A 	push	eax
0041220B 	push	05h

* Reference to MSVBVM50.__vbaFreeVarList
|
0041220D 	call	dword ptr [0041F1F0h]
00412213 	add	esp,18h

* Referenced by a (U)nconditional or (C)onditional Jump or (c)all at Address:
| 00412114(U), 004121AD(C)
|
* Reference to MSVBVM50.__vbaExitProc
|
00412216 	call	dword ptr [0041F230h]

* Possible string reference 41226Ch ""
|
0041221C 	push	0041226Ch
00412221 	jmp	0041225Fh
00412223 	lea	ecx,[ebp-00000020h]

* Reference to MSVBVM50.__vbaFreeStr
|
00412226 	call	dword ptr [0041F368h]
0041222C 	lea	ecx,[ebp-00000028h]
0041222F 	push	ecx
00412230 	lea	edx,[ebp-00000024h]
00412233 	push	edx
00412234 	push	02h

* Reference to MSVBVM50.__vbaFreeObjList
|
00412236 	call	dword ptr [0041F1F8h]
0041223C 	add	esp,0Ch
0041223F 	lea	eax,[ebp-00000078h]
00412242 	push	eax
00412243 	lea	ecx,[ebp-00000068h]
00412246 	push	ecx
00412247 	lea	edx,[ebp-00000058h]
0041224A 	push	edx
0041224B 	lea	eax,[ebp-00000048h]
0041224E 	push	eax
0041224F 	lea	ecx,[ebp-00000038h]
00412252 	push	ecx
00412253 	push	05h

* Reference to MSVBVM50.__vbaFreeVarList
|
00412255 	call	dword ptr [0041F1F0h]
0041225B 	add	esp,18h
0041225E 	ret

* Referenced by a (U)nconditional or (C)onditional Jump or (c)all at Address:
| 00412221(U)
|
0041225F 	lea	ecx,[ebp-000000CCh]

* Reference to MSVBVM50.__vbaFreeObj
|
00412265 	jmp	dword ptr [0041F36Ch]
0041226B 	ret
0041226C 	mov	eax,[ebp+00000008h]
0041226F 	mov	edx,[eax]
00412271 	push	eax
00412272 	call	dword ptr [edx+00000008h]
00412275 	mov	eax,[ebp-0000000Ch]
00412278 	mov	ecx,[ebp-0000001Ch]
0041227B 	mov	fs:[00000000h],ecx
00412282 	pop	edi
00412283 	pop	esi
00412284 	pop	ebx
00412285 	mov	esp,ebp
00412287 	pop	ebp
00412288 	ret	0004h
0041228B 	nop
0041228C 	nop
0041228D 	nop
0041228E 	nop
0041228F 	nop