Add files via upload

Src Code/BBIMContact.cls

@@ -0,0 +1,368 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "BBIMContact"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+
+
+Public Property Let ContactName(vData) '713400
+  loc_00713400: push ebp
+  loc_00713401: mov ebp, esp
+  loc_00713403: sub esp, 0000000Ch
+  loc_00713406: push 00412856h ; __vbaExceptHandler
+  loc_0071340B: mov eax, fs:[00000000h]
+  loc_00713411: push eax
+  loc_00713412: mov fs:[00000000h], esp
+  loc_00713419: sub esp, 0000000Ch
+  loc_0071341C: push ebx
+  loc_0071341D: push esi
+  loc_0071341E: push edi
+  loc_0071341F: mov var_C, esp
+  loc_00713422: mov var_8, 004111C0h
+  loc_00713429: xor edi, edi
+  loc_0071342B: mov var_4, edi
+  loc_0071342E: mov esi, Me
+  loc_00713431: push esi
+  loc_00713432: mov eax, [esi]
+  loc_00713434: call [eax+00000004h]
+  loc_00713437: mov edx, vData
+  loc_0071343A: mov var_18, edi
+  loc_0071343D: mov edi, [00401310h] ; __vbaStrCopy
+  loc_00713443: lea ecx, var_18
+  loc_00713446: call edi
+  loc_00713448: mov edx, var_18
+  loc_0071344B: lea ecx, [esi+0000003Ch]
+  loc_0071344E: call edi
+  loc_00713450: push 0071345Fh
+  loc_00713455: lea ecx, var_18
+  loc_00713458: call [00401430h] ; __vbaFreeStr
+  loc_0071345E: ret
+  loc_0071345F: mov eax, Me
+  loc_00713462: push eax
+  loc_00713463: mov ecx, [eax]
+  loc_00713465: call [ecx+00000008h]
+  loc_00713468: mov eax, var_4
+  loc_0071346B: mov ecx, var_14
+  loc_0071346E: pop edi
+  loc_0071346F: pop esi
+  loc_00713470: mov fs:[00000000h], ecx
+  loc_00713477: pop ebx
+  loc_00713478: mov esp, ebp
+  loc_0071347A: pop ebp
+  loc_0071347B: retn 0008h
+End Sub
+
+Public Property Get ContactName(arg_C) '713480
+  loc_00713480: push ebp
+  loc_00713481: mov ebp, esp
+  loc_00713483: sub esp, 0000000Ch
+  loc_00713486: push 00412856h ; __vbaExceptHandler
+  loc_0071348B: mov eax, fs:[00000000h]
+  loc_00713491: push eax
+  loc_00713492: mov fs:[00000000h], esp
+  loc_00713499: sub esp, 0000000Ch
+  loc_0071349C: push ebx
+  loc_0071349D: push esi
+  loc_0071349E: push edi
+  loc_0071349F: mov var_C, esp
+  loc_007134A2: mov var_8, 004111D0h
+  loc_007134A9: xor edi, edi
+  loc_007134AB: mov var_4, edi
+  loc_007134AE: mov esi, Me
+  loc_007134B1: push esi
+  loc_007134B2: mov eax, [esi]
+  loc_007134B4: call [eax+00000004h]
+  loc_007134B7: mov ecx, arg_C
+  loc_007134BA: mov var_18, edi
+  loc_007134BD: mov [ecx], edi
+  loc_007134BF: mov edx, [esi+0000003Ch]
+  loc_007134C2: lea ecx, var_18
+  loc_007134C5: call [00401310h] ; __vbaStrCopy
+  loc_007134CB: push 007134DDh
+  loc_007134D0: jmp 007134DCh
+  loc_007134D2: lea ecx, var_18
+  loc_007134D5: call [00401430h] ; __vbaFreeStr
+  loc_007134DB: ret
+  loc_007134DC: ret
+  loc_007134DD: mov eax, Me
+  loc_007134E0: push eax
+  loc_007134E1: mov edx, [eax]
+  loc_007134E3: call [edx+00000008h]
+  loc_007134E6: mov eax, arg_C
+  loc_007134E9: mov ecx, var_18
+  loc_007134EC: mov [eax], ecx
+  loc_007134EE: mov eax, var_4
+  loc_007134F1: mov ecx, var_14
+  loc_007134F4: pop edi
+  loc_007134F5: pop esi
+  loc_007134F6: mov fs:[00000000h], ecx
+  loc_007134FD: pop ebx
+  loc_007134FE: mov esp, ebp
+  loc_00713500: pop ebp
+  loc_00713501: retn 0008h
+End Sub
+
+Public Property Set ContactObject(vData) '713510
+  loc_00713510: push ebp
+  loc_00713511: mov ebp, esp
+  loc_00713513: sub esp, 0000000Ch
+  loc_00713516: push 00412856h ; __vbaExceptHandler
+  loc_0071351B: mov eax, fs:[00000000h]
+  loc_00713521: push eax
+  loc_00713522: mov fs:[00000000h], esp
+  loc_00713529: sub esp, 0000000Ch
+  loc_0071352C: push ebx
+  loc_0071352D: push esi
+  loc_0071352E: push edi
+  loc_0071352F: mov var_C, esp
+  loc_00713532: mov var_8, 004111E0h
+  loc_00713539: xor edi, edi
+  loc_0071353B: mov var_4, edi
+  loc_0071353E: mov esi, Me
+  loc_00713541: push esi
+  loc_00713542: mov eax, [esi]
+  loc_00713544: call [eax+00000004h]
+  loc_00713547: mov ecx, vData
+  loc_0071354A: lea edx, var_18
+  loc_0071354D: mov var_18, edi
+  loc_00713550: mov edi, [00401130h] ; __vbaObjSetAddref
+  loc_00713556: push ecx
+  loc_00713557: push edx
+  loc_00713558: call edi
+  loc_0071355A: mov eax, var_18
+  loc_0071355D: add esi, 00000038h
+  loc_00713560: push eax
+  loc_00713561: push esi
+  loc_00713562: call edi
+  loc_00713564: push 00713573h
+  loc_00713569: lea ecx, var_18
+  loc_0071356C: call [0040142Ch] ; __vbaFreeObj
+  loc_00713572: ret
+  loc_00713573: mov eax, Me
+  loc_00713576: push eax
+  loc_00713577: mov ecx, [eax]
+  loc_00713579: call [ecx+00000008h]
+  loc_0071357C: mov eax, var_4
+  loc_0071357F: mov ecx, var_14
+  loc_00713582: pop edi
+  loc_00713583: pop esi
+  loc_00713584: mov fs:[00000000h], ecx
+  loc_0071358B: pop ebx
+  loc_0071358C: mov esp, ebp
+  loc_0071358E: pop ebp
+  loc_0071358F: retn 0008h
+End Sub
+
+Public Property Get ContactObject(arg_C) '7135A0
+  loc_007135A0: push ebp
+  loc_007135A1: mov ebp, esp
+  loc_007135A3: sub esp, 0000000Ch
+  loc_007135A6: push 00412856h ; __vbaExceptHandler
+  loc_007135AB: mov eax, fs:[00000000h]
+  loc_007135B1: push eax
+  loc_007135B2: mov fs:[00000000h], esp
+  loc_007135B9: sub esp, 0000000Ch
+  loc_007135BC: push ebx
+  loc_007135BD: push esi
+  loc_007135BE: push edi
+  loc_007135BF: mov var_C, esp
+  loc_007135C2: mov var_8, 004111F0h
+  loc_007135C9: xor edi, edi
+  loc_007135CB: mov var_4, edi
+  loc_007135CE: mov esi, Me
+  loc_007135D1: push esi
+  loc_007135D2: mov eax, [esi]
+  loc_007135D4: call [eax+00000004h]
+  loc_007135D7: mov ecx, arg_C
+  loc_007135DA: lea eax, var_18
+  loc_007135DD: mov var_18, edi
+  loc_007135E0: mov [ecx], edi
+  loc_007135E2: mov edx, [esi+00000038h]
+  loc_007135E5: push edx
+  loc_007135E6: push eax
+  loc_007135E7: call [00401130h] ; __vbaObjSetAddref
+  loc_007135ED: push 007135FFh
+  loc_007135F2: jmp 007135FEh
+  loc_007135F4: lea ecx, var_18
+  loc_007135F7: call [0040142Ch] ; __vbaFreeObj
+  loc_007135FD: ret
+  loc_007135FE: ret
+  loc_007135FF: mov eax, Me
+  loc_00713602: push eax
+  loc_00713603: mov ecx, [eax]
+  loc_00713605: call [ecx+00000008h]
+  loc_00713608: mov edx, arg_C
+  loc_0071360B: mov eax, var_18
+  loc_0071360E: mov [edx], eax
+  loc_00713610: mov eax, var_4
+  loc_00713613: mov ecx, var_14
+  loc_00713616: pop edi
+  loc_00713617: pop esi
+  loc_00713618: mov fs:[00000000h], ecx
+  loc_0071361F: pop ebx
+  loc_00713620: mov esp, ebp
+  loc_00713622: pop ebp
+  loc_00713623: retn 0008h
+End Sub
+
+Public Property Let ListCount(vData) '713630
+  loc_00713630: push ebp
+  loc_00713631: mov ebp, esp
+  loc_00713633: sub esp, 0000000Ch
+  loc_00713636: push 00412856h ; __vbaExceptHandler
+  loc_0071363B: mov eax, fs:[00000000h]
+  loc_00713641: push eax
+  loc_00713642: mov fs:[00000000h], esp
+  loc_00713649: sub esp, 00000008h
+  loc_0071364C: push ebx
+  loc_0071364D: push esi
+  loc_0071364E: push edi
+  loc_0071364F: mov var_C, esp
+  loc_00713652: mov var_8, 00411200h
+  loc_00713659: mov var_4, 00000000h
+  loc_00713660: mov esi, Me
+  loc_00713663: push esi
+  loc_00713664: mov eax, [esi]
+  loc_00713666: call [eax+00000004h]
+  loc_00713669: mov ecx, vData
+  loc_0071366C: mov [esi+00000034h], ecx
+  loc_0071366F: mov eax, Me
+  loc_00713672: push eax
+  loc_00713673: mov edx, [eax]
+  loc_00713675: call [edx+00000008h]
+  loc_00713678: mov eax, var_4
+  loc_0071367B: mov ecx, var_14
+  loc_0071367E: pop edi
+  loc_0071367F: pop esi
+  loc_00713680: mov fs:[00000000h], ecx
+  loc_00713687: pop ebx
+  loc_00713688: mov esp, ebp
+  loc_0071368A: pop ebp
+  loc_0071368B: retn 0008h
+End Sub
+
+Public Property Get ListCount(arg_C) '713690
+  loc_00713690: push ebp
+  loc_00713691: mov ebp, esp
+  loc_00713693: sub esp, 0000000Ch
+  loc_00713696: push 00412856h ; __vbaExceptHandler
+  loc_0071369B: mov eax, fs:[00000000h]
+  loc_007136A1: push eax
+  loc_007136A2: mov fs:[00000000h], esp
+  loc_007136A9: sub esp, 0000000Ch
+  loc_007136AC: push ebx
+  loc_007136AD: push esi
+  loc_007136AE: push edi
+  loc_007136AF: mov var_C, esp
+  loc_007136B2: mov var_8, 00411208h
+  loc_007136B9: xor edi, edi
+  loc_007136BB: mov var_4, edi
+  loc_007136BE: mov esi, Me
+  loc_007136C1: push esi
+  loc_007136C2: mov eax, [esi]
+  loc_007136C4: call [eax+00000004h]
+  loc_007136C7: mov ecx, [esi+00000034h]
+  loc_007136CA: mov var_18, edi
+  loc_007136CD: mov var_18, ecx
+  loc_007136D0: mov eax, Me
+  loc_007136D3: push eax
+  loc_007136D4: mov edx, [eax]
+  loc_007136D6: call [edx+00000008h]
+  loc_007136D9: mov eax, arg_C
+  loc_007136DC: mov ecx, var_18
+  loc_007136DF: mov [eax], ecx
+  loc_007136E1: mov eax, var_4
+  loc_007136E4: mov ecx, var_14
+  loc_007136E7: pop edi
+  loc_007136E8: pop esi
+  loc_007136E9: mov fs:[00000000h], ecx
+  loc_007136F0: pop ebx
+  loc_007136F1: mov esp, ebp
+  loc_007136F3: pop ebp
+  loc_007136F4: retn 0008h
+End Sub
+
+Public Property Get Ignored(arg_C) '713700
+  loc_00713700: push ebp
+  loc_00713701: mov ebp, esp
+  loc_00713703: sub esp, 0000000Ch
+  loc_00713706: push 00412856h ; __vbaExceptHandler
+  loc_0071370B: mov eax, fs:[00000000h]
+  loc_00713711: push eax
+  loc_00713712: mov fs:[00000000h], esp
+  loc_00713719: sub esp, 0000000Ch
+  loc_0071371C: push ebx
+  loc_0071371D: push esi
+  loc_0071371E: push edi
+  loc_0071371F: mov var_C, esp
+  loc_00713722: mov var_8, 00411210h
+  loc_00713729: xor edi, edi
+  loc_0071372B: mov var_4, edi
+  loc_0071372E: mov esi, Me
+  loc_00713731: push esi
+  loc_00713732: mov eax, [esi]
+  loc_00713734: call [eax+00000004h]
+  loc_00713737: mov cx, [esi+00000040h]
+  loc_0071373B: mov var_18, edi
+  loc_0071373E: mov var_18, ecx
+  loc_00713741: mov eax, Me
+  loc_00713744: push eax
+  loc_00713745: mov edx, [eax]
+  loc_00713747: call [edx+00000008h]
+  loc_0071374A: mov eax, arg_C
+  loc_0071374D: mov cx, var_18
+  loc_00713751: mov [eax], cx
+  loc_00713754: mov eax, var_4
+  loc_00713757: mov ecx, var_14
+  loc_0071375A: pop edi
+  loc_0071375B: pop esi
+  loc_0071375C: mov fs:[00000000h], ecx
+  loc_00713763: pop ebx
+  loc_00713764: mov esp, ebp
+  loc_00713766: pop ebp
+  loc_00713767: retn 0008h
+End Sub
+
+Public Property Let Ignored(vNewValue) '713770
+  loc_00713770: push ebp
+  loc_00713771: mov ebp, esp
+  loc_00713773: sub esp, 0000000Ch
+  loc_00713776: push 00412856h ; __vbaExceptHandler
+  loc_0071377B: mov eax, fs:[00000000h]
+  loc_00713781: push eax
+  loc_00713782: mov fs:[00000000h], esp
+  loc_00713789: sub esp, 00000008h
+  loc_0071378C: push ebx
+  loc_0071378D: push esi
+  loc_0071378E: push edi
+  loc_0071378F: mov var_C, esp
+  loc_00713792: mov var_8, 00411218h
+  loc_00713799: mov var_4, 00000000h
+  loc_007137A0: mov esi, Me
+  loc_007137A3: push esi
+  loc_007137A4: mov eax, [esi]
+  loc_007137A6: call [eax+00000004h]
+  loc_007137A9: mov cx, vNewValue
+  loc_007137AD: mov [esi+00000040h], cx
+  loc_007137B1: mov eax, Me
+  loc_007137B4: push eax
+  loc_007137B5: mov edx, [eax]
+  loc_007137B7: call [edx+00000008h]
+  loc_007137BA: mov eax, var_4
+  loc_007137BD: mov ecx, var_14
+  loc_007137C0: pop edi
+  loc_007137C1: pop esi
+  loc_007137C2: mov fs:[00000000h], ecx
+  loc_007137C9: pop ebx
+  loc_007137CA: mov esp, ebp
+  loc_007137CC: pop ebp
+  loc_007137CD: retn 0008h
+End Sub

Src Code/BBIMSession.cls

@@ -0,0 +1,356 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "BBIMSession"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+
+
+Public Property Let SessionName(vData) '7143F0
+  loc_007143F0: push ebp
+  loc_007143F1: mov ebp, esp
+  loc_007143F3: sub esp, 0000000Ch
+  loc_007143F6: push 00412856h ; __vbaExceptHandler
+  loc_007143FB: mov eax, fs:[00000000h]
+  loc_00714401: push eax
+  loc_00714402: mov fs:[00000000h], esp
+  loc_00714409: sub esp, 0000000Ch
+  loc_0071440C: push ebx
+  loc_0071440D: push esi
+  loc_0071440E: push edi
+  loc_0071440F: mov var_C, esp
+  loc_00714412: mov var_8, 004112E8h
+  loc_00714419: xor edi, edi
+  loc_0071441B: mov var_4, edi
+  loc_0071441E: mov esi, Me
+  loc_00714421: push esi
+  loc_00714422: mov eax, [esi]
+  loc_00714424: call [eax+00000004h]
+  loc_00714427: mov edx, vData
+  loc_0071442A: mov var_18, edi
+  loc_0071442D: mov edi, [00401310h] ; __vbaStrCopy
+  loc_00714433: lea ecx, var_18
+  loc_00714436: call edi
+  loc_00714438: mov edx, var_18
+  loc_0071443B: lea ecx, [esi+0000003Ch]
+  loc_0071443E: call edi
+  loc_00714440: push 0071444Fh
+  loc_00714445: lea ecx, var_18
+  loc_00714448: call [00401430h] ; __vbaFreeStr
+  loc_0071444E: ret
+  loc_0071444F: mov eax, Me
+  loc_00714452: push eax
+  loc_00714453: mov ecx, [eax]
+  loc_00714455: call [ecx+00000008h]
+  loc_00714458: mov eax, var_4
+  loc_0071445B: mov ecx, var_14
+  loc_0071445E: pop edi
+  loc_0071445F: pop esi
+  loc_00714460: mov fs:[00000000h], ecx
+  loc_00714467: pop ebx
+  loc_00714468: mov esp, ebp
+  loc_0071446A: pop ebp
+  loc_0071446B: retn 0008h
+End Sub
+
+Public Property Get SessionName(arg_C) '714470
+  loc_00714470: push ebp
+  loc_00714471: mov ebp, esp
+  loc_00714473: sub esp, 0000000Ch
+  loc_00714476: push 00412856h ; __vbaExceptHandler
+  loc_0071447B: mov eax, fs:[00000000h]
+  loc_00714481: push eax
+  loc_00714482: mov fs:[00000000h], esp
+  loc_00714489: sub esp, 0000000Ch
+  loc_0071448C: push ebx
+  loc_0071448D: push esi
+  loc_0071448E: push edi
+  loc_0071448F: mov var_C, esp
+  loc_00714492: mov var_8, 004112F8h
+  loc_00714499: xor edi, edi
+  loc_0071449B: mov var_4, edi
+  loc_0071449E: mov esi, Me
+  loc_007144A1: push esi
+  loc_007144A2: mov eax, [esi]
+  loc_007144A4: call [eax+00000004h]
+  loc_007144A7: mov ecx, arg_C
+  loc_007144AA: mov var_18, edi
+  loc_007144AD: mov [ecx], edi
+  loc_007144AF: mov edx, [esi+0000003Ch]
+  loc_007144B2: lea ecx, var_18
+  loc_007144B5: call [00401310h] ; __vbaStrCopy
+  loc_007144BB: push 007144CDh
+  loc_007144C0: jmp 007144CCh
+  loc_007144C2: lea ecx, var_18
+  loc_007144C5: call [00401430h] ; __vbaFreeStr
+  loc_007144CB: ret
+  loc_007144CC: ret
+  loc_007144CD: mov eax, Me
+  loc_007144D0: push eax
+  loc_007144D1: mov edx, [eax]
+  loc_007144D3: call [edx+00000008h]
+  loc_007144D6: mov eax, arg_C
+  loc_007144D9: mov ecx, var_18
+  loc_007144DC: mov [eax], ecx
+  loc_007144DE: mov eax, var_4
+  loc_007144E1: mov ecx, var_14
+  loc_007144E4: pop edi
+  loc_007144E5: pop esi
+  loc_007144E6: mov fs:[00000000h], ecx
+  loc_007144ED: pop ebx
+  loc_007144EE: mov esp, ebp
+  loc_007144F0: pop ebp
+  loc_007144F1: retn 0008h
+End Sub
+
+Public Property Set SessionForm(vData) '714500
+  loc_00714500: push ebp
+  loc_00714501: mov ebp, esp
+  loc_00714503: sub esp, 0000000Ch
+  loc_00714506: push 00412856h ; __vbaExceptHandler
+  loc_0071450B: mov eax, fs:[00000000h]
+  loc_00714511: push eax
+  loc_00714512: mov fs:[00000000h], esp
+  loc_00714519: sub esp, 0000000Ch
+  loc_0071451C: push ebx
+  loc_0071451D: push esi
+  loc_0071451E: push edi
+  loc_0071451F: mov var_C, esp
+  loc_00714522: mov var_8, 00411308h
+  loc_00714529: xor edi, edi
+  loc_0071452B: mov var_4, edi
+  loc_0071452E: mov esi, Me
+  loc_00714531: push esi
+  loc_00714532: mov eax, [esi]
+  loc_00714534: call [eax+00000004h]
+  loc_00714537: mov ecx, vData
+  loc_0071453A: lea edx, var_18
+  loc_0071453D: mov var_18, edi
+  loc_00714540: mov edi, [00401130h] ; __vbaObjSetAddref
+  loc_00714546: push ecx
+  loc_00714547: push edx
+  loc_00714548: call edi
+  loc_0071454A: mov eax, var_18
+  loc_0071454D: add esi, 00000038h
+  loc_00714550: push eax
+  loc_00714551: push esi
+  loc_00714552: call edi
+  loc_00714554: push 00714563h
+  loc_00714559: lea ecx, var_18
+  loc_0071455C: call [0040142Ch] ; __vbaFreeObj
+  loc_00714562: ret
+  loc_00714563: mov eax, Me
+  loc_00714566: push eax
+  loc_00714567: mov ecx, [eax]
+  loc_00714569: call [ecx+00000008h]
+  loc_0071456C: mov eax, var_4
+  loc_0071456F: mov ecx, var_14
+  loc_00714572: pop edi
+  loc_00714573: pop esi
+  loc_00714574: mov fs:[00000000h], ecx
+  loc_0071457B: pop ebx
+  loc_0071457C: mov esp, ebp
+  loc_0071457E: pop ebp
+  loc_0071457F: retn 0008h
+End Sub
+
+Public Property Get SessionForm(arg_C) '714590
+  loc_00714590: push ebp
+  loc_00714591: mov ebp, esp
+  loc_00714593: sub esp, 0000000Ch
+  loc_00714596: push 00412856h ; __vbaExceptHandler
+  loc_0071459B: mov eax, fs:[00000000h]
+  loc_007145A1: push eax
+  loc_007145A2: mov fs:[00000000h], esp
+  loc_007145A9: sub esp, 0000000Ch
+  loc_007145AC: push ebx
+  loc_007145AD: push esi
+  loc_007145AE: push edi
+  loc_007145AF: mov var_C, esp
+  loc_007145B2: mov var_8, 00411318h
+  loc_007145B9: xor edi, edi
+  loc_007145BB: mov var_4, edi
+  loc_007145BE: mov esi, Me
+  loc_007145C1: push esi
+  loc_007145C2: mov eax, [esi]
+  loc_007145C4: call [eax+00000004h]
+  loc_007145C7: mov ecx, arg_C
+  loc_007145CA: lea eax, var_18
+  loc_007145CD: mov var_18, edi
+  loc_007145D0: mov [ecx], edi
+  loc_007145D2: mov edx, [esi+00000038h]
+  loc_007145D5: push edx
+  loc_007145D6: push eax
+  loc_007145D7: call [00401130h] ; __vbaObjSetAddref
+  loc_007145DD: push 007145EFh
+  loc_007145E2: jmp 007145EEh
+  loc_007145E4: lea ecx, var_18
+  loc_007145E7: call [0040142Ch] ; __vbaFreeObj
+  loc_007145ED: ret
+  loc_007145EE: ret
+  loc_007145EF: mov eax, Me
+  loc_007145F2: push eax
+  loc_007145F3: mov ecx, [eax]
+  loc_007145F5: call [ecx+00000008h]
+  loc_007145F8: mov edx, arg_C
+  loc_007145FB: mov eax, var_18
+  loc_007145FE: mov [edx], eax
+  loc_00714600: mov eax, var_4
+  loc_00714603: mov ecx, var_14
+  loc_00714606: pop edi
+  loc_00714607: pop esi
+  loc_00714608: mov fs:[00000000h], ecx
+  loc_0071460F: pop ebx
+  loc_00714610: mov esp, ebp
+  loc_00714612: pop ebp
+  loc_00714613: retn 0008h
+End Sub
+
+Public Property Set SessionObject(vData) '714690
+  loc_00714690: push ebp
+  loc_00714691: mov ebp, esp
+  loc_00714693: sub esp, 0000000Ch
+  loc_00714696: push 00412856h ; __vbaExceptHandler
+  loc_0071469B: mov eax, fs:[00000000h]
+  loc_007146A1: push eax
+  loc_007146A2: mov fs:[00000000h], esp
+  loc_007146A9: sub esp, 0000000Ch
+  loc_007146AC: push ebx
+  loc_007146AD: push esi
+  loc_007146AE: push edi
+  loc_007146AF: mov var_C, esp
+  loc_007146B2: mov var_8, 00411330h
+  loc_007146B9: xor edi, edi
+  loc_007146BB: mov var_4, edi
+  loc_007146BE: mov esi, Me
+  loc_007146C1: push esi
+  loc_007146C2: mov eax, [esi]
+  loc_007146C4: call [eax+00000004h]
+  loc_007146C7: mov ecx, vData
+  loc_007146CA: lea edx, var_18
+  loc_007146CD: mov var_18, edi
+  loc_007146D0: mov edi, [00401130h] ; __vbaObjSetAddref
+  loc_007146D6: push ecx
+  loc_007146D7: push edx
+  loc_007146D8: call edi
+  loc_007146DA: mov eax, var_18
+  loc_007146DD: add esi, 00000034h
+  loc_007146E0: push eax
+  loc_007146E1: push esi
+  loc_007146E2: call edi
+  loc_007146E4: push 007146F3h
+  loc_007146E9: lea ecx, var_18
+  loc_007146EC: call [0040142Ch] ; __vbaFreeObj
+  loc_007146F2: ret
+  loc_007146F3: mov eax, Me
+  loc_007146F6: push eax
+  loc_007146F7: mov ecx, [eax]
+  loc_007146F9: call [ecx+00000008h]
+  loc_007146FC: mov eax, var_4
+  loc_007146FF: mov ecx, var_14
+  loc_00714702: pop edi
+  loc_00714703: pop esi
+  loc_00714704: mov fs:[00000000h], ecx
+  loc_0071470B: pop ebx
+  loc_0071470C: mov esp, ebp
+  loc_0071470E: pop ebp
+  loc_0071470F: retn 0008h
+End Sub
+
+Public Property Get SessionObject(arg_C) '714720
+  loc_00714720: push ebp
+  loc_00714721: mov ebp, esp
+  loc_00714723: sub esp, 0000000Ch
+  loc_00714726: push 00412856h ; __vbaExceptHandler
+  loc_0071472B: mov eax, fs:[00000000h]
+  loc_00714731: push eax
+  loc_00714732: mov fs:[00000000h], esp
+  loc_00714739: sub esp, 0000000Ch
+  loc_0071473C: push ebx
+  loc_0071473D: push esi
+  loc_0071473E: push edi
+  loc_0071473F: mov var_C, esp
+  loc_00714742: mov var_8, 00411340h
+  loc_00714749: xor edi, edi
+  loc_0071474B: mov var_4, edi
+  loc_0071474E: mov esi, Me
+  loc_00714751: push esi
+  loc_00714752: mov eax, [esi]
+  loc_00714754: call [eax+00000004h]
+  loc_00714757: mov ecx, arg_C
+  loc_0071475A: lea eax, var_18
+  loc_0071475D: mov var_18, edi
+  loc_00714760: mov [ecx], edi
+  loc_00714762: mov edx, [esi+00000034h]
+  loc_00714765: push edx
+  loc_00714766: push eax
+  loc_00714767: call [00401130h] ; __vbaObjSetAddref
+  loc_0071476D: push 0071477Fh
+  loc_00714772: jmp 0071477Eh
+  loc_00714774: lea ecx, var_18
+  loc_00714777: call [0040142Ch] ; __vbaFreeObj
+  loc_0071477D: ret
+  loc_0071477E: ret
+  loc_0071477F: mov eax, Me
+  loc_00714782: push eax
+  loc_00714783: mov ecx, [eax]
+  loc_00714785: call [ecx+00000008h]
+  loc_00714788: mov edx, arg_C
+  loc_0071478B: mov eax, var_18
+  loc_0071478E: mov [edx], eax
+  loc_00714790: mov eax, var_4
+  loc_00714793: mov ecx, var_14
+  loc_00714796: pop edi
+  loc_00714797: pop esi
+  loc_00714798: mov fs:[00000000h], ecx
+  loc_0071479F: pop ebx
+  loc_007147A0: mov esp, ebp
+  loc_007147A2: pop ebp
+  loc_007147A3: retn 0008h
+End Sub
+
+Private Sub Proc_66_6_714620
+  loc_00714620: push ebp
+  loc_00714621: mov ebp, esp
+  loc_00714623: sub esp, 0000000Ch
+  loc_00714626: push 00412856h ; __vbaExceptHandler
+  loc_0071462B: mov eax, fs:[00000000h]
+  loc_00714631: push eax
+  loc_00714632: mov fs:[00000000h], esp
+  loc_00714639: sub esp, 00000008h
+  loc_0071463C: push ebx
+  loc_0071463D: push esi
+  loc_0071463E: push edi
+  loc_0071463F: mov var_C, esp
+  loc_00714642: mov var_8, 00411328h
+  loc_00714649: mov eax, Me
+  loc_0071464C: mov ecx, eax
+  loc_0071464E: and ecx, 00000001h
+  loc_00714651: mov var_4, ecx
+  loc_00714654: and al, FEh
+  loc_00714656: push eax
+  loc_00714657: mov Me, eax
+  loc_0071465A: mov edx, [eax]
+  loc_0071465C: call [edx+00000004h]
+  loc_0071465F: mov var_4, 00000000h
+  loc_00714666: mov eax, Me
+  loc_00714669: push eax
+  loc_0071466A: mov ecx, [eax]
+  loc_0071466C: call [ecx+00000008h]
+  loc_0071466F: mov eax, var_4
+  loc_00714672: mov ecx, var_14
+  loc_00714675: pop edi
+  loc_00714676: pop esi
+  loc_00714677: mov fs:[00000000h], ecx
+  loc_0071467E: pop ebx
+  loc_0071467F: mov esp, ebp
+  loc_00714681: pop ebp
+  loc_00714682: retn 0004h
+End Sub

Src Code/BBIMSessions.cls

@@ -0,0 +1,836 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "BBIMSessions"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+
+
+Public Function Add(objSession, frmSessionForm, sKey) '7147B0
+  loc_007147B0: push ebp
+  loc_007147B1: mov ebp, esp
+  loc_007147B3: sub esp, 00000014h
+  loc_007147B6: push 00412856h ; __vbaExceptHandler
+  loc_007147BB: mov eax, fs:[00000000h]
+  loc_007147C1: push eax
+  loc_007147C2: mov fs:[00000000h], esp
+  loc_007147C9: sub esp, 000000B0h
+  loc_007147CF: push ebx
+  loc_007147D0: push esi
+  loc_007147D1: push edi
+  loc_007147D2: mov var_14, esp
+  loc_007147D5: mov var_10, 00411350h
+  loc_007147DC: xor esi, esi
+  loc_007147DE: mov var_C, esi
+  loc_007147E1: mov var_8, esi
+  loc_007147E4: mov ebx, Me
+  loc_007147E7: mov eax, [ebx]
+  loc_007147E9: push ebx
+  loc_007147EA: call [eax+00000004h]
+  loc_007147ED: mov var_20, esi
+  loc_007147F0: mov var_24, esi
+  loc_007147F3: mov var_28, esi
+  loc_007147F6: mov var_2C, esi
+  loc_007147F9: mov var_3C, esi
+  loc_007147FC: mov var_4C, esi
+  loc_007147FF: mov var_5C, esi
+  loc_00714802: mov var_6C, esi
+  loc_00714805: mov var_7C, esi
+  loc_00714808: mov var_8C, esi
+  loc_0071480E: mov ecx, arg_18
+  loc_00714811: mov [ecx], esi
+  loc_00714813: push 00000001h
+  loc_00714815: call [00401124h] ; __vbaOnError
+  loc_0071481B: push esi
+  loc_0071481C: mov edi, objSession
+  loc_0071481F: mov edx, [edi]
+  loc_00714821: push edx
+  loc_00714822: call [00401238h] ; __vbaObjIs
+  loc_00714828: mov dx, ax
+  loc_0071482B: neg dx
+  loc_0071482E: sbb edx, edx
+  loc_00714830: inc edx
+  loc_00714831: push esi
+  loc_00714832: mov eax, frmSessionForm
+  loc_00714835: mov ecx, [eax]
+  loc_00714837: push ecx
+  loc_00714838: mov var_C8, edx
+  loc_0071483E: call [00401238h] ; __vbaObjIs
+  loc_00714844: neg ax
+  loc_00714847: sbb eax, eax
+  loc_00714849: inc eax
+  loc_0071484A: mov edx, var_C8
+  loc_00714850: test eax, edx
+  loc_00714852: jz 00714B41h
+  loc_00714858: push 004140D4h
+  loc_0071485D: call [0040122Ch] ; __vbaNew
+  loc_00714863: push eax
+  loc_00714864: lea eax, var_24
+  loc_00714867: push eax
+  loc_00714868: call [00401128h] ; __vbaObjSet
+  loc_0071486E: mov ecx, var_24
+  loc_00714871: mov edx, [ecx]
+  loc_00714873: mov eax, [edi]
+  loc_00714875: push eax
+  loc_00714876: lea ecx, var_2C
+  loc_00714879: push ecx
+  loc_0071487A: mov esi, [00401130h] ; __vbaObjSetAddref
+  loc_00714880: mov var_CC, edx
+  loc_00714886: call __vbaObjSetAddref
+  loc_00714888: push eax
+  loc_00714889: mov edx, var_24
+  loc_0071488C: push edx
+  loc_0071488D: mov eax, var_CC
+  loc_00714893: call [eax+0000002Ch]
+  loc_00714896: fnclex
+  loc_00714898: test eax, eax
+  loc_0071489A: jge 007148AEh
+  loc_0071489C: push 0000002Ch
+  loc_0071489E: push 0047276Ch
+  loc_007148A3: mov ecx, var_24
+  loc_007148A6: push ecx
+  loc_007148A7: push eax
+  loc_007148A8: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007148AE: lea ecx, var_2C
+  loc_007148B1: call [0040142Ch] ; __vbaFreeObj
+  loc_007148B7: mov edx, var_24
+  loc_007148BA: mov edi, [edx]
+  loc_007148BC: mov eax, frmSessionForm
+  loc_007148BF: mov ecx, [eax]
+  loc_007148C1: push ecx
+  loc_007148C2: lea edx, var_2C
+  loc_007148C5: push edx
+  loc_007148C6: call __vbaObjSetAddref
+  loc_007148C8: push eax
+  loc_007148C9: mov eax, var_24
+  loc_007148CC: push eax
+  loc_007148CD: call [edi+00000024h]
+  loc_007148D0: fnclex
+  loc_007148D2: test eax, eax
+  loc_007148D4: jge 007148E8h
+  loc_007148D6: push 00000024h
+  loc_007148D8: push 0047276Ch
+  loc_007148DD: mov ecx, var_24
+  loc_007148E0: push ecx
+  loc_007148E1: push eax
+  loc_007148E2: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007148E8: lea ecx, var_2C
+  loc_007148EB: call [0040142Ch] ; __vbaFreeObj
+  loc_007148F1: mov eax, var_24
+  loc_007148F4: mov edx, [eax]
+  loc_007148F6: mov edi, sKey
+  loc_007148F9: mov ecx, [edi]
+  loc_007148FB: push ecx
+  loc_007148FC: push eax
+  loc_007148FD: call [edx+0000001Ch]
+  loc_00714900: fnclex
+  loc_00714902: test eax, eax
+  loc_00714904: jge 00714918h
+  loc_00714906: push 0000001Ch
+  loc_00714908: push 0047276Ch
+  loc_0071490D: mov edx, var_24
+  loc_00714910: push edx
+  loc_00714911: push eax
+  loc_00714912: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00714918: mov eax, [edi]
+  loc_0071491A: push eax
+  loc_0071491B: call [00401044h] ; __vbaLenBstr
+  loc_00714921: test eax, eax
+  loc_00714923: mov ecx, 80020004h
+  loc_00714928: jnz 007149CEh
+  loc_0071492E: mov var_54, ecx
+  loc_00714931: mov eax, 0000000Ah
+  loc_00714936: mov var_5C, eax
+  loc_00714939: mov var_44, ecx
+  loc_0071493C: mov var_4C, eax
+  loc_0071493F: mov var_34, ecx
+  loc_00714942: mov var_3C, eax
+  loc_00714945: mov ecx, var_24
+  loc_00714948: push ecx
+  loc_00714949: lea edx, var_2C
+  loc_0071494C: push edx
+  loc_0071494D: call __vbaObjSetAddref
+  loc_0071494F: lea eax, var_2C
+  loc_00714952: mov var_74, eax
+  loc_00714955: mov var_7C, 00004009h
+  loc_0071495C: mov eax, [ebx+00000034h]
+  loc_0071495F: mov ecx, [eax]
+  loc_00714961: lea edx, var_5C
+  loc_00714964: push edx
+  loc_00714965: lea edx, var_4C
+  loc_00714968: push edx
+  loc_00714969: lea edx, var_3C
+  loc_0071496C: push edx
+  loc_0071496D: lea edx, var_7C
+  loc_00714970: push edx
+  loc_00714971: push eax
+  loc_00714972: call [ecx+00000020h]
+  loc_00714975: fnclex
+  loc_00714977: test eax, eax
+  loc_00714979: jge 0071498Dh
+  loc_0071497B: push 00000020h
+  loc_0071497D: push 00447B68h
+  loc_00714982: mov ecx, [ebx+00000034h]
+  loc_00714985: push ecx
+  loc_00714986: push eax
+  loc_00714987: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0071498D: push 0047276Ch
+  loc_00714992: mov edx, var_2C
+  loc_00714995: push edx
+  loc_00714996: mov edi, [004013C4h] ; __vbaCastObj
+  loc_0071499C: call edi
+  loc_0071499E: push eax
+  loc_0071499F: lea eax, var_24
+  loc_007149A2: push eax
+  loc_007149A3: call [00401128h] ; __vbaObjSet
+  loc_007149A9: lea ecx, var_2C
+  loc_007149AC: call [0040142Ch] ; __vbaFreeObj
+  loc_007149B2: lea ecx, var_5C
+  loc_007149B5: push ecx
+  loc_007149B6: lea edx, var_4C
+  loc_007149B9: push edx
+  loc_007149BA: lea eax, var_3C
+  loc_007149BD: push eax
+  loc_007149BE: push 00000003h
+  loc_007149C0: call [00401050h] ; __vbaFreeVarList
+  loc_007149C6: add esp, 00000010h
+  loc_007149C9: jmp 00714A72h
+  loc_007149CE: mov var_44, ecx
+  loc_007149D1: mov eax, 0000000Ah
+  loc_007149D6: mov var_4C, eax
+  loc_007149D9: mov var_34, ecx
+  loc_007149DC: mov var_3C, eax
+  loc_007149DF: mov var_84, edi
+  loc_007149E5: mov var_8C, 00004008h
+  loc_007149EF: mov ecx, var_24
+  loc_007149F2: push ecx
+  loc_007149F3: lea edx, var_2C
+  loc_007149F6: push edx
+  loc_007149F7: call __vbaObjSetAddref
+  loc_007149F9: lea eax, var_2C
+  loc_007149FC: mov var_74, eax
+  loc_007149FF: mov var_7C, 00004009h
+  loc_00714A06: mov eax, [ebx+00000034h]
+  loc_00714A09: mov ecx, [eax]
+  loc_00714A0B: lea edx, var_4C
+  loc_00714A0E: push edx
+  loc_00714A0F: lea edx, var_3C
+  loc_00714A12: push edx
+  loc_00714A13: lea edx, var_8C
+  loc_00714A19: push edx
+  loc_00714A1A: lea edx, var_7C
+  loc_00714A1D: push edx
+  loc_00714A1E: push eax
+  loc_00714A1F: call [ecx+00000020h]
+  loc_00714A22: fnclex
+  loc_00714A24: test eax, eax
+  loc_00714A26: jge 00714A3Ah
+  loc_00714A28: push 00000020h
+  loc_00714A2A: push 00447B68h
+  loc_00714A2F: mov ecx, [ebx+00000034h]
+  loc_00714A32: push ecx
+  loc_00714A33: push eax
+  loc_00714A34: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00714A3A: push 0047276Ch
+  loc_00714A3F: mov edx, var_2C
+  loc_00714A42: push edx
+  loc_00714A43: mov edi, [004013C4h] ; __vbaCastObj
+  loc_00714A49: call edi
+  loc_00714A4B: push eax
+  loc_00714A4C: lea eax, var_24
+  loc_00714A4F: push eax
+  loc_00714A50: call [00401128h] ; __vbaObjSet
+  loc_00714A56: lea ecx, var_2C
+  loc_00714A59: call [0040142Ch] ; __vbaFreeObj
+  loc_00714A5F: lea ecx, var_4C
+  loc_00714A62: push ecx
+  loc_00714A63: lea edx, var_3C
+  loc_00714A66: push edx
+  loc_00714A67: push 00000002h
+  loc_00714A69: call [00401050h] ; __vbaFreeVarList
+  loc_00714A6F: add esp, 0000000Ch
+  loc_00714A72: mov eax, var_24
+  loc_00714A75: push eax
+  loc_00714A76: lea ecx, var_20
+  loc_00714A79: push ecx
+  loc_00714A7A: call __vbaObjSetAddref
+  loc_00714A7C: push 0047276Ch
+  loc_00714A81: push 00000000h
+  loc_00714A83: call edi
+  loc_00714A85: push eax
+  loc_00714A86: lea edx, var_24
+  loc_00714A89: push edx
+  loc_00714A8A: call [00401128h] ; __vbaObjSet
+  loc_00714A90: jmp 00714B41h
+  loc_00714A95: mov ecx, 80020004h
+  loc_00714A9A: mov var_64, ecx
+  loc_00714A9D: mov eax, 0000000Ah
+  loc_00714AA2: mov var_6C, eax
+  loc_00714AA5: mov var_54, ecx
+  loc_00714AA8: mov var_5C, eax
+  loc_00714AAB: mov var_44, ecx
+  loc_00714AAE: mov var_4C, eax
+  loc_00714AB1: call [00401340h] ; rtcErrObj
+  loc_00714AB7: push eax
+  loc_00714AB8: lea eax, var_2C
+  loc_00714ABB: push eax
+  loc_00714ABC: call [00401128h] ; __vbaObjSet
+  loc_00714AC2: mov esi, eax
+  loc_00714AC4: mov ecx, [esi]
+  loc_00714AC6: lea edx, var_28
+  loc_00714AC9: push edx
+  loc_00714ACA: push esi
+  loc_00714ACB: call [ecx+0000002Ch]
+  loc_00714ACE: fnclex
+  loc_00714AD0: test eax, eax
+  loc_00714AD2: jge 00714AE3h
+  loc_00714AD4: push 0000002Ch
+  loc_00714AD6: push 00443540h
+  loc_00714ADB: push esi
+  loc_00714ADC: push eax
+  loc_00714ADD: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00714AE3: push 00474FC8h ; "Error adding new session: "
+  loc_00714AE8: mov eax, var_28
+  loc_00714AEB: push eax
+  loc_00714AEC: call [00401098h] ; __vbaStrCat
+  loc_00714AF2: mov var_34, eax
+  loc_00714AF5: mov var_3C, 00000008h
+  loc_00714AFC: lea ecx, var_6C
+  loc_00714AFF: push ecx
+  loc_00714B00: lea edx, var_5C
+  loc_00714B03: push edx
+  loc_00714B04: lea eax, var_4C
+  loc_00714B07: push eax
+  loc_00714B08: push 00000000h
+  loc_00714B0A: lea ecx, var_3C
+  loc_00714B0D: push ecx
+  loc_00714B0E: call [00401120h] ; rtcMsgBox
+  loc_00714B14: lea ecx, var_28
+  loc_00714B17: call [00401430h] ; __vbaFreeStr
+  loc_00714B1D: lea ecx, var_2C
+  loc_00714B20: call [0040142Ch] ; __vbaFreeObj
+  loc_00714B26: lea edx, var_6C
+  loc_00714B29: push edx
+  loc_00714B2A: lea eax, var_5C
+  loc_00714B2D: push eax
+  loc_00714B2E: lea ecx, var_4C
+  loc_00714B31: push ecx
+  loc_00714B32: lea edx, var_3C
+  loc_00714B35: push edx
+  loc_00714B36: push 00000004h
+  loc_00714B38: call [00401050h] ; __vbaFreeVarList
+  loc_00714B3E: add esp, 00000014h
+  loc_00714B41: call [00401114h] ; __vbaExitProc
+  loc_00714B47: push 00714B95h
+  loc_00714B4C: jmp 00714B8Bh
+  loc_00714B4E: test var_C, 04h
+  loc_00714B52: jz 00714B5Dh
+  loc_00714B54: lea ecx, var_20
+  loc_00714B57: call [0040142Ch] ; __vbaFreeObj
+  loc_00714B5D: lea ecx, var_28
+  loc_00714B60: call [00401430h] ; __vbaFreeStr
+  loc_00714B66: lea ecx, var_2C
+  loc_00714B69: call [0040142Ch] ; __vbaFreeObj
+  loc_00714B6F: lea eax, var_6C
+  loc_00714B72: push eax
+  loc_00714B73: lea ecx, var_5C
+  loc_00714B76: push ecx
+  loc_00714B77: lea edx, var_4C
+  loc_00714B7A: push edx
+  loc_00714B7B: lea eax, var_3C
+  loc_00714B7E: push eax
+  loc_00714B7F: push 00000004h
+  loc_00714B81: call [00401050h] ; __vbaFreeVarList
+  loc_00714B87: add esp, 00000014h
+  loc_00714B8A: ret
+  loc_00714B8B: lea ecx, var_24
+  loc_00714B8E: call [0040142Ch] ; __vbaFreeObj
+  loc_00714B94: ret
+  loc_00714B95: mov eax, Me
+  loc_00714B98: mov ecx, [eax]
+  loc_00714B9A: push eax
+  loc_00714B9B: call [ecx+00000008h]
+  loc_00714B9E: mov edx, arg_18
+  loc_00714BA1: mov eax, var_20
+  loc_00714BA4: mov [edx], eax
+  loc_00714BA6: mov eax, var_C
+  loc_00714BA9: mov ecx, var_1C
+  loc_00714BAC: mov fs:[00000000h], ecx
+  loc_00714BB3: pop edi
+  loc_00714BB4: pop esi
+  loc_00714BB5: pop ebx
+  loc_00714BB6: mov esp, ebp
+  loc_00714BB8: pop ebp
+  loc_00714BB9: retn 0014h
+End Function
+
+Public Property Get Item(vntIndexKey) '714BC0
+  loc_00714BC0: push ebp
+  loc_00714BC1: mov ebp, esp
+  loc_00714BC3: sub esp, 00000018h
+  loc_00714BC6: push 00412856h ; __vbaExceptHandler
+  loc_00714BCB: mov eax, fs:[00000000h]
+  loc_00714BD1: push eax
+  loc_00714BD2: mov fs:[00000000h], esp
+  loc_00714BD9: mov eax, 00000044h
+  loc_00714BDE: call 00412850h ; __vbaChkstk
+  loc_00714BE3: push ebx
+  loc_00714BE4: push esi
+  loc_00714BE5: push edi
+  loc_00714BE6: mov var_18, esp
+  loc_00714BE9: mov var_14, 00411378h ; "-"
+  loc_00714BF0: mov var_10, 00000000h
+  loc_00714BF7: mov var_C, 00000000h
+  loc_00714BFE: mov eax, Me
+  loc_00714C01: mov ecx, [eax]
+  loc_00714C03: mov edx, Me
+  loc_00714C06: push edx
+  loc_00714C07: call [ecx+00000004h]
+  loc_00714C0A: mov var_4, 00000001h
+  loc_00714C11: mov eax, arg_10
+  loc_00714C14: mov [eax], 00000000h
+  loc_00714C1A: mov var_4, 00000002h
+  loc_00714C21: push FFFFFFFFh
+  loc_00714C23: call [00401124h] ; __vbaOnError
+  loc_00714C29: mov var_4, 00000003h
+  loc_00714C30: lea ecx, var_38
+  loc_00714C33: push ecx
+  loc_00714C34: mov edx, vntIndexKey
+  loc_00714C37: push edx
+  loc_00714C38: mov eax, Me
+  loc_00714C3B: mov ecx, [eax+00000034h]
+  loc_00714C3E: mov edx, Me
+  loc_00714C41: mov eax, [edx+00000034h]
+  loc_00714C44: mov edx, [eax]
+  loc_00714C46: push ecx
+  loc_00714C47: call [edx+0000001Ch]
+  loc_00714C4A: fnclex
+  loc_00714C4C: mov var_40, eax
+  loc_00714C4F: cmp var_40, 00000000h
+  loc_00714C53: jge 00714C72h
+  loc_00714C55: push 0000001Ch
+  loc_00714C57: push 00447B68h
+  loc_00714C5C: mov eax, Me
+  loc_00714C5F: mov ecx, [eax+00000034h]
+  loc_00714C62: push ecx
+  loc_00714C63: mov edx, var_40
+  loc_00714C66: push edx
+  loc_00714C67: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00714C6D: mov var_60, eax
+  loc_00714C70: jmp 00714C79h
+  loc_00714C72: mov var_60, 00000000h
+  loc_00714C79: push 0047276Ch
+  loc_00714C7E: lea eax, var_38
+  loc_00714C81: push eax
+  loc_00714C82: call [004011F8h] ; __vbaCastObjVar
+  loc_00714C88: push eax
+  loc_00714C89: lea ecx, var_24
+  loc_00714C8C: push ecx
+  loc_00714C8D: call [00401128h] ; __vbaObjSet
+  loc_00714C93: lea ecx, var_38
+  loc_00714C96: call [00401030h] ; __vbaFreeVar
+  loc_00714C9C: mov var_4, 00000004h
+  loc_00714CA3: call [00401340h] ; rtcErrObj
+  loc_00714CA9: push eax
+  loc_00714CAA: lea edx, var_28
+  loc_00714CAD: push edx
+  loc_00714CAE: call [00401128h] ; __vbaObjSet
+  loc_00714CB4: mov var_40, eax
+  loc_00714CB7: lea eax, var_3C
+  loc_00714CBA: push eax
+  loc_00714CBB: mov ecx, var_40
+  loc_00714CBE: mov edx, [ecx]
+  loc_00714CC0: mov eax, var_40
+  loc_00714CC3: push eax
+  loc_00714CC4: call [edx+0000001Ch]
+  loc_00714CC7: fnclex
+  loc_00714CC9: mov var_44, eax
+  loc_00714CCC: cmp var_44, 00000000h
+  loc_00714CD0: jge 00714CECh
+  loc_00714CD2: push 0000001Ch
+  loc_00714CD4: push 00443540h
+  loc_00714CD9: mov ecx, var_40
+  loc_00714CDC: push ecx
+  loc_00714CDD: mov edx, var_44
+  loc_00714CE0: push edx
+  loc_00714CE1: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00714CE7: mov var_64, eax
+  loc_00714CEA: jmp 00714CF3h
+  loc_00714CEC: mov var_64, 00000000h
+  loc_00714CF3: xor eax, eax
+  loc_00714CF5: cmp var_3C, 00000000h
+  loc_00714CF9: setnz al
+  loc_00714CFC: neg eax
+  loc_00714CFE: mov var_48, ax
+  loc_00714D02: lea ecx, var_28
+  loc_00714D05: call [0040142Ch] ; __vbaFreeObj
+  loc_00714D0B: movsx ecx, var_48
+  loc_00714D0F: test ecx, ecx
+  loc_00714D11: jz 00714D32h
+  loc_00714D13: mov var_4, 00000005h
+  loc_00714D1A: push 0047276Ch
+  loc_00714D1F: push 00000000h
+  loc_00714D21: call [004013C4h] ; __vbaCastObj
+  loc_00714D27: push eax
+  loc_00714D28: lea edx, var_24
+  loc_00714D2B: push edx
+  loc_00714D2C: call [00401128h] ; __vbaObjSet
+  loc_00714D32: push 00714D60h
+  loc_00714D37: jmp 00714D5Fh
+  loc_00714D39: mov eax, var_10
+  loc_00714D3C: and eax, 00000004h
+  loc_00714D3F: test eax, eax
+  loc_00714D41: jz 00714D4Ch
+  loc_00714D43: lea ecx, var_24
+  loc_00714D46: call [0040142Ch] ; __vbaFreeObj
+  loc_00714D4C: lea ecx, var_28
+  loc_00714D4F: call [0040142Ch] ; __vbaFreeObj
+  loc_00714D55: lea ecx, var_38
+  loc_00714D58: call [00401030h] ; __vbaFreeVar
+  loc_00714D5E: ret
+  loc_00714D5F: ret
+  loc_00714D60: mov ecx, Me
+  loc_00714D63: mov edx, [ecx]
+  loc_00714D65: mov eax, Me
+  loc_00714D68: push eax
+  loc_00714D69: call [edx+00000008h]
+  loc_00714D6C: mov ecx, arg_10
+  loc_00714D6F: mov edx, var_24
+  loc_00714D72: mov [ecx], edx
+  loc_00714D74: mov eax, var_10
+  loc_00714D77: mov ecx, var_20
+  loc_00714D7A: mov fs:[00000000h], ecx
+  loc_00714D81: pop edi
+  loc_00714D82: pop esi
+  loc_00714D83: pop ebx
+  loc_00714D84: mov esp, ebp
+  loc_00714D86: pop ebp
+  loc_00714D87: retn 000Ch
+End Sub
+
+Public Property Get Count(arg_C) '714D90
+  loc_00714D90: push ebp
+  loc_00714D91: mov ebp, esp
+  loc_00714D93: sub esp, 0000000Ch
+  loc_00714D96: push 00412856h ; __vbaExceptHandler
+  loc_00714D9B: mov eax, fs:[00000000h]
+  loc_00714DA1: push eax
+  loc_00714DA2: mov fs:[00000000h], esp
+  loc_00714DA9: sub esp, 00000014h
+  loc_00714DAC: push ebx
+  loc_00714DAD: push esi
+  loc_00714DAE: push edi
+  loc_00714DAF: mov var_C, esp
+  loc_00714DB2: mov var_8, 004113B8h
+  loc_00714DB9: xor edi, edi
+  loc_00714DBB: mov var_4, edi
+  loc_00714DBE: mov esi, Me
+  loc_00714DC1: push esi
+  loc_00714DC2: mov eax, [esi]
+  loc_00714DC4: call [eax+00000004h]
+  loc_00714DC7: mov eax, [esi+00000034h]
+  loc_00714DCA: lea edx, var_1C
+  loc_00714DCD: mov var_1C, edi
+  loc_00714DD0: push edx
+  loc_00714DD1: mov ecx, [eax]
+  loc_00714DD3: push eax
+  loc_00714DD4: mov var_18, edi
+  loc_00714DD7: call [ecx+00000024h]
+  loc_00714DDA: cmp eax, edi
+  loc_00714DDC: fnclex
+  loc_00714DDE: jge 00714DF2h
+  loc_00714DE0: mov ecx, [esi+00000034h]
+  loc_00714DE3: push 00000024h
+  loc_00714DE5: push 00447B68h
+  loc_00714DEA: push ecx
+  loc_00714DEB: push eax
+  loc_00714DEC: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00714DF2: mov edx, var_1C
+  loc_00714DF5: mov var_18, edx
+  loc_00714DF8: mov eax, Me
+  loc_00714DFB: push eax
+  loc_00714DFC: mov ecx, [eax]
+  loc_00714DFE: call [ecx+00000008h]
+  loc_00714E01: mov edx, arg_C
+  loc_00714E04: mov eax, var_18
+  loc_00714E07: mov [edx], eax
+  loc_00714E09: mov eax, var_4
+  loc_00714E0C: mov ecx, var_14
+  loc_00714E0F: pop edi
+  loc_00714E10: pop esi
+  loc_00714E11: mov fs:[00000000h], ecx
+  loc_00714E18: pop ebx
+  loc_00714E19: mov esp, ebp
+  loc_00714E1B: pop ebp
+  loc_00714E1C: retn 0008h
+End Sub
+
+Public Sub Remove(vntIndexKey) '714E20
+  loc_00714E20: push ebp
+  loc_00714E21: mov ebp, esp
+  loc_00714E23: sub esp, 00000018h
+  loc_00714E26: push 00412856h ; __vbaExceptHandler
+  loc_00714E2B: mov eax, fs:[00000000h]
+  loc_00714E31: push eax
+  loc_00714E32: mov fs:[00000000h], esp
+  loc_00714E39: mov eax, 0000001Ch
+  loc_00714E3E: call 00412850h ; __vbaChkstk
+  loc_00714E43: push ebx
+  loc_00714E44: push esi
+  loc_00714E45: push edi
+  loc_00714E46: mov var_18, esp
+  loc_00714E49: mov var_14, 004113C0h
+  loc_00714E50: mov var_10, 00000000h
+  loc_00714E57: mov var_C, 00000000h
+  loc_00714E5E: mov eax, Me
+  loc_00714E61: mov ecx, [eax]
+  loc_00714E63: mov edx, Me
+  loc_00714E66: push edx
+  loc_00714E67: call [ecx+00000004h]
+  loc_00714E6A: mov var_4, 00000001h
+  loc_00714E71: mov var_4, 00000002h
+  loc_00714E78: push FFFFFFFFh
+  loc_00714E7A: call [00401124h] ; __vbaOnError
+  loc_00714E80: mov var_4, 00000003h
+  loc_00714E87: mov eax, vntIndexKey
+  loc_00714E8A: push eax
+  loc_00714E8B: mov ecx, Me
+  loc_00714E8E: mov edx, [ecx+00000034h]
+  loc_00714E91: mov eax, Me
+  loc_00714E94: mov ecx, [eax+00000034h]
+  loc_00714E97: mov eax, [ecx]
+  loc_00714E99: push edx
+  loc_00714E9A: call [eax+00000028h]
+  loc_00714E9D: fnclex
+  loc_00714E9F: mov var_24, eax
+  loc_00714EA2: cmp var_24, 00000000h
+  loc_00714EA6: jge 00714EC5h
+  loc_00714EA8: push 00000028h
+  loc_00714EAA: push 00447B68h
+  loc_00714EAF: mov ecx, Me
+  loc_00714EB2: mov edx, [ecx+00000034h]
+  loc_00714EB5: push edx
+  loc_00714EB6: mov eax, var_24
+  loc_00714EB9: push eax
+  loc_00714EBA: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00714EC0: mov var_3C, eax
+  loc_00714EC3: jmp 00714ECCh
+  loc_00714EC5: mov var_3C, 00000000h
+  loc_00714ECC: mov ecx, Me
+  loc_00714ECF: mov edx, [ecx]
+  loc_00714ED1: mov eax, Me
+  loc_00714ED4: push eax
+  loc_00714ED5: call [edx+00000008h]
+  loc_00714ED8: mov eax, var_10
+  loc_00714EDB: mov ecx, var_20
+  loc_00714EDE: mov fs:[00000000h], ecx
+  loc_00714EE5: pop edi
+  loc_00714EE6: pop esi
+  loc_00714EE7: pop ebx
+  loc_00714EE8: mov esp, ebp
+  loc_00714EEA: pop ebp
+  loc_00714EEB: retn 0008h
+End Sub
+
+Public Property Get NewEnum(arg_C) '714EF0
+  loc_00714EF0: push ebp
+  loc_00714EF1: mov ebp, esp
+  loc_00714EF3: sub esp, 0000000Ch
+  loc_00714EF6: push 00412856h ; __vbaExceptHandler
+  loc_00714EFB: mov eax, fs:[00000000h]
+  loc_00714F01: push eax
+  loc_00714F02: mov fs:[00000000h], esp
+  loc_00714F09: sub esp, 00000014h
+  loc_00714F0C: push ebx
+  loc_00714F0D: push esi
+  loc_00714F0E: push edi
+  loc_00714F0F: mov var_C, esp
+  loc_00714F12: mov var_8, 004113F0h
+  loc_00714F19: xor edi, edi
+  loc_00714F1B: mov var_4, edi
+  loc_00714F1E: mov esi, Me
+  loc_00714F21: push esi
+  loc_00714F22: mov eax, [esi]
+  loc_00714F24: call [eax+00000004h]
+  loc_00714F27: mov ecx, arg_C
+  loc_00714F2A: mov var_18, edi
+  loc_00714F2D: mov var_1C, edi
+  loc_00714F30: mov [ecx], edi
+  loc_00714F32: mov eax, [esi+00000034h]
+  loc_00714F35: lea ecx, var_1C
+  loc_00714F38: mov edx, [eax]
+  loc_00714F3A: push ecx
+  loc_00714F3B: push eax
+  loc_00714F3C: call [edx+0000002Ch]
+  loc_00714F3F: cmp eax, edi
+  loc_00714F41: fnclex
+  loc_00714F43: jge 00714F57h
+  loc_00714F45: mov edx, [esi+00000034h]
+  loc_00714F48: push 0000002Ch
+  loc_00714F4A: push 00447B68h
+  loc_00714F4F: push edx
+  loc_00714F50: push eax
+  loc_00714F51: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00714F57: mov eax, var_1C
+  loc_00714F5A: push 00447558h
+  loc_00714F5F: push eax
+  loc_00714F60: call [004013C4h] ; __vbaCastObj
+  loc_00714F66: lea ecx, var_18
+  loc_00714F69: push eax
+  loc_00714F6A: push ecx
+  loc_00714F6B: call [00401128h] ; __vbaObjSet
+  loc_00714F71: lea ecx, var_1C
+  loc_00714F74: call [0040142Ch] ; __vbaFreeObj
+  loc_00714F7A: push 00714F9Bh
+  loc_00714F7F: jmp 00714F9Ah
+  loc_00714F81: test var_4, 04h
+  loc_00714F85: jz 00714F90h
+  loc_00714F87: lea ecx, var_18
+  loc_00714F8A: call [0040142Ch] ; __vbaFreeObj
+  loc_00714F90: lea ecx, var_1C
+  loc_00714F93: call [0040142Ch] ; __vbaFreeObj
+  loc_00714F99: ret
+  loc_00714F9A: ret
+  loc_00714F9B: mov eax, Me
+  loc_00714F9E: push eax
+  loc_00714F9F: mov edx, [eax]
+  loc_00714FA1: call [edx+00000008h]
+  loc_00714FA4: mov eax, arg_C
+  loc_00714FA7: mov ecx, var_18
+  loc_00714FAA: mov [eax], ecx
+  loc_00714FAC: mov eax, var_4
+  loc_00714FAF: mov ecx, var_14
+  loc_00714FB2: pop edi
+  loc_00714FB3: pop esi
+  loc_00714FB4: mov fs:[00000000h], ecx
+  loc_00714FBB: pop ebx
+  loc_00714FBC: mov esp, ebp
+  loc_00714FBE: pop ebp
+  loc_00714FBF: retn 0008h
+End Sub
+
+Private Sub Proc_67_5_714FD0
+  loc_00714FD0: push ebp
+  loc_00714FD1: mov ebp, esp
+  loc_00714FD3: sub esp, 0000000Ch
+  loc_00714FD6: push 00412856h ; __vbaExceptHandler
+  loc_00714FDB: mov eax, fs:[00000000h]
+  loc_00714FE1: push eax
+  loc_00714FE2: mov fs:[00000000h], esp
+  loc_00714FE9: sub esp, 0000000Ch
+  loc_00714FEC: push ebx
+  loc_00714FED: push esi
+  loc_00714FEE: push edi
+  loc_00714FEF: mov var_C, esp
+  loc_00714FF2: mov var_8, 00411400h
+  loc_00714FF9: mov esi, Me
+  loc_00714FFC: mov eax, esi
+  loc_00714FFE: and eax, 00000001h
+  loc_00715001: mov var_4, eax
+  loc_00715004: and esi, FFFFFFFEh
+  loc_00715007: push esi
+  loc_00715008: mov Me, esi
+  loc_0071500B: mov ecx, [esi]
+  loc_0071500D: call [ecx+00000004h]
+  loc_00715010: xor edi, edi
+  loc_00715012: push 00447B78h
+  loc_00715017: mov var_18, edi
+  loc_0071501A: call [0040122Ch] ; __vbaNew
+  loc_00715020: lea edx, var_18
+  loc_00715023: push eax
+  loc_00715024: push edx
+  loc_00715025: call [00401128h] ; __vbaObjSet
+  loc_0071502B: add esi, 00000034h
+  loc_0071502E: push eax
+  loc_0071502F: push esi
+  loc_00715030: call [00401130h] ; __vbaObjSetAddref
+  loc_00715036: lea ecx, var_18
+  loc_00715039: call [0040142Ch] ; __vbaFreeObj
+  loc_0071503F: mov var_4, edi
+  loc_00715042: push 00715054h
+  loc_00715047: jmp 00715053h
+  loc_00715049: lea ecx, var_18
+  loc_0071504C: call [0040142Ch] ; __vbaFreeObj
+  loc_00715052: ret
+  loc_00715053: ret
+  loc_00715054: mov eax, Me
+  loc_00715057: push eax
+  loc_00715058: mov ecx, [eax]
+  loc_0071505A: call [ecx+00000008h]
+  loc_0071505D: mov eax, var_4
+  loc_00715060: mov ecx, var_14
+  loc_00715063: pop edi
+  loc_00715064: pop esi
+  loc_00715065: mov fs:[00000000h], ecx
+  loc_0071506C: pop ebx
+  loc_0071506D: mov esp, ebp
+  loc_0071506F: pop ebp
+  loc_00715070: retn 0004h
+End Sub
+
+Private Sub Proc_67_6_715080
+  loc_00715080: push ebp
+  loc_00715081: mov ebp, esp
+  loc_00715083: sub esp, 0000000Ch
+  loc_00715086: push 00412856h ; __vbaExceptHandler
+  loc_0071508B: mov eax, fs:[00000000h]
+  loc_00715091: push eax
+  loc_00715092: mov fs:[00000000h], esp
+  loc_00715099: sub esp, 0000000Ch
+  loc_0071509C: push ebx
+  loc_0071509D: push esi
+  loc_0071509E: push edi
+  loc_0071509F: mov var_C, esp
+  loc_007150A2: mov var_8, 00411410h
+  loc_007150A9: mov esi, Me
+  loc_007150AC: mov eax, esi
+  loc_007150AE: and eax, 00000001h
+  loc_007150B1: mov var_4, eax
+  loc_007150B4: and esi, FFFFFFFEh
+  loc_007150B7: push esi
+  loc_007150B8: mov Me, esi
+  loc_007150BB: mov ecx, [esi]
+  loc_007150BD: call [ecx+00000004h]
+  loc_007150C0: xor edi, edi
+  loc_007150C2: push 00447B68h
+  loc_007150C7: push edi
+  loc_007150C8: mov var_18, edi
+  loc_007150CB: call [004013C4h] ; __vbaCastObj
+  loc_007150D1: lea edx, var_18
+  loc_007150D4: push eax
+  loc_007150D5: push edx
+  loc_007150D6: call [00401128h] ; __vbaObjSet
+  loc_007150DC: add esi, 00000034h
+  loc_007150DF: push eax
+  loc_007150E0: push esi
+  loc_007150E1: call [00401130h] ; __vbaObjSetAddref
+  loc_007150E7: lea ecx, var_18
+  loc_007150EA: call [0040142Ch] ; __vbaFreeObj
+  loc_007150F0: mov var_4, edi
+  loc_007150F3: push 00715105h
+  loc_007150F8: jmp 00715104h
+  loc_007150FA: lea ecx, var_18
+  loc_007150FD: call [0040142Ch] ; __vbaFreeObj
+  loc_00715103: ret
+  loc_00715104: ret
+  loc_00715105: mov eax, Me
+  loc_00715108: push eax
+  loc_00715109: mov ecx, [eax]
+  loc_0071510B: call [ecx+00000008h]
+  loc_0071510E: mov eax, var_4
+  loc_00715111: mov ecx, var_14
+  loc_00715114: pop edi
+  loc_00715115: pop esi
+  loc_00715116: mov fs:[00000000h], ecx
+  loc_0071511D: pop ebx
+  loc_0071511E: mov esp, ebp
+  loc_00715120: pop ebp
+  loc_00715121: retn 0004h
+End Sub

Src Code/CCalendarVBPeriod.cls

@@ -0,0 +1,188 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "CCalendarVBPeriod"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+
+
+Public Property Get Name(Index As Integer) '706220
+  loc_00706220: push ebp
+  loc_00706221: mov ebp, esp
+  loc_00706223: sub esp, 0000000Ch
+  loc_00706226: push 00412856h ; __vbaExceptHandler
+  loc_0070622B: mov eax, fs:[00000000h]
+  loc_00706231: push eax
+  loc_00706232: mov fs:[00000000h], esp
+  loc_00706239: sub esp, 0000000Ch
+  loc_0070623C: push ebx
+  loc_0070623D: push esi
+  loc_0070623E: push edi
+  loc_0070623F: mov var_C, esp
+  loc_00706242: mov var_8, 00410510h
+  loc_00706249: xor edi, edi
+  loc_0070624B: mov var_4, edi
+  loc_0070624E: mov esi, Me
+  loc_00706251: push esi
+  loc_00706252: mov eax, [esi]
+  loc_00706254: call [eax+00000004h]
+  loc_00706257: mov ecx, Index
+  loc_0070625A: mov var_18, edi
+  loc_0070625D: mov [ecx], edi
+  loc_0070625F: mov edx, [esi+00000038h]
+  loc_00706262: lea ecx, var_18
+  loc_00706265: call [00401310h] ; __vbaStrCopy
+  loc_0070626B: push 0070627Dh
+  loc_00706270: jmp 0070627Ch
+  loc_00706272: lea ecx, var_18
+  loc_00706275: call [00401430h] ; __vbaFreeStr
+  loc_0070627B: ret
+  loc_0070627C: ret
+  loc_0070627D: mov eax, Me
+  loc_00706280: push eax
+  loc_00706281: mov edx, [eax]
+  loc_00706283: call [edx+00000008h]
+  loc_00706286: mov eax, Index
+  loc_00706289: mov ecx, var_18
+  loc_0070628C: mov [eax], ecx
+  loc_0070628E: mov eax, var_4
+  loc_00706291: mov ecx, var_14
+  loc_00706294: pop edi
+  loc_00706295: pop esi
+  loc_00706296: mov fs:[00000000h], ecx
+  loc_0070629D: pop ebx
+  loc_0070629E: mov esp, ebp
+  loc_007062A0: pop ebp
+  loc_007062A1: retn 0008h
+End Sub
+
+Public Property Let Name(sName) '7062B0
+  loc_007062B0: push ebp
+  loc_007062B1: mov ebp, esp
+  loc_007062B3: sub esp, 0000000Ch
+  loc_007062B6: push 00412856h ; __vbaExceptHandler
+  loc_007062BB: mov eax, fs:[00000000h]
+  loc_007062C1: push eax
+  loc_007062C2: mov fs:[00000000h], esp
+  loc_007062C9: sub esp, 0000000Ch
+  loc_007062CC: push ebx
+  loc_007062CD: push esi
+  loc_007062CE: push edi
+  loc_007062CF: mov var_C, esp
+  loc_007062D2: mov var_8, 00410520h
+  loc_007062D9: xor edi, edi
+  loc_007062DB: mov var_4, edi
+  loc_007062DE: mov esi, Me
+  loc_007062E1: push esi
+  loc_007062E2: mov eax, [esi]
+  loc_007062E4: call [eax+00000004h]
+  loc_007062E7: mov edx, sName
+  loc_007062EA: mov var_18, edi
+  loc_007062ED: mov edi, [00401310h] ; __vbaStrCopy
+  loc_007062F3: lea ecx, var_18
+  loc_007062F6: call edi
+  loc_007062F8: mov edx, var_18
+  loc_007062FB: lea ecx, [esi+00000038h]
+  loc_007062FE: call edi
+  loc_00706300: push 0070630Fh
+  loc_00706305: lea ecx, var_18
+  loc_00706308: call [00401430h] ; __vbaFreeStr
+  loc_0070630E: ret
+  loc_0070630F: mov eax, Me
+  loc_00706312: push eax
+  loc_00706313: mov ecx, [eax]
+  loc_00706315: call [ecx+00000008h]
+  loc_00706318: mov eax, var_4
+  loc_0070631B: mov ecx, var_14
+  loc_0070631E: pop edi
+  loc_0070631F: pop esi
+  loc_00706320: mov fs:[00000000h], ecx
+  loc_00706327: pop ebx
+  loc_00706328: mov esp, ebp
+  loc_0070632A: pop ebp
+  loc_0070632B: retn 0008h
+End Sub
+
+Public Property Get NumberOfWeeks(arg_C) '706330
+  loc_00706330: push ebp
+  loc_00706331: mov ebp, esp
+  loc_00706333: sub esp, 0000000Ch
+  loc_00706336: push 00412856h ; __vbaExceptHandler
+  loc_0070633B: mov eax, fs:[00000000h]
+  loc_00706341: push eax
+  loc_00706342: mov fs:[00000000h], esp
+  loc_00706349: sub esp, 0000000Ch
+  loc_0070634C: push ebx
+  loc_0070634D: push esi
+  loc_0070634E: push edi
+  loc_0070634F: mov var_C, esp
+  loc_00706352: mov var_8, 00410530h
+  loc_00706359: xor edi, edi
+  loc_0070635B: mov var_4, edi
+  loc_0070635E: mov esi, Me
+  loc_00706361: push esi
+  loc_00706362: mov eax, [esi]
+  loc_00706364: call [eax+00000004h]
+  loc_00706367: mov cx, [esi+00000034h]
+  loc_0070636B: mov var_18, edi
+  loc_0070636E: mov var_18, ecx
+  loc_00706371: mov eax, Me
+  loc_00706374: push eax
+  loc_00706375: mov edx, [eax]
+  loc_00706377: call [edx+00000008h]
+  loc_0070637A: mov eax, arg_C
+  loc_0070637D: mov cx, var_18
+  loc_00706381: mov [eax], cx
+  loc_00706384: mov eax, var_4
+  loc_00706387: mov ecx, var_14
+  loc_0070638A: pop edi
+  loc_0070638B: pop esi
+  loc_0070638C: mov fs:[00000000h], ecx
+  loc_00706393: pop ebx
+  loc_00706394: mov esp, ebp
+  loc_00706396: pop ebp
+  loc_00706397: retn 0008h
+End Sub
+
+Public Property Let NumberOfWeeks(nNumberOfWeeks) '7063A0
+  loc_007063A0: push ebp
+  loc_007063A1: mov ebp, esp
+  loc_007063A3: sub esp, 0000000Ch
+  loc_007063A6: push 00412856h ; __vbaExceptHandler
+  loc_007063AB: mov eax, fs:[00000000h]
+  loc_007063B1: push eax
+  loc_007063B2: mov fs:[00000000h], esp
+  loc_007063B9: sub esp, 00000008h
+  loc_007063BC: push ebx
+  loc_007063BD: push esi
+  loc_007063BE: push edi
+  loc_007063BF: mov var_C, esp
+  loc_007063C2: mov var_8, 00410538h
+  loc_007063C9: mov var_4, 00000000h
+  loc_007063D0: mov esi, Me
+  loc_007063D3: push esi
+  loc_007063D4: mov eax, [esi]
+  loc_007063D6: call [eax+00000004h]
+  loc_007063D9: mov cx, nNumberOfWeeks
+  loc_007063DD: mov [esi+00000034h], cx
+  loc_007063E1: mov eax, Me
+  loc_007063E4: push eax
+  loc_007063E5: mov edx, [eax]
+  loc_007063E7: call [edx+00000008h]
+  loc_007063EA: mov eax, var_4
+  loc_007063ED: mov ecx, var_14
+  loc_007063F0: pop edi
+  loc_007063F1: pop esi
+  loc_007063F2: mov fs:[00000000h], ecx
+  loc_007063F9: pop ebx
+  loc_007063FA: mov esp, ebp
+  loc_007063FC: pop ebp
+  loc_007063FD: retn 0008h
+End Sub

Src Code/CCalendarVBPeriods.cls

@@ -0,0 +1,958 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "CCalendarVBPeriods"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+
+
+Public Function Add(sName, nNumberOfWeeks) '7064B0
+  loc_007064B0: push ebp
+  loc_007064B1: mov ebp, esp
+  loc_007064B3: sub esp, 00000018h
+  loc_007064B6: push 00412856h ; __vbaExceptHandler
+  loc_007064BB: mov eax, fs:[00000000h]
+  loc_007064C1: push eax
+  loc_007064C2: mov fs:[00000000h], esp
+  loc_007064C9: mov eax, 00000118h
+  loc_007064CE: call 00412850h ; __vbaChkstk
+  loc_007064D3: push ebx
+  loc_007064D4: push esi
+  loc_007064D5: push edi
+  loc_007064D6: mov var_18, esp
+  loc_007064D9: mov var_14, 00410550h ; "/"
+  loc_007064E0: mov var_10, 00000000h
+  loc_007064E7: mov var_C, 00000000h
+  loc_007064EE: mov eax, Me
+  loc_007064F1: mov ecx, [eax]
+  loc_007064F3: mov edx, Me
+  loc_007064F6: push edx
+  loc_007064F7: call [ecx+00000004h]
+  loc_007064FA: mov var_4, 00000001h
+  loc_00706501: mov edx, sName
+  loc_00706504: lea ecx, var_24
+  loc_00706507: call [00401310h] ; __vbaStrCopy
+  loc_0070650D: mov eax, arg_14
+  loc_00706510: mov [eax], 00000000h
+  loc_00706516: mov var_4, 00000002h
+  loc_0070651D: push FFFFFFFFh
+  loc_0070651F: call [00401124h] ; __vbaOnError
+  loc_00706525: mov var_4, 00000003h
+  loc_0070652C: cmp var_34, 00000000h
+  loc_00706530: jnz 0070654Ch
+  loc_00706532: lea ecx, var_34
+  loc_00706535: push ecx
+  loc_00706536: push 004139ECh
+  loc_0070653B: call [004012FCh] ; __vbaNew2
+  loc_00706541: lea edx, var_34
+  loc_00706544: mov var_FC, edx
+  loc_0070654A: jmp 00706555h
+  loc_0070654C: lea eax, var_34
+  loc_0070654F: mov var_FC, eax
+  loc_00706555: mov ecx, var_FC
+  loc_0070655B: mov edx, [ecx]
+  loc_0070655D: mov var_C0, edx
+  loc_00706563: mov eax, var_24
+  loc_00706566: push eax
+  loc_00706567: mov ecx, var_C0
+  loc_0070656D: mov edx, [ecx]
+  loc_0070656F: mov eax, var_C0
+  loc_00706575: push eax
+  loc_00706576: call [edx+00000020h]
+  loc_00706579: fnclex
+  loc_0070657B: mov var_C4, eax
+  loc_00706581: cmp var_C4, 00000000h
+  loc_00706588: jge 007065ADh
+  loc_0070658A: push 00000020h
+  loc_0070658C: push 00446E9Ch
+  loc_00706591: mov ecx, var_C0
+  loc_00706597: push ecx
+  loc_00706598: mov edx, var_C4
+  loc_0070659E: push edx
+  loc_0070659F: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007065A5: mov var_100, eax
+  loc_007065AB: jmp 007065B7h
+  loc_007065AD: mov var_100, 00000000h
+  loc_007065B7: mov var_4, 00000004h
+  loc_007065BE: cmp var_34, 00000000h
+  loc_007065C2: jnz 007065DEh
+  loc_007065C4: lea eax, var_34
+  loc_007065C7: push eax
+  loc_007065C8: push 004139ECh
+  loc_007065CD: call [004012FCh] ; __vbaNew2
+  loc_007065D3: lea ecx, var_34
+  loc_007065D6: mov var_104, ecx
+  loc_007065DC: jmp 007065E7h
+  loc_007065DE: lea edx, var_34
+  loc_007065E1: mov var_104, edx
+  loc_007065E7: mov eax, var_104
+  loc_007065ED: mov ecx, [eax]
+  loc_007065EF: mov var_C0, ecx
+  loc_007065F5: mov dx, nNumberOfWeeks
+  loc_007065F9: push edx
+  loc_007065FA: mov eax, var_C0
+  loc_00706600: mov ecx, [eax]
+  loc_00706602: mov edx, var_C0
+  loc_00706608: push edx
+  loc_00706609: call [ecx+00000028h]
+  loc_0070660C: fnclex
+  loc_0070660E: mov var_C4, eax
+  loc_00706614: cmp var_C4, 00000000h
+  loc_0070661B: jge 00706640h
+  loc_0070661D: push 00000028h
+  loc_0070661F: push 00446E9Ch
+  loc_00706624: mov eax, var_C0
+  loc_0070662A: push eax
+  loc_0070662B: mov ecx, var_C4
+  loc_00706631: push ecx
+  loc_00706632: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00706638: mov var_108, eax
+  loc_0070663E: jmp 0070664Ah
+  loc_00706640: mov var_108, 00000000h
+  loc_0070664A: mov var_4, 00000005h
+  loc_00706651: mov var_50, 80020004h
+  loc_00706658: mov var_58, 0000000Ah
+  loc_0070665F: mov var_40, 80020004h
+  loc_00706666: mov var_48, 0000000Ah
+  loc_0070666D: lea edx, var_24
+  loc_00706670: mov var_90, edx
+  loc_00706676: mov var_98, 00004008h
+  loc_00706680: cmp var_34, 00000000h
+  loc_00706684: jnz 007066A0h
+  loc_00706686: lea eax, var_34
+  loc_00706689: push eax
+  loc_0070668A: push 004139ECh
+  loc_0070668F: call [004012FCh] ; __vbaNew2
+  loc_00706695: lea ecx, var_34
+  loc_00706698: mov var_10C, ecx
+  loc_0070669E: jmp 007066A9h
+  loc_007066A0: lea edx, var_34
+  loc_007066A3: mov var_10C, edx
+  loc_007066A9: mov eax, var_10C
+  loc_007066AF: mov ecx, [eax]
+  loc_007066B1: push ecx
+  loc_007066B2: lea edx, var_38
+  loc_007066B5: push edx
+  loc_007066B6: call [00401130h] ; __vbaObjSetAddref
+  loc_007066BC: lea eax, var_38
+  loc_007066BF: mov var_80, eax
+  loc_007066C2: mov var_88, 00004009h
+  loc_007066CC: lea ecx, var_58
+  loc_007066CF: push ecx
+  loc_007066D0: lea edx, var_48
+  loc_007066D3: push edx
+  loc_007066D4: lea eax, var_98
+  loc_007066DA: push eax
+  loc_007066DB: lea ecx, var_88
+  loc_007066E1: push ecx
+  loc_007066E2: mov edx, Me
+  loc_007066E5: mov eax, [edx+00000038h]
+  loc_007066E8: mov ecx, Me
+  loc_007066EB: mov edx, [ecx+00000038h]
+  loc_007066EE: mov ecx, [edx]
+  loc_007066F0: push eax
+  loc_007066F1: call [ecx+00000020h]
+  loc_007066F4: fnclex
+  loc_007066F6: mov var_C0, eax
+  loc_007066FC: cmp var_C0, 00000000h
+  loc_00706703: jge 00706728h
+  loc_00706705: push 00000020h
+  loc_00706707: push 00447B68h
+  loc_0070670C: mov edx, Me
+  loc_0070670F: mov eax, [edx+00000038h]
+  loc_00706712: push eax
+  loc_00706713: mov ecx, var_C0
+  loc_00706719: push ecx
+  loc_0070671A: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00706720: mov var_110, eax
+  loc_00706726: jmp 00706732h
+  loc_00706728: mov var_110, 00000000h
+  loc_00706732: push 00446E9Ch
+  loc_00706737: mov edx, var_38
+  loc_0070673A: push edx
+  loc_0070673B: call [004013C4h] ; __vbaCastObj
+  loc_00706741: push eax
+  loc_00706742: lea eax, var_34
+  loc_00706745: push eax
+  loc_00706746: call [00401128h] ; __vbaObjSet
+  loc_0070674C: lea ecx, var_38
+  loc_0070674F: call [0040142Ch] ; __vbaFreeObj
+  loc_00706755: lea ecx, var_58
+  loc_00706758: push ecx
+  loc_00706759: lea edx, var_48
+  loc_0070675C: push edx
+  loc_0070675D: push 00000002h
+  loc_0070675F: call [00401050h] ; __vbaFreeVarList
+  loc_00706765: add esp, 0000000Ch
+  loc_00706768: mov var_4, 00000006h
+  loc_0070676F: lea eax, var_BC
+  loc_00706775: push eax
+  loc_00706776: mov ecx, Me
+  loc_00706779: mov edx, [ecx+00000038h]
+  loc_0070677C: mov eax, Me
+  loc_0070677F: mov ecx, [eax+00000038h]
+  loc_00706782: mov eax, [ecx]
+  loc_00706784: push edx
+  loc_00706785: call [eax+00000024h]
+  loc_00706788: fnclex
+  loc_0070678A: mov var_C0, eax
+  loc_00706790: cmp var_C0, 00000000h
+  loc_00706797: jge 007067BCh
+  loc_00706799: push 00000024h
+  loc_0070679B: push 00447B68h
+  loc_007067A0: mov ecx, Me
+  loc_007067A3: mov edx, [ecx+00000038h]
+  loc_007067A6: push edx
+  loc_007067A7: mov eax, var_C0
+  loc_007067AD: push eax
+  loc_007067AE: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007067B4: mov var_114, eax
+  loc_007067BA: jmp 007067C6h
+  loc_007067BC: mov var_114, 00000000h
+  loc_007067C6: mov ecx, var_BC
+  loc_007067CC: call [004011E4h] ; __vbaI2I4
+  loc_007067D2: mov var_28, ax
+  loc_007067D6: mov var_4, 00000007h
+  loc_007067DD: push 00000001h
+  loc_007067DF: movsx ecx, var_28
+  loc_007067E3: push ecx
+  loc_007067E4: push 00000001h
+  loc_007067E6: push 00000002h
+  loc_007067E8: mov edx, Me
+  loc_007067EB: add edx, 00000034h
+  loc_007067EE: push edx
+  loc_007067EF: push 00000002h
+  loc_007067F1: push 00000080h
+  loc_007067F6: call [00401220h] ; __vbaRedim
+  loc_007067FC: add esp, 0000001Ch
+  loc_007067FF: mov var_4, 00000008h
+  loc_00706806: mov ax, var_28
+  loc_0070680A: mov var_E0, ax
+  loc_00706811: mov var_DC, 0001h
+  loc_0070681A: mov var_2C, 0001h
+  loc_00706820: jmp 00706837h
+  loc_00706822: mov cx, var_2C
+  loc_00706826: add cx, var_DC
+  loc_0070682D: jo 00706C3Fh
+  loc_00706833: mov var_2C, cx
+  loc_00706837: mov dx, var_2C
+  loc_0070683B: cmp dx, var_E0
+  loc_00706842: jg 00706B74h
+  loc_00706848: mov var_4, 00000009h
+  loc_0070684F: lea eax, var_2C
+  loc_00706852: mov var_80, eax
+  loc_00706855: mov var_88, 00004002h
+  loc_0070685F: lea ecx, var_48
+  loc_00706862: push ecx
+  loc_00706863: lea edx, var_88
+  loc_00706869: push edx
+  loc_0070686A: mov eax, Me
+  loc_0070686D: mov ecx, [eax+00000038h]
+  loc_00706870: mov edx, Me
+  loc_00706873: mov eax, [edx+00000038h]
+  loc_00706876: mov edx, [eax]
+  loc_00706878: push ecx
+  loc_00706879: call [edx+0000001Ch]
+  loc_0070687C: fnclex
+  loc_0070687E: mov var_C0, eax
+  loc_00706884: cmp var_C0, 00000000h
+  loc_0070688B: jge 007068B0h
+  loc_0070688D: push 0000001Ch
+  loc_0070688F: push 00447B68h
+  loc_00706894: mov eax, Me
+  loc_00706897: mov ecx, [eax+00000038h]
+  loc_0070689A: push ecx
+  loc_0070689B: mov edx, var_C0
+  loc_007068A1: push edx
+  loc_007068A2: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007068A8: mov var_118, eax
+  loc_007068AE: jmp 007068BAh
+  loc_007068B0: mov var_118, 00000000h
+  loc_007068BA: lea edx, var_48
+  loc_007068BD: lea ecx, var_D8
+  loc_007068C3: call [00401180h] ; __vbaVarZero
+  loc_007068C9: lea eax, var_D8
+  loc_007068CF: mov var_E4, eax
+  loc_007068D5: mov var_4, 0000000Ah
+  loc_007068DC: cmp var_2C, 0001h
+  loc_007068E1: jnz 00706975h
+  loc_007068E7: mov var_4, 0000000Bh
+  loc_007068EE: mov ecx, Me
+  loc_007068F1: cmp [ecx+00000034h], 00000000h
+  loc_007068F5: jz 0070694Fh
+  loc_007068F7: mov edx, Me
+  loc_007068FA: mov eax, [edx+00000034h]
+  loc_007068FD: cmp [eax], 0001h
+  loc_00706901: jnz 0070694Fh
+  loc_00706903: movsx ecx, var_2C
+  loc_00706907: mov edx, Me
+  loc_0070690A: mov eax, [edx+00000034h]
+  loc_0070690D: sub ecx, [eax+00000014h]
+  loc_00706910: mov var_C0, ecx
+  loc_00706916: mov ecx, Me
+  loc_00706919: mov edx, [ecx+00000034h]
+  loc_0070691C: mov eax, var_C0
+  loc_00706922: cmp eax, [edx+00000010h]
+  loc_00706925: jae 00706933h
+  loc_00706927: mov var_11C, 00000000h
+  loc_00706931: jmp 0070693Fh
+  loc_00706933: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_00706939: mov var_11C, eax
+  loc_0070693F: mov ecx, var_C0
+  loc_00706945: shl ecx, 01h
+  loc_00706947: mov var_120, ecx
+  loc_0070694D: jmp 0070695Bh
+  loc_0070694F: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_00706955: mov var_120, eax
+  loc_0070695B: mov edx, Me
+  loc_0070695E: mov eax, [edx+00000034h]
+  loc_00706961: mov ecx, [eax+0000000Ch]
+  loc_00706964: mov edx, var_120
+  loc_0070696A: mov [ecx+edx], 0000h
+  loc_00706970: jmp 00706B57h
+  loc_00706975: mov var_4, 0000000Dh
+  loc_0070697C: mov eax, Me
+  loc_0070697F: cmp [eax+00000034h], 00000000h
+  loc_00706983: jz 007069EAh
+  loc_00706985: mov ecx, Me
+  loc_00706988: mov edx, [ecx+00000034h]
+  loc_0070698B: cmp [edx], 0001h
+  loc_0070698F: jnz 007069EAh
+  loc_00706991: mov ax, var_2C
+  loc_00706995: sub ax, 0001h
+  loc_00706999: jo 00706C3Fh
+  loc_0070699F: movsx ecx, ax
+  loc_007069A2: mov edx, Me
+  loc_007069A5: mov eax, [edx+00000034h]
+  loc_007069A8: sub ecx, [eax+00000014h]
+  loc_007069AB: mov var_C4, ecx
+  loc_007069B1: mov ecx, Me
+  loc_007069B4: mov edx, [ecx+00000034h]
+  loc_007069B7: mov eax, var_C4
+  loc_007069BD: cmp eax, [edx+00000010h]
+  loc_007069C0: jae 007069CEh
+  loc_007069C2: mov var_124, 00000000h
+  loc_007069CC: jmp 007069DAh
+  loc_007069CE: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_007069D4: mov var_124, eax
+  loc_007069DA: mov ecx, var_C4
+  loc_007069E0: shl ecx, 01h
+  loc_007069E2: mov var_128, ecx
+  loc_007069E8: jmp 007069F6h
+  loc_007069EA: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_007069F0: mov var_128, eax
+  loc_007069F6: mov edx, Me
+  loc_007069F9: mov eax, [edx+00000034h]
+  loc_007069FC: mov ecx, [eax+0000000Ch]
+  loc_007069FF: mov edx, var_128
+  loc_00706A05: mov ax, [ecx+edx]
+  loc_00706A09: mov var_90, ax
+  loc_00706A10: mov var_98, 00000002h
+  loc_00706A1A: mov cx, var_2C
+  loc_00706A1E: sub cx, 0001h
+  loc_00706A22: jo 00706C3Fh
+  loc_00706A28: mov var_40, cx
+  loc_00706A2C: mov var_48, 00000002h
+  loc_00706A33: lea edx, var_58
+  loc_00706A36: push edx
+  loc_00706A37: lea eax, var_48
+  loc_00706A3A: push eax
+  loc_00706A3B: mov ecx, Me
+  loc_00706A3E: mov edx, [ecx+00000038h]
+  loc_00706A41: mov eax, Me
+  loc_00706A44: mov ecx, [eax+00000038h]
+  loc_00706A47: mov eax, [ecx]
+  loc_00706A49: push edx
+  loc_00706A4A: call [eax+0000001Ch]
+  loc_00706A4D: fnclex
+  loc_00706A4F: mov var_C8, eax
+  loc_00706A55: cmp var_C8, 00000000h
+  loc_00706A5C: jge 00706A81h
+  loc_00706A5E: push 0000001Ch
+  loc_00706A60: push 00447B68h
+  loc_00706A65: mov ecx, Me
+  loc_00706A68: mov edx, [ecx+00000038h]
+  loc_00706A6B: push edx
+  loc_00706A6C: mov eax, var_C8
+  loc_00706A72: push eax
+  loc_00706A73: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00706A79: mov var_12C, eax
+  loc_00706A7F: jmp 00706A8Bh
+  loc_00706A81: mov var_12C, 00000000h
+  loc_00706A8B: mov ecx, Me
+  loc_00706A8E: cmp [ecx+00000034h], 00000000h
+  loc_00706A92: jz 00706AECh
+  loc_00706A94: mov edx, Me
+  loc_00706A97: mov eax, [edx+00000034h]
+  loc_00706A9A: cmp [eax], 0001h
+  loc_00706A9E: jnz 00706AECh
+  loc_00706AA0: movsx ecx, var_2C
+  loc_00706AA4: mov edx, Me
+  loc_00706AA7: mov eax, [edx+00000034h]
+  loc_00706AAA: sub ecx, [eax+00000014h]
+  loc_00706AAD: mov var_C0, ecx
+  loc_00706AB3: mov ecx, Me
+  loc_00706AB6: mov edx, [ecx+00000034h]
+  loc_00706AB9: mov eax, var_C0
+  loc_00706ABF: cmp eax, [edx+00000010h]
+  loc_00706AC2: jae 00706AD0h
+  loc_00706AC4: mov var_130, 00000000h
+  loc_00706ACE: jmp 00706ADCh
+  loc_00706AD0: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_00706AD6: mov var_130, eax
+  loc_00706ADC: mov ecx, var_C0
+  loc_00706AE2: shl ecx, 01h
+  loc_00706AE4: mov var_134, ecx
+  loc_00706AEA: jmp 00706AF8h
+  loc_00706AEC: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_00706AF2: mov var_134, eax
+  loc_00706AF8: lea edx, var_98
+  loc_00706AFE: push edx
+  loc_00706AFF: push 00000000h
+  loc_00706B01: push 00447B88h ; "NumberOfWeeks"
+  loc_00706B06: lea eax, var_58
+  loc_00706B09: push eax
+  loc_00706B0A: lea ecx, var_68
+  loc_00706B0D: push ecx
+  loc_00706B0E: call [00401390h] ; __vbaVarLateMemCallLd
+  loc_00706B14: add esp, 00000010h
+  loc_00706B17: push eax
+  loc_00706B18: lea edx, var_78
+  loc_00706B1B: push edx
+  loc_00706B1C: call [0040135Ch] ; __vbaVarAdd
+  loc_00706B22: push eax
+  loc_00706B23: call [004012C0h] ; __vbaI2Var
+  loc_00706B29: mov ecx, Me
+  loc_00706B2C: mov edx, [ecx+00000034h]
+  loc_00706B2F: mov ecx, [edx+0000000Ch]
+  loc_00706B32: mov edx, var_134
+  loc_00706B38: mov [ecx+edx], ax
+  loc_00706B3C: lea eax, var_78
+  loc_00706B3F: push eax
+  loc_00706B40: lea ecx, var_68
+  loc_00706B43: push ecx
+  loc_00706B44: lea edx, var_58
+  loc_00706B47: push edx
+  loc_00706B48: lea eax, var_48
+  loc_00706B4B: push eax
+  loc_00706B4C: push 00000004h
+  loc_00706B4E: call [00401050h] ; __vbaFreeVarList
+  loc_00706B54: add esp, 00000014h
+  loc_00706B57: mov var_4, 0000000Fh
+  loc_00706B5E: mov var_E4, 00000000h
+  loc_00706B68: mov var_4, 00000010h
+  loc_00706B6F: jmp 00706822h
+  loc_00706B74: mov var_4, 00000011h
+  loc_00706B7B: cmp var_34, 00000000h
+  loc_00706B7F: jnz 00706B9Bh
+  loc_00706B81: lea ecx, var_34
+  loc_00706B84: push ecx
+  loc_00706B85: push 004139ECh
+  loc_00706B8A: call [004012FCh] ; __vbaNew2
+  loc_00706B90: lea edx, var_34
+  loc_00706B93: mov var_138, edx
+  loc_00706B99: jmp 00706BA4h
+  loc_00706B9B: lea eax, var_34
+  loc_00706B9E: mov var_138, eax
+  loc_00706BA4: mov ecx, var_138
+  loc_00706BAA: mov edx, [ecx]
+  loc_00706BAC: push edx
+  loc_00706BAD: lea eax, var_30
+  loc_00706BB0: push eax
+  loc_00706BB1: call [00401130h] ; __vbaObjSetAddref
+  loc_00706BB7: push 00706C15h
+  loc_00706BBC: jmp 00706BF6h
+  loc_00706BBE: mov ecx, var_10
+  loc_00706BC1: and ecx, 00000004h
+  loc_00706BC4: test ecx, ecx
+  loc_00706BC6: jz 00706BD1h
+  loc_00706BC8: lea ecx, var_30
+  loc_00706BCB: call [0040142Ch] ; __vbaFreeObj
+  loc_00706BD1: lea ecx, var_38
+  loc_00706BD4: call [0040142Ch] ; __vbaFreeObj
+  loc_00706BDA: lea edx, var_78
+  loc_00706BDD: push edx
+  loc_00706BDE: lea eax, var_68
+  loc_00706BE1: push eax
+  loc_00706BE2: lea ecx, var_58
+  loc_00706BE5: push ecx
+  loc_00706BE6: lea edx, var_48
+  loc_00706BE9: push edx
+  loc_00706BEA: push 00000004h
+  loc_00706BEC: call [00401050h] ; __vbaFreeVarList
+  loc_00706BF2: add esp, 00000014h
+  loc_00706BF5: ret
+  loc_00706BF6: lea ecx, var_D8
+  loc_00706BFC: call [00401030h] ; __vbaFreeVar
+  loc_00706C02: lea ecx, var_24
+  loc_00706C05: call [00401430h] ; __vbaFreeStr
+  loc_00706C0B: lea ecx, var_34
+  loc_00706C0E: call [0040142Ch] ; __vbaFreeObj
+  loc_00706C14: ret
+  loc_00706C15: mov eax, Me
+  loc_00706C18: mov ecx, [eax]
+  loc_00706C1A: mov edx, Me
+  loc_00706C1D: push edx
+  loc_00706C1E: call [ecx+00000008h]
+  loc_00706C21: mov eax, arg_14
+  loc_00706C24: mov ecx, var_30
+  loc_00706C27: mov [eax], ecx
+  loc_00706C29: mov eax, var_10
+  loc_00706C2C: mov ecx, var_20
+  loc_00706C2F: mov fs:[00000000h], ecx
+  loc_00706C36: pop edi
+  loc_00706C37: pop esi
+  loc_00706C38: pop ebx
+  loc_00706C39: mov esp, ebp
+  loc_00706C3B: pop ebp
+  loc_00706C3C: retn 0010h
+End Function
+
+Public Function NewEnum(arg_C) '706C50
+  loc_00706C50: push ebp
+  loc_00706C51: mov ebp, esp
+  loc_00706C53: sub esp, 0000000Ch
+  loc_00706C56: push 00412856h ; __vbaExceptHandler
+  loc_00706C5B: mov eax, fs:[00000000h]
+  loc_00706C61: push eax
+  loc_00706C62: mov fs:[00000000h], esp
+  loc_00706C69: sub esp, 00000014h
+  loc_00706C6C: push ebx
+  loc_00706C6D: push esi
+  loc_00706C6E: push edi
+  loc_00706C6F: mov var_C, esp
+  loc_00706C72: mov var_8, 004105B8h
+  loc_00706C79: xor edi, edi
+  loc_00706C7B: mov var_4, edi
+  loc_00706C7E: mov esi, Me
+  loc_00706C81: push esi
+  loc_00706C82: mov eax, [esi]
+  loc_00706C84: call [eax+00000004h]
+  loc_00706C87: mov ecx, arg_C
+  loc_00706C8A: mov var_18, edi
+  loc_00706C8D: mov var_1C, edi
+  loc_00706C90: mov [ecx], edi
+  loc_00706C92: mov eax, [esi+00000038h]
+  loc_00706C95: lea ecx, var_1C
+  loc_00706C98: mov edx, [eax]
+  loc_00706C9A: push ecx
+  loc_00706C9B: push eax
+  loc_00706C9C: call [edx+0000002Ch]
+  loc_00706C9F: cmp eax, edi
+  loc_00706CA1: fnclex
+  loc_00706CA3: jge 00706CB7h
+  loc_00706CA5: mov edx, [esi+00000038h]
+  loc_00706CA8: push 0000002Ch
+  loc_00706CAA: push 00447B68h
+  loc_00706CAF: push edx
+  loc_00706CB0: push eax
+  loc_00706CB1: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00706CB7: mov eax, var_1C
+  loc_00706CBA: push 00447558h
+  loc_00706CBF: push eax
+  loc_00706CC0: call [004013C4h] ; __vbaCastObj
+  loc_00706CC6: lea ecx, var_18
+  loc_00706CC9: push eax
+  loc_00706CCA: push ecx
+  loc_00706CCB: call [00401128h] ; __vbaObjSet
+  loc_00706CD1: lea ecx, var_1C
+  loc_00706CD4: call [0040142Ch] ; __vbaFreeObj
+  loc_00706CDA: push 00706CFBh
+  loc_00706CDF: jmp 00706CFAh
+  loc_00706CE1: test var_4, 04h
+  loc_00706CE5: jz 00706CF0h
+  loc_00706CE7: lea ecx, var_18
+  loc_00706CEA: call [0040142Ch] ; __vbaFreeObj
+  loc_00706CF0: lea ecx, var_1C
+  loc_00706CF3: call [0040142Ch] ; __vbaFreeObj
+  loc_00706CF9: ret
+  loc_00706CFA: ret
+  loc_00706CFB: mov eax, Me
+  loc_00706CFE: push eax
+  loc_00706CFF: mov edx, [eax]
+  loc_00706D01: call [edx+00000008h]
+  loc_00706D04: mov eax, arg_C
+  loc_00706D07: mov ecx, var_18
+  loc_00706D0A: mov [eax], ecx
+  loc_00706D0C: mov eax, var_4
+  loc_00706D0F: mov ecx, var_14
+  loc_00706D12: pop edi
+  loc_00706D13: pop esi
+  loc_00706D14: mov fs:[00000000h], ecx
+  loc_00706D1B: pop ebx
+  loc_00706D1C: mov esp, ebp
+  loc_00706D1E: pop ebp
+  loc_00706D1F: retn 0008h
+End Function
+
+Public Sub Remove(index) '706D30
+  loc_00706D30: push ebp
+  loc_00706D31: mov ebp, esp
+  loc_00706D33: sub esp, 00000018h
+  loc_00706D36: push 00412856h ; __vbaExceptHandler
+  loc_00706D3B: mov eax, fs:[00000000h]
+  loc_00706D41: push eax
+  loc_00706D42: mov fs:[00000000h], esp
+  loc_00706D49: mov eax, 0000001Ch
+  loc_00706D4E: call 00412850h ; __vbaChkstk
+  loc_00706D53: push ebx
+  loc_00706D54: push esi
+  loc_00706D55: push edi
+  loc_00706D56: mov var_18, esp
+  loc_00706D59: mov var_14, 004105C8h
+  loc_00706D60: mov var_10, 00000000h
+  loc_00706D67: mov var_C, 00000000h
+  loc_00706D6E: mov eax, Me
+  loc_00706D71: mov ecx, [eax]
+  loc_00706D73: mov edx, Me
+  loc_00706D76: push edx
+  loc_00706D77: call [ecx+00000004h]
+  loc_00706D7A: mov var_4, 00000001h
+  loc_00706D81: mov var_4, 00000002h
+  loc_00706D88: push FFFFFFFFh
+  loc_00706D8A: call [00401124h] ; __vbaOnError
+  loc_00706D90: mov var_4, 00000003h
+  loc_00706D97: mov eax, index
+  loc_00706D9A: push eax
+  loc_00706D9B: mov ecx, Me
+  loc_00706D9E: mov edx, [ecx+00000038h]
+  loc_00706DA1: mov eax, Me
+  loc_00706DA4: mov ecx, [eax+00000038h]
+  loc_00706DA7: mov eax, [ecx]
+  loc_00706DA9: push edx
+  loc_00706DAA: call [eax+00000028h]
+  loc_00706DAD: fnclex
+  loc_00706DAF: mov var_24, eax
+  loc_00706DB2: cmp var_24, 00000000h
+  loc_00706DB6: jge 00706DD5h
+  loc_00706DB8: push 00000028h
+  loc_00706DBA: push 00447B68h
+  loc_00706DBF: mov ecx, Me
+  loc_00706DC2: mov edx, [ecx+00000038h]
+  loc_00706DC5: push edx
+  loc_00706DC6: mov eax, var_24
+  loc_00706DC9: push eax
+  loc_00706DCA: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00706DD0: mov var_3C, eax
+  loc_00706DD3: jmp 00706DDCh
+  loc_00706DD5: mov var_3C, 00000000h
+  loc_00706DDC: mov ecx, Me
+  loc_00706DDF: mov edx, [ecx]
+  loc_00706DE1: mov eax, Me
+  loc_00706DE4: push eax
+  loc_00706DE5: call [edx+00000008h]
+  loc_00706DE8: mov eax, var_10
+  loc_00706DEB: mov ecx, var_20
+  loc_00706DEE: mov fs:[00000000h], ecx
+  loc_00706DF5: pop edi
+  loc_00706DF6: pop esi
+  loc_00706DF7: pop ebx
+  loc_00706DF8: mov esp, ebp
+  loc_00706DFA: pop ebp
+  loc_00706DFB: retn 0008h
+End Sub
+
+Public Function Item(index) '706E00
+  loc_00706E00: push ebp
+  loc_00706E01: mov ebp, esp
+  loc_00706E03: sub esp, 00000018h
+  loc_00706E06: push 00412856h ; __vbaExceptHandler
+  loc_00706E0B: mov eax, fs:[00000000h]
+  loc_00706E11: push eax
+  loc_00706E12: mov fs:[00000000h], esp
+  loc_00706E19: mov eax, 00000030h
+  loc_00706E1E: call 00412850h ; __vbaChkstk
+  loc_00706E23: push ebx
+  loc_00706E24: push esi
+  loc_00706E25: push edi
+  loc_00706E26: mov var_18, esp
+  loc_00706E29: mov var_14, 004105F8h ; "-"
+  loc_00706E30: mov var_10, 00000000h
+  loc_00706E37: mov var_C, 00000000h
+  loc_00706E3E: mov eax, Me
+  loc_00706E41: mov ecx, [eax]
+  loc_00706E43: mov edx, Me
+  loc_00706E46: push edx
+  loc_00706E47: call [ecx+00000004h]
+  loc_00706E4A: mov var_4, 00000001h
+  loc_00706E51: mov eax, arg_10
+  loc_00706E54: mov [eax], 00000000h
+  loc_00706E5A: mov var_4, 00000002h
+  loc_00706E61: push FFFFFFFFh
+  loc_00706E63: call [00401124h] ; __vbaOnError
+  loc_00706E69: mov var_4, 00000003h
+  loc_00706E70: lea ecx, var_34
+  loc_00706E73: push ecx
+  loc_00706E74: mov edx, index
+  loc_00706E77: push edx
+  loc_00706E78: mov eax, Me
+  loc_00706E7B: mov ecx, [eax+00000038h]
+  loc_00706E7E: mov edx, Me
+  loc_00706E81: mov eax, [edx+00000038h]
+  loc_00706E84: mov edx, [eax]
+  loc_00706E86: push ecx
+  loc_00706E87: call [edx+0000001Ch]
+  loc_00706E8A: fnclex
+  loc_00706E8C: mov var_38, eax
+  loc_00706E8F: cmp var_38, 00000000h
+  loc_00706E93: jge 00706EB2h
+  loc_00706E95: push 0000001Ch
+  loc_00706E97: push 00447B68h
+  loc_00706E9C: mov eax, Me
+  loc_00706E9F: mov ecx, [eax+00000038h]
+  loc_00706EA2: push ecx
+  loc_00706EA3: mov edx, var_38
+  loc_00706EA6: push edx
+  loc_00706EA7: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00706EAD: mov var_50, eax
+  loc_00706EB0: jmp 00706EB9h
+  loc_00706EB2: mov var_50, 00000000h
+  loc_00706EB9: push 00446E9Ch
+  loc_00706EBE: lea eax, var_34
+  loc_00706EC1: push eax
+  loc_00706EC2: call [004011F8h] ; __vbaCastObjVar
+  loc_00706EC8: push eax
+  loc_00706EC9: lea ecx, var_24
+  loc_00706ECC: push ecx
+  loc_00706ECD: call [00401128h] ; __vbaObjSet
+  loc_00706ED3: lea ecx, var_34
+  loc_00706ED6: call [00401030h] ; __vbaFreeVar
+  loc_00706EDC: push 00706F01h
+  loc_00706EE1: jmp 00706F00h
+  loc_00706EE3: mov edx, var_10
+  loc_00706EE6: and edx, 00000004h
+  loc_00706EE9: test edx, edx
+  loc_00706EEB: jz 00706EF6h
+  loc_00706EED: lea ecx, var_24
+  loc_00706EF0: call [0040142Ch] ; __vbaFreeObj
+  loc_00706EF6: lea ecx, var_34
+  loc_00706EF9: call [00401030h] ; __vbaFreeVar
+  loc_00706EFF: ret
+  loc_00706F00: ret
+  loc_00706F01: mov eax, Me
+  loc_00706F04: mov ecx, [eax]
+  loc_00706F06: mov edx, Me
+  loc_00706F09: push edx
+  loc_00706F0A: call [ecx+00000008h]
+  loc_00706F0D: mov eax, arg_10
+  loc_00706F10: mov ecx, var_24
+  loc_00706F13: mov [eax], ecx
+  loc_00706F15: mov eax, var_10
+  loc_00706F18: mov ecx, var_20
+  loc_00706F1B: mov fs:[00000000h], ecx
+  loc_00706F22: pop edi
+  loc_00706F23: pop esi
+  loc_00706F24: pop ebx
+  loc_00706F25: mov esp, ebp
+  loc_00706F27: pop ebp
+  loc_00706F28: retn 000Ch
+End Function
+
+Public Property Get Count(arg_C) '706F30
+  loc_00706F30: push ebp
+  loc_00706F31: mov ebp, esp
+  loc_00706F33: sub esp, 0000000Ch
+  loc_00706F36: push 00412856h ; __vbaExceptHandler
+  loc_00706F3B: mov eax, fs:[00000000h]
+  loc_00706F41: push eax
+  loc_00706F42: mov fs:[00000000h], esp
+  loc_00706F49: sub esp, 00000014h
+  loc_00706F4C: push ebx
+  loc_00706F4D: push esi
+  loc_00706F4E: push edi
+  loc_00706F4F: mov var_C, esp
+  loc_00706F52: mov var_8, 00410628h
+  loc_00706F59: xor edi, edi
+  loc_00706F5B: mov var_4, edi
+  loc_00706F5E: mov esi, Me
+  loc_00706F61: push esi
+  loc_00706F62: mov eax, [esi]
+  loc_00706F64: call [eax+00000004h]
+  loc_00706F67: mov eax, [esi+00000038h]
+  loc_00706F6A: lea edx, var_1C
+  loc_00706F6D: mov var_1C, edi
+  loc_00706F70: push edx
+  loc_00706F71: mov ecx, [eax]
+  loc_00706F73: push eax
+  loc_00706F74: mov var_18, edi
+  loc_00706F77: call [ecx+00000024h]
+  loc_00706F7A: cmp eax, edi
+  loc_00706F7C: fnclex
+  loc_00706F7E: jge 00706F92h
+  loc_00706F80: mov ecx, [esi+00000038h]
+  loc_00706F83: push 00000024h
+  loc_00706F85: push 00447B68h
+  loc_00706F8A: push ecx
+  loc_00706F8B: push eax
+  loc_00706F8C: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00706F92: mov edx, var_1C
+  loc_00706F95: mov var_18, edx
+  loc_00706F98: mov eax, Me
+  loc_00706F9B: push eax
+  loc_00706F9C: mov ecx, [eax]
+  loc_00706F9E: call [ecx+00000008h]
+  loc_00706FA1: mov edx, arg_C
+  loc_00706FA4: mov eax, var_18
+  loc_00706FA7: mov [edx], eax
+  loc_00706FA9: mov eax, var_4
+  loc_00706FAC: mov ecx, var_14
+  loc_00706FAF: pop edi
+  loc_00706FB0: pop esi
+  loc_00706FB1: mov fs:[00000000h], ecx
+  loc_00706FB8: pop ebx
+  loc_00706FB9: mov esp, ebp
+  loc_00706FBB: pop ebp
+  loc_00706FBC: retn 0008h
+End Sub
+
+Public Function WeeksFromFirstOfYear(iIndex) '706FC0
+  loc_00706FC0: push ebp
+  loc_00706FC1: mov ebp, esp
+  loc_00706FC3: sub esp, 0000000Ch
+  loc_00706FC6: push 00412856h ; __vbaExceptHandler
+  loc_00706FCB: mov eax, fs:[00000000h]
+  loc_00706FD1: push eax
+  loc_00706FD2: mov fs:[00000000h], esp
+  loc_00706FD9: sub esp, 0000002Ch
+  loc_00706FDC: push ebx
+  loc_00706FDD: push esi
+  loc_00706FDE: push edi
+  loc_00706FDF: mov var_C, esp
+  loc_00706FE2: mov var_8, 00410630h
+  loc_00706FE9: xor esi, esi
+  loc_00706FEB: mov var_4, esi
+  loc_00706FEE: mov edi, Me
+  loc_00706FF1: push edi
+  loc_00706FF2: mov eax, [edi]
+  loc_00706FF4: call [eax+00000004h]
+  loc_00706FF7: mov ecx, arg_10
+  loc_00706FFA: mov bx, iIndex
+  loc_00706FFE: mov var_24, esi
+  loc_00707001: mov var_34, esi
+  loc_00707004: mov [ecx], esi
+  loc_00707006: mov edx, [edi+00000034h]
+  loc_00707009: push edx
+  loc_0070700A: push 00000001h
+  loc_0070700C: movsx esi, bx
+  loc_0070700F: call [004012A4h] ; __vbaUbound
+  loc_00707015: cmp esi, eax
+  loc_00707017: jg 00707069h
+  loc_00707019: test bx, bx
+  loc_0070701C: jle 00707069h
+  loc_0070701E: mov eax, [edi+00000034h]
+  loc_00707021: test eax, eax
+  loc_00707023: jz 00707042h
+  loc_00707025: cmp [eax], 0001h
+  loc_00707029: jnz 00707042h
+  loc_0070702B: mov edx, [eax+00000014h]
+  loc_0070702E: mov ecx, [eax+00000010h]
+  loc_00707031: sub esi, edx
+  loc_00707033: cmp esi, ecx
+  loc_00707035: jb 0070703Dh
+  loc_00707037: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_0070703D: lea eax, [esi+esi]
+  loc_00707040: jmp 00707048h
+  loc_00707042: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_00707048: mov ecx, [edi+00000034h]
+  loc_0070704B: mov edx, [ecx+0000000Ch]
+  loc_0070704E: lea ecx, var_24
+  loc_00707051: mov ax, [edx+eax]
+  loc_00707055: lea edx, var_34
+  loc_00707058: mov var_2C, ax
+  loc_0070705C: mov var_34, 00000002h
+  loc_00707063: call [00401020h] ; __vbaVarMove
+  loc_00707069: push 0070707Bh
+  loc_0070706E: jmp 0070707Ah
+  loc_00707070: lea ecx, var_24
+  loc_00707073: call [00401030h] ; __vbaFreeVar
+  loc_00707079: ret
+  loc_0070707A: ret
+  loc_0070707B: mov eax, Me
+  loc_0070707E: push eax
+  loc_0070707F: mov ecx, [eax]
+  loc_00707081: call [ecx+00000008h]
+  loc_00707084: mov edx, arg_10
+  loc_00707087: mov eax, var_24
+  loc_0070708A: mov ecx, var_20
+  loc_0070708D: mov [edx], eax
+  loc_0070708F: mov eax, var_1C
+  loc_00707092: mov [edx+00000004h], ecx
+  loc_00707095: mov ecx, var_18
+  loc_00707098: mov [edx+00000008h], eax
+  loc_0070709B: mov [edx+0000000Ch], ecx
+  loc_0070709E: mov eax, var_4
+  loc_007070A1: mov ecx, var_14
+  loc_007070A4: pop edi
+  loc_007070A5: pop esi
+  loc_007070A6: mov fs:[00000000h], ecx
+  loc_007070AD: pop ebx
+  loc_007070AE: mov esp, ebp
+  loc_007070B0: pop ebp
+  loc_007070B1: retn 000Ch
+End Function
+
+Private Sub Proc_57_6_706400
+  loc_00706400: push ebp
+  loc_00706401: mov ebp, esp
+  loc_00706403: sub esp, 0000000Ch
+  loc_00706406: push 00412856h ; __vbaExceptHandler
+  loc_0070640B: mov eax, fs:[00000000h]
+  loc_00706411: push eax
+  loc_00706412: mov fs:[00000000h], esp
+  loc_00706419: sub esp, 0000000Ch
+  loc_0070641C: push ebx
+  loc_0070641D: push esi
+  loc_0070641E: push edi
+  loc_0070641F: mov var_C, esp
+  loc_00706422: mov var_8, 00410540h
+  loc_00706429: mov esi, Me
+  loc_0070642C: mov eax, esi
+  loc_0070642E: and eax, 00000001h
+  loc_00706431: mov var_4, eax
+  loc_00706434: and esi, FFFFFFFEh
+  loc_00706437: push esi
+  loc_00706438: mov Me, esi
+  loc_0070643B: mov ecx, [esi]
+  loc_0070643D: call [ecx+00000004h]
+  loc_00706440: xor edi, edi
+  loc_00706442: push 00447B78h
+  loc_00706447: mov var_18, edi
+  loc_0070644A: call [0040122Ch] ; __vbaNew
+  loc_00706450: lea edx, var_18
+  loc_00706453: push eax
+  loc_00706454: push edx
+  loc_00706455: call [00401128h] ; __vbaObjSet
+  loc_0070645B: add esi, 00000038h
+  loc_0070645E: push eax
+  loc_0070645F: push esi
+  loc_00706460: call [00401130h] ; __vbaObjSetAddref
+  loc_00706466: lea ecx, var_18
+  loc_00706469: call [0040142Ch] ; __vbaFreeObj
+  loc_0070646F: mov var_4, edi
+  loc_00706472: push 00706484h
+  loc_00706477: jmp 00706483h
+  loc_00706479: lea ecx, var_18
+  loc_0070647C: call [0040142Ch] ; __vbaFreeObj
+  loc_00706482: ret
+  loc_00706483: ret
+  loc_00706484: mov eax, Me
+  loc_00706487: push eax
+  loc_00706488: mov ecx, [eax]
+  loc_0070648A: call [ecx+00000008h]
+  loc_0070648D: mov eax, var_4
+  loc_00706490: mov ecx, var_14
+  loc_00706493: pop edi
+  loc_00706494: pop esi
+  loc_00706495: mov fs:[00000000h], ecx
+  loc_0070649C: pop ebx
+  loc_0070649D: mov esp, ebp
+  loc_0070649F: pop ebp
+  loc_007064A0: retn 0004h
+End Sub

Src Code/CPeriod.cls

@@ -0,0 +1,188 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "CPeriod"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+
+
+Public Property Get Name(Index As Integer) '5FAAE0
+  loc_005FAAE0: push ebp
+  loc_005FAAE1: mov ebp, esp
+  loc_005FAAE3: sub esp, 0000000Ch
+  loc_005FAAE6: push 00412856h ; __vbaExceptHandler
+  loc_005FAAEB: mov eax, fs:[00000000h]
+  loc_005FAAF1: push eax
+  loc_005FAAF2: mov fs:[00000000h], esp
+  loc_005FAAF9: sub esp, 0000000Ch
+  loc_005FAAFC: push ebx
+  loc_005FAAFD: push esi
+  loc_005FAAFE: push edi
+  loc_005FAAFF: mov var_C, esp
+  loc_005FAB02: mov var_8, 00403D38h
+  loc_005FAB09: xor edi, edi
+  loc_005FAB0B: mov var_4, edi
+  loc_005FAB0E: mov esi, Me
+  loc_005FAB11: push esi
+  loc_005FAB12: mov eax, [esi]
+  loc_005FAB14: call [eax+00000004h]
+  loc_005FAB17: mov ecx, Index
+  loc_005FAB1A: mov var_18, edi
+  loc_005FAB1D: mov [ecx], edi
+  loc_005FAB1F: mov edx, [esi+00000038h]
+  loc_005FAB22: lea ecx, var_18
+  loc_005FAB25: call [00401310h] ; __vbaStrCopy
+  loc_005FAB2B: push 005FAB3Dh
+  loc_005FAB30: jmp 005FAB3Ch
+  loc_005FAB32: lea ecx, var_18
+  loc_005FAB35: call [00401430h] ; __vbaFreeStr
+  loc_005FAB3B: ret
+  loc_005FAB3C: ret
+  loc_005FAB3D: mov eax, Me
+  loc_005FAB40: push eax
+  loc_005FAB41: mov edx, [eax]
+  loc_005FAB43: call [edx+00000008h]
+  loc_005FAB46: mov eax, Index
+  loc_005FAB49: mov ecx, var_18
+  loc_005FAB4C: mov [eax], ecx
+  loc_005FAB4E: mov eax, var_4
+  loc_005FAB51: mov ecx, var_14
+  loc_005FAB54: pop edi
+  loc_005FAB55: pop esi
+  loc_005FAB56: mov fs:[00000000h], ecx
+  loc_005FAB5D: pop ebx
+  loc_005FAB5E: mov esp, ebp
+  loc_005FAB60: pop ebp
+  loc_005FAB61: retn 0008h
+End Sub
+
+Public Property Let Name(sName) '5FAB70
+  loc_005FAB70: push ebp
+  loc_005FAB71: mov ebp, esp
+  loc_005FAB73: sub esp, 0000000Ch
+  loc_005FAB76: push 00412856h ; __vbaExceptHandler
+  loc_005FAB7B: mov eax, fs:[00000000h]
+  loc_005FAB81: push eax
+  loc_005FAB82: mov fs:[00000000h], esp
+  loc_005FAB89: sub esp, 0000000Ch
+  loc_005FAB8C: push ebx
+  loc_005FAB8D: push esi
+  loc_005FAB8E: push edi
+  loc_005FAB8F: mov var_C, esp
+  loc_005FAB92: mov var_8, 00403D48h
+  loc_005FAB99: xor edi, edi
+  loc_005FAB9B: mov var_4, edi
+  loc_005FAB9E: mov esi, Me
+  loc_005FABA1: push esi
+  loc_005FABA2: mov eax, [esi]
+  loc_005FABA4: call [eax+00000004h]
+  loc_005FABA7: mov edx, sName
+  loc_005FABAA: mov var_18, edi
+  loc_005FABAD: mov edi, [00401310h] ; __vbaStrCopy
+  loc_005FABB3: lea ecx, var_18
+  loc_005FABB6: call edi
+  loc_005FABB8: mov edx, var_18
+  loc_005FABBB: lea ecx, [esi+00000038h]
+  loc_005FABBE: call edi
+  loc_005FABC0: push 005FABCFh
+  loc_005FABC5: lea ecx, var_18
+  loc_005FABC8: call [00401430h] ; __vbaFreeStr
+  loc_005FABCE: ret
+  loc_005FABCF: mov eax, Me
+  loc_005FABD2: push eax
+  loc_005FABD3: mov ecx, [eax]
+  loc_005FABD5: call [ecx+00000008h]
+  loc_005FABD8: mov eax, var_4
+  loc_005FABDB: mov ecx, var_14
+  loc_005FABDE: pop edi
+  loc_005FABDF: pop esi
+  loc_005FABE0: mov fs:[00000000h], ecx
+  loc_005FABE7: pop ebx
+  loc_005FABE8: mov esp, ebp
+  loc_005FABEA: pop ebp
+  loc_005FABEB: retn 0008h
+End Sub
+
+Public Property Get NumberOfWeeks(arg_C) '5FABF0
+  loc_005FABF0: push ebp
+  loc_005FABF1: mov ebp, esp
+  loc_005FABF3: sub esp, 0000000Ch
+  loc_005FABF6: push 00412856h ; __vbaExceptHandler
+  loc_005FABFB: mov eax, fs:[00000000h]
+  loc_005FAC01: push eax
+  loc_005FAC02: mov fs:[00000000h], esp
+  loc_005FAC09: sub esp, 0000000Ch
+  loc_005FAC0C: push ebx
+  loc_005FAC0D: push esi
+  loc_005FAC0E: push edi
+  loc_005FAC0F: mov var_C, esp
+  loc_005FAC12: mov var_8, 00403D58h
+  loc_005FAC19: xor edi, edi
+  loc_005FAC1B: mov var_4, edi
+  loc_005FAC1E: mov esi, Me
+  loc_005FAC21: push esi
+  loc_005FAC22: mov eax, [esi]
+  loc_005FAC24: call [eax+00000004h]
+  loc_005FAC27: mov cx, [esi+00000034h]
+  loc_005FAC2B: mov var_18, edi
+  loc_005FAC2E: mov var_18, ecx
+  loc_005FAC31: mov eax, Me
+  loc_005FAC34: push eax
+  loc_005FAC35: mov edx, [eax]
+  loc_005FAC37: call [edx+00000008h]
+  loc_005FAC3A: mov eax, arg_C
+  loc_005FAC3D: mov cx, var_18
+  loc_005FAC41: mov [eax], cx
+  loc_005FAC44: mov eax, var_4
+  loc_005FAC47: mov ecx, var_14
+  loc_005FAC4A: pop edi
+  loc_005FAC4B: pop esi
+  loc_005FAC4C: mov fs:[00000000h], ecx
+  loc_005FAC53: pop ebx
+  loc_005FAC54: mov esp, ebp
+  loc_005FAC56: pop ebp
+  loc_005FAC57: retn 0008h
+End Sub
+
+Public Property Let NumberOfWeeks(nNumberOfWeeks) '5FAC60
+  loc_005FAC60: push ebp
+  loc_005FAC61: mov ebp, esp
+  loc_005FAC63: sub esp, 0000000Ch
+  loc_005FAC66: push 00412856h ; __vbaExceptHandler
+  loc_005FAC6B: mov eax, fs:[00000000h]
+  loc_005FAC71: push eax
+  loc_005FAC72: mov fs:[00000000h], esp
+  loc_005FAC79: sub esp, 00000008h
+  loc_005FAC7C: push ebx
+  loc_005FAC7D: push esi
+  loc_005FAC7E: push edi
+  loc_005FAC7F: mov var_C, esp
+  loc_005FAC82: mov var_8, 00403D60h
+  loc_005FAC89: mov var_4, 00000000h
+  loc_005FAC90: mov esi, Me
+  loc_005FAC93: push esi
+  loc_005FAC94: mov eax, [esi]
+  loc_005FAC96: call [eax+00000004h]
+  loc_005FAC99: mov cx, nNumberOfWeeks
+  loc_005FAC9D: mov [esi+00000034h], cx
+  loc_005FACA1: mov eax, Me
+  loc_005FACA4: push eax
+  loc_005FACA5: mov edx, [eax]
+  loc_005FACA7: call [edx+00000008h]
+  loc_005FACAA: mov eax, var_4
+  loc_005FACAD: mov ecx, var_14
+  loc_005FACB0: pop edi
+  loc_005FACB1: pop esi
+  loc_005FACB2: mov fs:[00000000h], ecx
+  loc_005FACB9: pop ebx
+  loc_005FACBA: mov esp, ebp
+  loc_005FACBC: pop ebp
+  loc_005FACBD: retn 0008h
+End Sub

Src Code/CPeriods.cls

@@ -0,0 +1,949 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "CPeriods"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+
+
+Public Function Add(sName, nNumberOfWeeks) '5FAD70
+  loc_005FAD70: push ebp
+  loc_005FAD71: mov ebp, esp
+  loc_005FAD73: sub esp, 00000018h
+  loc_005FAD76: push 00412856h ; __vbaExceptHandler
+  loc_005FAD7B: mov eax, fs:[00000000h]
+  loc_005FAD81: push eax
+  loc_005FAD82: mov fs:[00000000h], esp
+  loc_005FAD89: mov eax, 00000118h
+  loc_005FAD8E: call 00412850h ; __vbaChkstk
+  loc_005FAD93: push ebx
+  loc_005FAD94: push esi
+  loc_005FAD95: push edi
+  loc_005FAD96: mov var_18, esp
+  loc_005FAD99: mov var_14, 00403D78h ; "/"
+  loc_005FADA0: mov var_10, 00000000h
+  loc_005FADA7: mov var_C, 00000000h
+  loc_005FADAE: mov eax, Me
+  loc_005FADB1: mov ecx, [eax]
+  loc_005FADB3: mov edx, Me
+  loc_005FADB6: push edx
+  loc_005FADB7: call [ecx+00000004h]
+  loc_005FADBA: mov var_4, 00000001h
+  loc_005FADC1: mov edx, sName
+  loc_005FADC4: lea ecx, var_24
+  loc_005FADC7: call [00401310h] ; __vbaStrCopy
+  loc_005FADCD: mov eax, arg_14
+  loc_005FADD0: mov [eax], 00000000h
+  loc_005FADD6: mov var_4, 00000002h
+  loc_005FADDD: push FFFFFFFFh
+  loc_005FADDF: call [00401124h] ; __vbaOnError
+  loc_005FADE5: mov var_4, 00000003h
+  loc_005FADEC: cmp var_34, 00000000h
+  loc_005FADF0: jnz 005FAE0Ch
+  loc_005FADF2: lea ecx, var_34
+  loc_005FADF5: push ecx
+  loc_005FADF6: push 00413AF8h
+  loc_005FADFB: call [004012FCh] ; __vbaNew2
+  loc_005FAE01: lea edx, var_34
+  loc_005FAE04: mov var_FC, edx
+  loc_005FAE0A: jmp 005FAE15h
+  loc_005FAE0C: lea eax, var_34
+  loc_005FAE0F: mov var_FC, eax
+  loc_005FAE15: mov ecx, var_FC
+  loc_005FAE1B: mov edx, [ecx]
+  loc_005FAE1D: mov var_C0, edx
+  loc_005FAE23: mov eax, var_24
+  loc_005FAE26: push eax
+  loc_005FAE27: mov ecx, var_C0
+  loc_005FAE2D: mov edx, [ecx]
+  loc_005FAE2F: mov eax, var_C0
+  loc_005FAE35: push eax
+  loc_005FAE36: call [edx+00000020h]
+  loc_005FAE39: fnclex
+  loc_005FAE3B: mov var_C4, eax
+  loc_005FAE41: cmp var_C4, 00000000h
+  loc_005FAE48: jge 005FAE6Dh
+  loc_005FAE4A: push 00000020h
+  loc_005FAE4C: push 00447B04h
+  loc_005FAE51: mov ecx, var_C0
+  loc_005FAE57: push ecx
+  loc_005FAE58: mov edx, var_C4
+  loc_005FAE5E: push edx
+  loc_005FAE5F: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005FAE65: mov var_100, eax
+  loc_005FAE6B: jmp 005FAE77h
+  loc_005FAE6D: mov var_100, 00000000h
+  loc_005FAE77: mov var_4, 00000004h
+  loc_005FAE7E: cmp var_34, 00000000h
+  loc_005FAE82: jnz 005FAE9Eh
+  loc_005FAE84: lea eax, var_34
+  loc_005FAE87: push eax
+  loc_005FAE88: push 00413AF8h
+  loc_005FAE8D: call [004012FCh] ; __vbaNew2
+  loc_005FAE93: lea ecx, var_34
+  loc_005FAE96: mov var_104, ecx
+  loc_005FAE9C: jmp 005FAEA7h
+  loc_005FAE9E: lea edx, var_34
+  loc_005FAEA1: mov var_104, edx
+  loc_005FAEA7: mov eax, var_104
+  loc_005FAEAD: mov ecx, [eax]
+  loc_005FAEAF: mov var_C0, ecx
+  loc_005FAEB5: mov dx, nNumberOfWeeks
+  loc_005FAEB9: push edx
+  loc_005FAEBA: mov eax, var_C0
+  loc_005FAEC0: mov ecx, [eax]
+  loc_005FAEC2: mov edx, var_C0
+  loc_005FAEC8: push edx
+  loc_005FAEC9: call [ecx+00000028h]
+  loc_005FAECC: fnclex
+  loc_005FAECE: mov var_C4, eax
+  loc_005FAED4: cmp var_C4, 00000000h
+  loc_005FAEDB: jge 005FAF00h
+  loc_005FAEDD: push 00000028h
+  loc_005FAEDF: push 00447B04h
+  loc_005FAEE4: mov eax, var_C0
+  loc_005FAEEA: push eax
+  loc_005FAEEB: mov ecx, var_C4
+  loc_005FAEF1: push ecx
+  loc_005FAEF2: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005FAEF8: mov var_108, eax
+  loc_005FAEFE: jmp 005FAF0Ah
+  loc_005FAF00: mov var_108, 00000000h
+  loc_005FAF0A: mov var_4, 00000005h
+  loc_005FAF11: mov var_50, 80020004h
+  loc_005FAF18: mov var_58, 0000000Ah
+  loc_005FAF1F: mov var_40, 80020004h
+  loc_005FAF26: mov var_48, 0000000Ah
+  loc_005FAF2D: lea edx, var_24
+  loc_005FAF30: mov var_90, edx
+  loc_005FAF36: mov var_98, 00004008h
+  loc_005FAF40: cmp var_34, 00000000h
+  loc_005FAF44: jnz 005FAF60h
+  loc_005FAF46: lea eax, var_34
+  loc_005FAF49: push eax
+  loc_005FAF4A: push 00413AF8h
+  loc_005FAF4F: call [004012FCh] ; __vbaNew2
+  loc_005FAF55: lea ecx, var_34
+  loc_005FAF58: mov var_10C, ecx
+  loc_005FAF5E: jmp 005FAF69h
+  loc_005FAF60: lea edx, var_34
+  loc_005FAF63: mov var_10C, edx
+  loc_005FAF69: mov eax, var_10C
+  loc_005FAF6F: mov ecx, [eax]
+  loc_005FAF71: push ecx
+  loc_005FAF72: lea edx, var_38
+  loc_005FAF75: push edx
+  loc_005FAF76: call [00401130h] ; __vbaObjSetAddref
+  loc_005FAF7C: lea eax, var_38
+  loc_005FAF7F: mov var_80, eax
+  loc_005FAF82: mov var_88, 00004009h
+  loc_005FAF8C: lea ecx, var_58
+  loc_005FAF8F: push ecx
+  loc_005FAF90: lea edx, var_48
+  loc_005FAF93: push edx
+  loc_005FAF94: lea eax, var_98
+  loc_005FAF9A: push eax
+  loc_005FAF9B: lea ecx, var_88
+  loc_005FAFA1: push ecx
+  loc_005FAFA2: mov edx, Me
+  loc_005FAFA5: mov eax, [edx+00000038h]
+  loc_005FAFA8: mov ecx, Me
+  loc_005FAFAB: mov edx, [ecx+00000038h]
+  loc_005FAFAE: mov ecx, [edx]
+  loc_005FAFB0: push eax
+  loc_005FAFB1: call [ecx+00000020h]
+  loc_005FAFB4: fnclex
+  loc_005FAFB6: mov var_C0, eax
+  loc_005FAFBC: cmp var_C0, 00000000h
+  loc_005FAFC3: jge 005FAFE8h
+  loc_005FAFC5: push 00000020h
+  loc_005FAFC7: push 00447B68h
+  loc_005FAFCC: mov edx, Me
+  loc_005FAFCF: mov eax, [edx+00000038h]
+  loc_005FAFD2: push eax
+  loc_005FAFD3: mov ecx, var_C0
+  loc_005FAFD9: push ecx
+  loc_005FAFDA: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005FAFE0: mov var_110, eax
+  loc_005FAFE6: jmp 005FAFF2h
+  loc_005FAFE8: mov var_110, 00000000h
+  loc_005FAFF2: push 00447B04h
+  loc_005FAFF7: mov edx, var_38
+  loc_005FAFFA: push edx
+  loc_005FAFFB: call [004013C4h] ; __vbaCastObj
+  loc_005FB001: push eax
+  loc_005FB002: lea eax, var_34
+  loc_005FB005: push eax
+  loc_005FB006: call [00401128h] ; __vbaObjSet
+  loc_005FB00C: lea ecx, var_38
+  loc_005FB00F: call [0040142Ch] ; __vbaFreeObj
+  loc_005FB015: lea ecx, var_58
+  loc_005FB018: push ecx
+  loc_005FB019: lea edx, var_48
+  loc_005FB01C: push edx
+  loc_005FB01D: push 00000002h
+  loc_005FB01F: call [00401050h] ; __vbaFreeVarList
+  loc_005FB025: add esp, 0000000Ch
+  loc_005FB028: mov var_4, 00000006h
+  loc_005FB02F: lea eax, var_BC
+  loc_005FB035: push eax
+  loc_005FB036: mov ecx, Me
+  loc_005FB039: mov edx, [ecx+00000038h]
+  loc_005FB03C: mov eax, Me
+  loc_005FB03F: mov ecx, [eax+00000038h]
+  loc_005FB042: mov eax, [ecx]
+  loc_005FB044: push edx
+  loc_005FB045: call [eax+00000024h]
+  loc_005FB048: fnclex
+  loc_005FB04A: mov var_C0, eax
+  loc_005FB050: cmp var_C0, 00000000h
+  loc_005FB057: jge 005FB07Ch
+  loc_005FB059: push 00000024h
+  loc_005FB05B: push 00447B68h
+  loc_005FB060: mov ecx, Me
+  loc_005FB063: mov edx, [ecx+00000038h]
+  loc_005FB066: push edx
+  loc_005FB067: mov eax, var_C0
+  loc_005FB06D: push eax
+  loc_005FB06E: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005FB074: mov var_114, eax
+  loc_005FB07A: jmp 005FB086h
+  loc_005FB07C: mov var_114, 00000000h
+  loc_005FB086: mov ecx, var_BC
+  loc_005FB08C: call [004011E4h] ; __vbaI2I4
+  loc_005FB092: mov var_28, ax
+  loc_005FB096: mov var_4, 00000007h
+  loc_005FB09D: push 00000001h
+  loc_005FB09F: movsx ecx, var_28
+  loc_005FB0A3: push ecx
+  loc_005FB0A4: push 00000001h
+  loc_005FB0A6: push 00000002h
+  loc_005FB0A8: mov edx, Me
+  loc_005FB0AB: add edx, 00000034h
+  loc_005FB0AE: push edx
+  loc_005FB0AF: push 00000002h
+  loc_005FB0B1: push 00000080h
+  loc_005FB0B6: call [00401220h] ; __vbaRedim
+  loc_005FB0BC: add esp, 0000001Ch
+  loc_005FB0BF: mov var_4, 00000008h
+  loc_005FB0C6: mov ax, var_28
+  loc_005FB0CA: mov var_E0, ax
+  loc_005FB0D1: mov var_DC, 0001h
+  loc_005FB0DA: mov var_2C, 0001h
+  loc_005FB0E0: jmp 005FB0F7h
+  loc_005FB0E2: mov cx, var_2C
+  loc_005FB0E6: add cx, var_DC
+  loc_005FB0ED: jo 005FB4FFh
+  loc_005FB0F3: mov var_2C, cx
+  loc_005FB0F7: mov dx, var_2C
+  loc_005FB0FB: cmp dx, var_E0
+  loc_005FB102: jg 005FB434h
+  loc_005FB108: mov var_4, 00000009h
+  loc_005FB10F: lea eax, var_2C
+  loc_005FB112: mov var_80, eax
+  loc_005FB115: mov var_88, 00004002h
+  loc_005FB11F: lea ecx, var_48
+  loc_005FB122: push ecx
+  loc_005FB123: lea edx, var_88
+  loc_005FB129: push edx
+  loc_005FB12A: mov eax, Me
+  loc_005FB12D: mov ecx, [eax+00000038h]
+  loc_005FB130: mov edx, Me
+  loc_005FB133: mov eax, [edx+00000038h]
+  loc_005FB136: mov edx, [eax]
+  loc_005FB138: push ecx
+  loc_005FB139: call [edx+0000001Ch]
+  loc_005FB13C: fnclex
+  loc_005FB13E: mov var_C0, eax
+  loc_005FB144: cmp var_C0, 00000000h
+  loc_005FB14B: jge 005FB170h
+  loc_005FB14D: push 0000001Ch
+  loc_005FB14F: push 00447B68h
+  loc_005FB154: mov eax, Me
+  loc_005FB157: mov ecx, [eax+00000038h]
+  loc_005FB15A: push ecx
+  loc_005FB15B: mov edx, var_C0
+  loc_005FB161: push edx
+  loc_005FB162: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005FB168: mov var_118, eax
+  loc_005FB16E: jmp 005FB17Ah
+  loc_005FB170: mov var_118, 00000000h
+  loc_005FB17A: lea edx, var_48
+  loc_005FB17D: lea ecx, var_D8
+  loc_005FB183: call [00401180h] ; __vbaVarZero
+  loc_005FB189: lea eax, var_D8
+  loc_005FB18F: mov var_E4, eax
+  loc_005FB195: mov var_4, 0000000Ah
+  loc_005FB19C: cmp var_2C, 0001h
+  loc_005FB1A1: jnz 005FB235h
+  loc_005FB1A7: mov var_4, 0000000Bh
+  loc_005FB1AE: mov ecx, Me
+  loc_005FB1B1: cmp [ecx+00000034h], 00000000h
+  loc_005FB1B5: jz 005FB20Fh
+  loc_005FB1B7: mov edx, Me
+  loc_005FB1BA: mov eax, [edx+00000034h]
+  loc_005FB1BD: cmp [eax], 0001h
+  loc_005FB1C1: jnz 005FB20Fh
+  loc_005FB1C3: movsx ecx, var_2C
+  loc_005FB1C7: mov edx, Me
+  loc_005FB1CA: mov eax, [edx+00000034h]
+  loc_005FB1CD: sub ecx, [eax+00000014h]
+  loc_005FB1D0: mov var_C0, ecx
+  loc_005FB1D6: mov ecx, Me
+  loc_005FB1D9: mov edx, [ecx+00000034h]
+  loc_005FB1DC: mov eax, var_C0
+  loc_005FB1E2: cmp eax, [edx+00000010h]
+  loc_005FB1E5: jae 005FB1F3h
+  loc_005FB1E7: mov var_11C, 00000000h
+  loc_005FB1F1: jmp 005FB1FFh
+  loc_005FB1F3: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_005FB1F9: mov var_11C, eax
+  loc_005FB1FF: mov ecx, var_C0
+  loc_005FB205: shl ecx, 01h
+  loc_005FB207: mov var_120, ecx
+  loc_005FB20D: jmp 005FB21Bh
+  loc_005FB20F: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_005FB215: mov var_120, eax
+  loc_005FB21B: mov edx, Me
+  loc_005FB21E: mov eax, [edx+00000034h]
+  loc_005FB221: mov ecx, [eax+0000000Ch]
+  loc_005FB224: mov edx, var_120
+  loc_005FB22A: mov [ecx+edx], 0000h
+  loc_005FB230: jmp 005FB417h
+  loc_005FB235: mov var_4, 0000000Dh
+  loc_005FB23C: mov eax, Me
+  loc_005FB23F: cmp [eax+00000034h], 00000000h
+  loc_005FB243: jz 005FB2AAh
+  loc_005FB245: mov ecx, Me
+  loc_005FB248: mov edx, [ecx+00000034h]
+  loc_005FB24B: cmp [edx], 0001h
+  loc_005FB24F: jnz 005FB2AAh
+  loc_005FB251: mov ax, var_2C
+  loc_005FB255: sub ax, 0001h
+  loc_005FB259: jo 005FB4FFh
+  loc_005FB25F: movsx ecx, ax
+  loc_005FB262: mov edx, Me
+  loc_005FB265: mov eax, [edx+00000034h]
+  loc_005FB268: sub ecx, [eax+00000014h]
+  loc_005FB26B: mov var_C4, ecx
+  loc_005FB271: mov ecx, Me
+  loc_005FB274: mov edx, [ecx+00000034h]
+  loc_005FB277: mov eax, var_C4
+  loc_005FB27D: cmp eax, [edx+00000010h]
+  loc_005FB280: jae 005FB28Eh
+  loc_005FB282: mov var_124, 00000000h
+  loc_005FB28C: jmp 005FB29Ah
+  loc_005FB28E: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_005FB294: mov var_124, eax
+  loc_005FB29A: mov ecx, var_C4
+  loc_005FB2A0: shl ecx, 01h
+  loc_005FB2A2: mov var_128, ecx
+  loc_005FB2A8: jmp 005FB2B6h
+  loc_005FB2AA: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_005FB2B0: mov var_128, eax
+  loc_005FB2B6: mov edx, Me
+  loc_005FB2B9: mov eax, [edx+00000034h]
+  loc_005FB2BC: mov ecx, [eax+0000000Ch]
+  loc_005FB2BF: mov edx, var_128
+  loc_005FB2C5: mov ax, [ecx+edx]
+  loc_005FB2C9: mov var_90, ax
+  loc_005FB2D0: mov var_98, 00000002h
+  loc_005FB2DA: mov cx, var_2C
+  loc_005FB2DE: sub cx, 0001h
+  loc_005FB2E2: jo 005FB4FFh
+  loc_005FB2E8: mov var_40, cx
+  loc_005FB2EC: mov var_48, 00000002h
+  loc_005FB2F3: lea edx, var_58
+  loc_005FB2F6: push edx
+  loc_005FB2F7: lea eax, var_48
+  loc_005FB2FA: push eax
+  loc_005FB2FB: mov ecx, Me
+  loc_005FB2FE: mov edx, [ecx+00000038h]
+  loc_005FB301: mov eax, Me
+  loc_005FB304: mov ecx, [eax+00000038h]
+  loc_005FB307: mov eax, [ecx]
+  loc_005FB309: push edx
+  loc_005FB30A: call [eax+0000001Ch]
+  loc_005FB30D: fnclex
+  loc_005FB30F: mov var_C8, eax
+  loc_005FB315: cmp var_C8, 00000000h
+  loc_005FB31C: jge 005FB341h
+  loc_005FB31E: push 0000001Ch
+  loc_005FB320: push 00447B68h
+  loc_005FB325: mov ecx, Me
+  loc_005FB328: mov edx, [ecx+00000038h]
+  loc_005FB32B: push edx
+  loc_005FB32C: mov eax, var_C8
+  loc_005FB332: push eax
+  loc_005FB333: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005FB339: mov var_12C, eax
+  loc_005FB33F: jmp 005FB34Bh
+  loc_005FB341: mov var_12C, 00000000h
+  loc_005FB34B: mov ecx, Me
+  loc_005FB34E: cmp [ecx+00000034h], 00000000h
+  loc_005FB352: jz 005FB3ACh
+  loc_005FB354: mov edx, Me
+  loc_005FB357: mov eax, [edx+00000034h]
+  loc_005FB35A: cmp [eax], 0001h
+  loc_005FB35E: jnz 005FB3ACh
+  loc_005FB360: movsx ecx, var_2C
+  loc_005FB364: mov edx, Me
+  loc_005FB367: mov eax, [edx+00000034h]
+  loc_005FB36A: sub ecx, [eax+00000014h]
+  loc_005FB36D: mov var_C0, ecx
+  loc_005FB373: mov ecx, Me
+  loc_005FB376: mov edx, [ecx+00000034h]
+  loc_005FB379: mov eax, var_C0
+  loc_005FB37F: cmp eax, [edx+00000010h]
+  loc_005FB382: jae 005FB390h
+  loc_005FB384: mov var_130, 00000000h
+  loc_005FB38E: jmp 005FB39Ch
+  loc_005FB390: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_005FB396: mov var_130, eax
+  loc_005FB39C: mov ecx, var_C0
+  loc_005FB3A2: shl ecx, 01h
+  loc_005FB3A4: mov var_134, ecx
+  loc_005FB3AA: jmp 005FB3B8h
+  loc_005FB3AC: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_005FB3B2: mov var_134, eax
+  loc_005FB3B8: lea edx, var_98
+  loc_005FB3BE: push edx
+  loc_005FB3BF: push 00000000h
+  loc_005FB3C1: push 00447B88h ; "NumberOfWeeks"
+  loc_005FB3C6: lea eax, var_58
+  loc_005FB3C9: push eax
+  loc_005FB3CA: lea ecx, var_68
+  loc_005FB3CD: push ecx
+  loc_005FB3CE: call [00401390h] ; __vbaVarLateMemCallLd
+  loc_005FB3D4: add esp, 00000010h
+  loc_005FB3D7: push eax
+  loc_005FB3D8: lea edx, var_78
+  loc_005FB3DB: push edx
+  loc_005FB3DC: call [0040135Ch] ; __vbaVarAdd
+  loc_005FB3E2: push eax
+  loc_005FB3E3: call [004012C0h] ; __vbaI2Var
+  loc_005FB3E9: mov ecx, Me
+  loc_005FB3EC: mov edx, [ecx+00000034h]
+  loc_005FB3EF: mov ecx, [edx+0000000Ch]
+  loc_005FB3F2: mov edx, var_134
+  loc_005FB3F8: mov [ecx+edx], ax
+  loc_005FB3FC: lea eax, var_78
+  loc_005FB3FF: push eax
+  loc_005FB400: lea ecx, var_68
+  loc_005FB403: push ecx
+  loc_005FB404: lea edx, var_58
+  loc_005FB407: push edx
+  loc_005FB408: lea eax, var_48
+  loc_005FB40B: push eax
+  loc_005FB40C: push 00000004h
+  loc_005FB40E: call [00401050h] ; __vbaFreeVarList
+  loc_005FB414: add esp, 00000014h
+  loc_005FB417: mov var_4, 0000000Fh
+  loc_005FB41E: mov var_E4, 00000000h
+  loc_005FB428: mov var_4, 00000010h
+  loc_005FB42F: jmp 005FB0E2h
+  loc_005FB434: mov var_4, 00000011h
+  loc_005FB43B: cmp var_34, 00000000h
+  loc_005FB43F: jnz 005FB45Bh
+  loc_005FB441: lea ecx, var_34
+  loc_005FB444: push ecx
+  loc_005FB445: push 00413AF8h
+  loc_005FB44A: call [004012FCh] ; __vbaNew2
+  loc_005FB450: lea edx, var_34
+  loc_005FB453: mov var_138, edx
+  loc_005FB459: jmp 005FB464h
+  loc_005FB45B: lea eax, var_34
+  loc_005FB45E: mov var_138, eax
+  loc_005FB464: mov ecx, var_138
+  loc_005FB46A: mov edx, [ecx]
+  loc_005FB46C: push edx
+  loc_005FB46D: lea eax, var_30
+  loc_005FB470: push eax
+  loc_005FB471: call [00401130h] ; __vbaObjSetAddref
+  loc_005FB477: push 005FB4D5h
+  loc_005FB47C: jmp 005FB4B6h
+  loc_005FB47E: mov ecx, var_10
+  loc_005FB481: and ecx, 00000004h
+  loc_005FB484: test ecx, ecx
+  loc_005FB486: jz 005FB491h
+  loc_005FB488: lea ecx, var_30
+  loc_005FB48B: call [0040142Ch] ; __vbaFreeObj
+  loc_005FB491: lea ecx, var_38
+  loc_005FB494: call [0040142Ch] ; __vbaFreeObj
+  loc_005FB49A: lea edx, var_78
+  loc_005FB49D: push edx
+  loc_005FB49E: lea eax, var_68
+  loc_005FB4A1: push eax
+  loc_005FB4A2: lea ecx, var_58
+  loc_005FB4A5: push ecx
+  loc_005FB4A6: lea edx, var_48
+  loc_005FB4A9: push edx
+  loc_005FB4AA: push 00000004h
+  loc_005FB4AC: call [00401050h] ; __vbaFreeVarList
+  loc_005FB4B2: add esp, 00000014h
+  loc_005FB4B5: ret
+  loc_005FB4B6: lea ecx, var_D8
+  loc_005FB4BC: call [00401030h] ; __vbaFreeVar
+  loc_005FB4C2: lea ecx, var_24
+  loc_005FB4C5: call [00401430h] ; __vbaFreeStr
+  loc_005FB4CB: lea ecx, var_34
+  loc_005FB4CE: call [0040142Ch] ; __vbaFreeObj
+  loc_005FB4D4: ret
+  loc_005FB4D5: mov eax, Me
+  loc_005FB4D8: mov ecx, [eax]
+  loc_005FB4DA: mov edx, Me
+  loc_005FB4DD: push edx
+  loc_005FB4DE: call [ecx+00000008h]
+  loc_005FB4E1: mov eax, arg_14
+  loc_005FB4E4: mov ecx, var_30
+  loc_005FB4E7: mov [eax], ecx
+  loc_005FB4E9: mov eax, var_10
+  loc_005FB4EC: mov ecx, var_20
+  loc_005FB4EF: mov fs:[00000000h], ecx
+  loc_005FB4F6: pop edi
+  loc_005FB4F7: pop esi
+  loc_005FB4F8: pop ebx
+  loc_005FB4F9: mov esp, ebp
+  loc_005FB4FB: pop ebp
+  loc_005FB4FC: retn 0010h
+End Function
+
+Public Function NewEnum(arg_C) '5FB510
+  loc_005FB510: push ebp
+  loc_005FB511: mov ebp, esp
+  loc_005FB513: sub esp, 0000000Ch
+  loc_005FB516: push 00412856h ; __vbaExceptHandler
+  loc_005FB51B: mov eax, fs:[00000000h]
+  loc_005FB521: push eax
+  loc_005FB522: mov fs:[00000000h], esp
+  loc_005FB529: sub esp, 00000014h
+  loc_005FB52C: push ebx
+  loc_005FB52D: push esi
+  loc_005FB52E: push edi
+  loc_005FB52F: mov var_C, esp
+  loc_005FB532: mov var_8, 00403DE0h
+  loc_005FB539: xor edi, edi
+  loc_005FB53B: mov var_4, edi
+  loc_005FB53E: mov esi, Me
+  loc_005FB541: push esi
+  loc_005FB542: mov eax, [esi]
+  loc_005FB544: call [eax+00000004h]
+  loc_005FB547: mov ecx, arg_C
+  loc_005FB54A: mov var_18, edi
+  loc_005FB54D: mov var_1C, edi
+  loc_005FB550: mov [ecx], edi
+  loc_005FB552: mov eax, [esi+00000038h]
+  loc_005FB555: lea ecx, var_1C
+  loc_005FB558: mov edx, [eax]
+  loc_005FB55A: push ecx
+  loc_005FB55B: push eax
+  loc_005FB55C: call [edx+0000002Ch]
+  loc_005FB55F: cmp eax, edi
+  loc_005FB561: fnclex
+  loc_005FB563: jge 005FB577h
+  loc_005FB565: mov edx, [esi+00000038h]
+  loc_005FB568: push 0000002Ch
+  loc_005FB56A: push 00447B68h
+  loc_005FB56F: push edx
+  loc_005FB570: push eax
+  loc_005FB571: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005FB577: mov eax, var_1C
+  loc_005FB57A: push 00447558h
+  loc_005FB57F: push eax
+  loc_005FB580: call [004013C4h] ; __vbaCastObj
+  loc_005FB586: lea ecx, var_18
+  loc_005FB589: push eax
+  loc_005FB58A: push ecx
+  loc_005FB58B: call [00401128h] ; __vbaObjSet
+  loc_005FB591: lea ecx, var_1C
+  loc_005FB594: call [0040142Ch] ; __vbaFreeObj
+  loc_005FB59A: push 005FB5BBh
+  loc_005FB59F: jmp 005FB5BAh
+  loc_005FB5A1: test var_4, 04h
+  loc_005FB5A5: jz 005FB5B0h
+  loc_005FB5A7: lea ecx, var_18
+  loc_005FB5AA: call [0040142Ch] ; __vbaFreeObj
+  loc_005FB5B0: lea ecx, var_1C
+  loc_005FB5B3: call [0040142Ch] ; __vbaFreeObj
+  loc_005FB5B9: ret
+  loc_005FB5BA: ret
+  loc_005FB5BB: mov eax, Me
+  loc_005FB5BE: push eax
+  loc_005FB5BF: mov edx, [eax]
+  loc_005FB5C1: call [edx+00000008h]
+  loc_005FB5C4: mov eax, arg_C
+  loc_005FB5C7: mov ecx, var_18
+  loc_005FB5CA: mov [eax], ecx
+  loc_005FB5CC: mov eax, var_4
+  loc_005FB5CF: mov ecx, var_14
+  loc_005FB5D2: pop edi
+  loc_005FB5D3: pop esi
+  loc_005FB5D4: mov fs:[00000000h], ecx
+  loc_005FB5DB: pop ebx
+  loc_005FB5DC: mov esp, ebp
+  loc_005FB5DE: pop ebp
+  loc_005FB5DF: retn 0008h
+End Function
+
+Public Sub Remove(index) '5FB5F0
+  loc_005FB5F0: push ebp
+  loc_005FB5F1: mov ebp, esp
+  loc_005FB5F3: sub esp, 00000018h
+  loc_005FB5F6: push 00412856h ; __vbaExceptHandler
+  loc_005FB5FB: mov eax, fs:[00000000h]
+  loc_005FB601: push eax
+  loc_005FB602: mov fs:[00000000h], esp
+  loc_005FB609: mov eax, 0000001Ch
+  loc_005FB60E: call 00412850h ; __vbaChkstk
+  loc_005FB613: push ebx
+  loc_005FB614: push esi
+  loc_005FB615: push edi
+  loc_005FB616: mov var_18, esp
+  loc_005FB619: mov var_14, 00403DF0h
+  loc_005FB620: mov var_10, 00000000h
+  loc_005FB627: mov var_C, 00000000h
+  loc_005FB62E: mov eax, Me
+  loc_005FB631: mov ecx, [eax]
+  loc_005FB633: mov edx, Me
+  loc_005FB636: push edx
+  loc_005FB637: call [ecx+00000004h]
+  loc_005FB63A: mov var_4, 00000001h
+  loc_005FB641: mov var_4, 00000002h
+  loc_005FB648: push FFFFFFFFh
+  loc_005FB64A: call [00401124h] ; __vbaOnError
+  loc_005FB650: mov var_4, 00000003h
+  loc_005FB657: mov eax, index
+  loc_005FB65A: push eax
+  loc_005FB65B: mov ecx, Me
+  loc_005FB65E: mov edx, [ecx+00000038h]
+  loc_005FB661: mov eax, Me
+  loc_005FB664: mov ecx, [eax+00000038h]
+  loc_005FB667: mov eax, [ecx]
+  loc_005FB669: push edx
+  loc_005FB66A: call [eax+00000028h]
+  loc_005FB66D: fnclex
+  loc_005FB66F: mov var_24, eax
+  loc_005FB672: cmp var_24, 00000000h
+  loc_005FB676: jge 005FB695h
+  loc_005FB678: push 00000028h
+  loc_005FB67A: push 00447B68h
+  loc_005FB67F: mov ecx, Me
+  loc_005FB682: mov edx, [ecx+00000038h]
+  loc_005FB685: push edx
+  loc_005FB686: mov eax, var_24
+  loc_005FB689: push eax
+  loc_005FB68A: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005FB690: mov var_3C, eax
+  loc_005FB693: jmp 005FB69Ch
+  loc_005FB695: mov var_3C, 00000000h
+  loc_005FB69C: mov ecx, Me
+  loc_005FB69F: mov edx, [ecx]
+  loc_005FB6A1: mov eax, Me
+  loc_005FB6A4: push eax
+  loc_005FB6A5: call [edx+00000008h]
+  loc_005FB6A8: mov eax, var_10
+  loc_005FB6AB: mov ecx, var_20
+  loc_005FB6AE: mov fs:[00000000h], ecx
+  loc_005FB6B5: pop edi
+  loc_005FB6B6: pop esi
+  loc_005FB6B7: pop ebx
+  loc_005FB6B8: mov esp, ebp
+  loc_005FB6BA: pop ebp
+  loc_005FB6BB: retn 0008h
+End Sub
+
+Public Function Item(index) '5FB6C0
+  loc_005FB6C0: push ebp
+  loc_005FB6C1: mov ebp, esp
+  loc_005FB6C3: sub esp, 00000018h
+  loc_005FB6C6: push 00412856h ; __vbaExceptHandler
+  loc_005FB6CB: mov eax, fs:[00000000h]
+  loc_005FB6D1: push eax
+  loc_005FB6D2: mov fs:[00000000h], esp
+  loc_005FB6D9: mov eax, 00000030h
+  loc_005FB6DE: call 00412850h ; __vbaChkstk
+  loc_005FB6E3: push ebx
+  loc_005FB6E4: push esi
+  loc_005FB6E5: push edi
+  loc_005FB6E6: mov var_18, esp
+  loc_005FB6E9: mov var_14, 00403E20h ; "-"
+  loc_005FB6F0: mov var_10, 00000000h
+  loc_005FB6F7: mov var_C, 00000000h
+  loc_005FB6FE: mov eax, Me
+  loc_005FB701: mov ecx, [eax]
+  loc_005FB703: mov edx, Me
+  loc_005FB706: push edx
+  loc_005FB707: call [ecx+00000004h]
+  loc_005FB70A: mov var_4, 00000001h
+  loc_005FB711: mov eax, arg_10
+  loc_005FB714: mov [eax], 00000000h
+  loc_005FB71A: mov var_4, 00000002h
+  loc_005FB721: push FFFFFFFFh
+  loc_005FB723: call [00401124h] ; __vbaOnError
+  loc_005FB729: mov var_4, 00000003h
+  loc_005FB730: lea ecx, var_34
+  loc_005FB733: push ecx
+  loc_005FB734: mov edx, index
+  loc_005FB737: push edx
+  loc_005FB738: mov eax, Me
+  loc_005FB73B: mov ecx, [eax+00000038h]
+  loc_005FB73E: mov edx, Me
+  loc_005FB741: mov eax, [edx+00000038h]
+  loc_005FB744: mov edx, [eax]
+  loc_005FB746: push ecx
+  loc_005FB747: call [edx+0000001Ch]
+  loc_005FB74A: fnclex
+  loc_005FB74C: mov var_38, eax
+  loc_005FB74F: cmp var_38, 00000000h
+  loc_005FB753: jge 005FB772h
+  loc_005FB755: push 0000001Ch
+  loc_005FB757: push 00447B68h
+  loc_005FB75C: mov eax, Me
+  loc_005FB75F: mov ecx, [eax+00000038h]
+  loc_005FB762: push ecx
+  loc_005FB763: mov edx, var_38
+  loc_005FB766: push edx
+  loc_005FB767: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005FB76D: mov var_50, eax
+  loc_005FB770: jmp 005FB779h
+  loc_005FB772: mov var_50, 00000000h
+  loc_005FB779: push 00447B04h
+  loc_005FB77E: lea eax, var_34
+  loc_005FB781: push eax
+  loc_005FB782: call [004011F8h] ; __vbaCastObjVar
+  loc_005FB788: push eax
+  loc_005FB789: lea ecx, var_24
+  loc_005FB78C: push ecx
+  loc_005FB78D: call [00401128h] ; __vbaObjSet
+  loc_005FB793: lea ecx, var_34
+  loc_005FB796: call [00401030h] ; __vbaFreeVar
+  loc_005FB79C: push 005FB7C1h
+  loc_005FB7A1: jmp 005FB7C0h
+  loc_005FB7A3: mov edx, var_10
+  loc_005FB7A6: and edx, 00000004h
+  loc_005FB7A9: test edx, edx
+  loc_005FB7AB: jz 005FB7B6h
+  loc_005FB7AD: lea ecx, var_24
+  loc_005FB7B0: call [0040142Ch] ; __vbaFreeObj
+  loc_005FB7B6: lea ecx, var_34
+  loc_005FB7B9: call [00401030h] ; __vbaFreeVar
+  loc_005FB7BF: ret
+  loc_005FB7C0: ret
+  loc_005FB7C1: mov eax, Me
+  loc_005FB7C4: mov ecx, [eax]
+  loc_005FB7C6: mov edx, Me
+  loc_005FB7C9: push edx
+  loc_005FB7CA: call [ecx+00000008h]
+  loc_005FB7CD: mov eax, arg_10
+  loc_005FB7D0: mov ecx, var_24
+  loc_005FB7D3: mov [eax], ecx
+  loc_005FB7D5: mov eax, var_10
+  loc_005FB7D8: mov ecx, var_20
+  loc_005FB7DB: mov fs:[00000000h], ecx
+  loc_005FB7E2: pop edi
+  loc_005FB7E3: pop esi
+  loc_005FB7E4: pop ebx
+  loc_005FB7E5: mov esp, ebp
+  loc_005FB7E7: pop ebp
+  loc_005FB7E8: retn 000Ch
+End Function
+
+Public Property Get Count(arg_C) '5FB7F0
+  loc_005FB7F0: push ebp
+  loc_005FB7F1: mov ebp, esp
+  loc_005FB7F3: sub esp, 0000000Ch
+  loc_005FB7F6: push 00412856h ; __vbaExceptHandler
+  loc_005FB7FB: mov eax, fs:[00000000h]
+  loc_005FB801: push eax
+  loc_005FB802: mov fs:[00000000h], esp
+  loc_005FB809: sub esp, 00000014h
+  loc_005FB80C: push ebx
+  loc_005FB80D: push esi
+  loc_005FB80E: push edi
+  loc_005FB80F: mov var_C, esp
+  loc_005FB812: mov var_8, 00403E50h
+  loc_005FB819: xor edi, edi
+  loc_005FB81B: mov var_4, edi
+  loc_005FB81E: mov esi, Me
+  loc_005FB821: push esi
+  loc_005FB822: mov eax, [esi]
+  loc_005FB824: call [eax+00000004h]
+  loc_005FB827: mov eax, [esi+00000038h]
+  loc_005FB82A: lea edx, var_1C
+  loc_005FB82D: mov var_1C, edi
+  loc_005FB830: push edx
+  loc_005FB831: mov ecx, [eax]
+  loc_005FB833: push eax
+  loc_005FB834: mov var_18, edi
+  loc_005FB837: call [ecx+00000024h]
+  loc_005FB83A: cmp eax, edi
+  loc_005FB83C: fnclex
+  loc_005FB83E: jge 005FB852h
+  loc_005FB840: mov ecx, [esi+00000038h]
+  loc_005FB843: push 00000024h
+  loc_005FB845: push 00447B68h
+  loc_005FB84A: push ecx
+  loc_005FB84B: push eax
+  loc_005FB84C: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005FB852: mov edx, var_1C
+  loc_005FB855: mov var_18, edx
+  loc_005FB858: mov eax, Me
+  loc_005FB85B: push eax
+  loc_005FB85C: mov ecx, [eax]
+  loc_005FB85E: call [ecx+00000008h]
+  loc_005FB861: mov edx, arg_C
+  loc_005FB864: mov eax, var_18
+  loc_005FB867: mov [edx], eax
+  loc_005FB869: mov eax, var_4
+  loc_005FB86C: mov ecx, var_14
+  loc_005FB86F: pop edi
+  loc_005FB870: pop esi
+  loc_005FB871: mov fs:[00000000h], ecx
+  loc_005FB878: pop ebx
+  loc_005FB879: mov esp, ebp
+  loc_005FB87B: pop ebp
+  loc_005FB87C: retn 0008h
+End Sub
+
+Public Function WeeksFromFirstOfYear(iIndex) '5FB880
+  loc_005FB880: push ebp
+  loc_005FB881: mov ebp, esp
+  loc_005FB883: sub esp, 0000000Ch
+  loc_005FB886: push 00412856h ; __vbaExceptHandler
+  loc_005FB88B: mov eax, fs:[00000000h]
+  loc_005FB891: push eax
+  loc_005FB892: mov fs:[00000000h], esp
+  loc_005FB899: sub esp, 0000002Ch
+  loc_005FB89C: push ebx
+  loc_005FB89D: push esi
+  loc_005FB89E: push edi
+  loc_005FB89F: mov var_C, esp
+  loc_005FB8A2: mov var_8, 00403E58h
+  loc_005FB8A9: xor esi, esi
+  loc_005FB8AB: mov var_4, esi
+  loc_005FB8AE: mov edi, Me
+  loc_005FB8B1: push edi
+  loc_005FB8B2: mov eax, [edi]
+  loc_005FB8B4: call [eax+00000004h]
+  loc_005FB8B7: mov ecx, arg_10
+  loc_005FB8BA: mov var_24, esi
+  loc_005FB8BD: mov var_34, esi
+  loc_005FB8C0: mov [ecx], esi
+  loc_005FB8C2: mov eax, [edi+00000034h]
+  loc_005FB8C5: cmp eax, esi
+  loc_005FB8C7: jz 005FB8EAh
+  loc_005FB8C9: cmp [eax], 0001h
+  loc_005FB8CD: jnz 005FB8EAh
+  loc_005FB8CF: movsx esi, iIndex
+  loc_005FB8D3: mov edx, [eax+00000014h]
+  loc_005FB8D6: mov ecx, [eax+00000010h]
+  loc_005FB8D9: sub esi, edx
+  loc_005FB8DB: cmp esi, ecx
+  loc_005FB8DD: jb 005FB8E5h
+  loc_005FB8DF: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_005FB8E5: lea eax, [esi+esi]
+  loc_005FB8E8: jmp 005FB8F0h
+  loc_005FB8EA: call [004011A8h] ; __vbaGenerateBoundsError
+  loc_005FB8F0: mov edx, [edi+00000034h]
+  loc_005FB8F3: mov ecx, [edx+0000000Ch]
+  loc_005FB8F6: mov dx, [ecx+eax]
+  loc_005FB8FA: lea ecx, var_24
+  loc_005FB8FD: mov var_2C, dx
+  loc_005FB901: lea edx, var_34
+  loc_005FB904: mov var_34, 00000002h
+  loc_005FB90B: call [00401020h] ; __vbaVarMove
+  loc_005FB911: push 005FB923h
+  loc_005FB916: jmp 005FB922h
+  loc_005FB918: lea ecx, var_24
+  loc_005FB91B: call [00401030h] ; __vbaFreeVar
+  loc_005FB921: ret
+  loc_005FB922: ret
+  loc_005FB923: mov eax, Me
+  loc_005FB926: push eax
+  loc_005FB927: mov ecx, [eax]
+  loc_005FB929: call [ecx+00000008h]
+  loc_005FB92C: mov edx, arg_10
+  loc_005FB92F: mov eax, var_24
+  loc_005FB932: mov ecx, var_20
+  loc_005FB935: mov [edx], eax
+  loc_005FB937: mov eax, var_1C
+  loc_005FB93A: mov [edx+00000004h], ecx
+  loc_005FB93D: mov ecx, var_18
+  loc_005FB940: mov [edx+00000008h], eax
+  loc_005FB943: mov [edx+0000000Ch], ecx
+  loc_005FB946: mov eax, var_4
+  loc_005FB949: mov ecx, var_14
+  loc_005FB94C: pop edi
+  loc_005FB94D: pop esi
+  loc_005FB94E: mov fs:[00000000h], ecx
+  loc_005FB955: pop ebx
+  loc_005FB956: mov esp, ebp
+  loc_005FB958: pop ebp
+  loc_005FB959: retn 000Ch
+End Function
+
+Private Sub Proc_12_6_5FACC0
+  loc_005FACC0: push ebp
+  loc_005FACC1: mov ebp, esp
+  loc_005FACC3: sub esp, 0000000Ch
+  loc_005FACC6: push 00412856h ; __vbaExceptHandler
+  loc_005FACCB: mov eax, fs:[00000000h]
+  loc_005FACD1: push eax
+  loc_005FACD2: mov fs:[00000000h], esp
+  loc_005FACD9: sub esp, 0000000Ch
+  loc_005FACDC: push ebx
+  loc_005FACDD: push esi
+  loc_005FACDE: push edi
+  loc_005FACDF: mov var_C, esp
+  loc_005FACE2: mov var_8, 00403D68h
+  loc_005FACE9: mov esi, Me
+  loc_005FACEC: mov eax, esi
+  loc_005FACEE: and eax, 00000001h
+  loc_005FACF1: mov var_4, eax
+  loc_005FACF4: and esi, FFFFFFFEh
+  loc_005FACF7: push esi
+  loc_005FACF8: mov Me, esi
+  loc_005FACFB: mov ecx, [esi]
+  loc_005FACFD: call [ecx+00000004h]
+  loc_005FAD00: xor edi, edi
+  loc_005FAD02: push 00447B78h
+  loc_005FAD07: mov var_18, edi
+  loc_005FAD0A: call [0040122Ch] ; __vbaNew
+  loc_005FAD10: lea edx, var_18
+  loc_005FAD13: push eax
+  loc_005FAD14: push edx
+  loc_005FAD15: call [00401128h] ; __vbaObjSet
+  loc_005FAD1B: add esi, 00000038h
+  loc_005FAD1E: push eax
+  loc_005FAD1F: push esi
+  loc_005FAD20: call [00401130h] ; __vbaObjSetAddref
+  loc_005FAD26: lea ecx, var_18
+  loc_005FAD29: call [0040142Ch] ; __vbaFreeObj
+  loc_005FAD2F: mov var_4, edi
+  loc_005FAD32: push 005FAD44h
+  loc_005FAD37: jmp 005FAD43h
+  loc_005FAD39: lea ecx, var_18
+  loc_005FAD3C: call [0040142Ch] ; __vbaFreeObj
+  loc_005FAD42: ret
+  loc_005FAD43: ret
+  loc_005FAD44: mov eax, Me
+  loc_005FAD47: push eax
+  loc_005FAD48: mov ecx, [eax]
+  loc_005FAD4A: call [ecx+00000008h]
+  loc_005FAD4D: mov eax, var_4
+  loc_005FAD50: mov ecx, var_14
+  loc_005FAD53: pop edi
+  loc_005FAD54: pop esi
+  loc_005FAD55: mov fs:[00000000h], ecx
+  loc_005FAD5C: pop ebx
+  loc_005FAD5D: mov esp, ebp
+  loc_005FAD5F: pop ebp
+  loc_005FAD60: retn 0004h
+End Sub

Src Code/clsBBPlayer.cls

@@ -0,0 +1,945 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "clsBBPlayer"
+Attribute VB_GlobalNameSpace = True
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+
+
+Public Property Let BBPlayerIsPlaying(blnNewBBPlayerIsPlaying) '702590
+  loc_00702590: push ebp
+  loc_00702591: mov ebp, esp
+  loc_00702593: sub esp, 0000000Ch
+  loc_00702596: push 00412856h ; __vbaExceptHandler
+  loc_0070259B: mov eax, fs:[00000000h]
+  loc_007025A1: push eax
+  loc_007025A2: mov fs:[00000000h], esp
+  loc_007025A9: sub esp, 00000008h
+  loc_007025AC: push ebx
+  loc_007025AD: push esi
+  loc_007025AE: push edi
+  loc_007025AF: mov var_C, esp
+  loc_007025B2: mov var_8, 00410348h
+  loc_007025B9: mov var_4, 00000000h
+  loc_007025C0: mov esi, Me
+  loc_007025C3: push esi
+  loc_007025C4: mov eax, [esi]
+  loc_007025C6: call [eax+00000004h]
+  loc_007025C9: mov ecx, blnNewBBPlayerIsPlaying
+  loc_007025CC: mov dx, [ecx]
+  loc_007025CF: mov [esi+0000003Ch], dx
+  loc_007025D3: mov eax, Me
+  loc_007025D6: push eax
+  loc_007025D7: mov ecx, [eax]
+  loc_007025D9: call [ecx+00000008h]
+  loc_007025DC: mov eax, var_4
+  loc_007025DF: mov ecx, var_14
+  loc_007025E2: pop edi
+  loc_007025E3: pop esi
+  loc_007025E4: mov fs:[00000000h], ecx
+  loc_007025EB: pop ebx
+  loc_007025EC: mov esp, ebp
+  loc_007025EE: pop ebp
+  loc_007025EF: retn 0008h
+End Sub
+
+Public Property Get BBPlayerIsPlaying(arg_C) '702600
+  loc_00702600: push ebp
+  loc_00702601: mov ebp, esp
+  loc_00702603: sub esp, 0000000Ch
+  loc_00702606: push 00412856h ; __vbaExceptHandler
+  loc_0070260B: mov eax, fs:[00000000h]
+  loc_00702611: push eax
+  loc_00702612: mov fs:[00000000h], esp
+  loc_00702619: sub esp, 0000000Ch
+  loc_0070261C: push ebx
+  loc_0070261D: push esi
+  loc_0070261E: push edi
+  loc_0070261F: mov var_C, esp
+  loc_00702622: mov var_8, 00410350h
+  loc_00702629: xor edi, edi
+  loc_0070262B: mov var_4, edi
+  loc_0070262E: mov esi, Me
+  loc_00702631: push esi
+  loc_00702632: mov eax, [esi]
+  loc_00702634: call [eax+00000004h]
+  loc_00702637: mov cx, [esi+0000003Ch]
+  loc_0070263B: mov var_18, edi
+  loc_0070263E: mov var_18, ecx
+  loc_00702641: mov eax, Me
+  loc_00702644: push eax
+  loc_00702645: mov edx, [eax]
+  loc_00702647: call [edx+00000008h]
+  loc_0070264A: mov eax, arg_C
+  loc_0070264D: mov cx, var_18
+  loc_00702651: mov [eax], cx
+  loc_00702654: mov eax, var_4
+  loc_00702657: mov ecx, var_14
+  loc_0070265A: pop edi
+  loc_0070265B: pop esi
+  loc_0070265C: mov fs:[00000000h], ecx
+  loc_00702663: pop ebx
+  loc_00702664: mov esp, ebp
+  loc_00702666: pop ebp
+  loc_00702667: retn 0008h
+End Sub
+
+Public Property Let BBPlayerWasInterrupted(blnNewBBPlayerWasInterrupted) '702670
+  loc_00702670: push ebp
+  loc_00702671: mov ebp, esp
+  loc_00702673: sub esp, 0000000Ch
+  loc_00702676: push 00412856h ; __vbaExceptHandler
+  loc_0070267B: mov eax, fs:[00000000h]
+  loc_00702681: push eax
+  loc_00702682: mov fs:[00000000h], esp
+  loc_00702689: sub esp, 00000008h
+  loc_0070268C: push ebx
+  loc_0070268D: push esi
+  loc_0070268E: push edi
+  loc_0070268F: mov var_C, esp
+  loc_00702692: mov var_8, 00410358h
+  loc_00702699: mov var_4, 00000000h
+  loc_007026A0: mov esi, Me
+  loc_007026A3: push esi
+  loc_007026A4: mov eax, [esi]
+  loc_007026A6: call [eax+00000004h]
+  loc_007026A9: mov ecx, blnNewBBPlayerWasInterrupted
+  loc_007026AC: mov dx, [ecx]
+  loc_007026AF: mov [esi+0000003Eh], dx
+  loc_007026B3: mov eax, Me
+  loc_007026B6: push eax
+  loc_007026B7: mov ecx, [eax]
+  loc_007026B9: call [ecx+00000008h]
+  loc_007026BC: mov eax, var_4
+  loc_007026BF: mov ecx, var_14
+  loc_007026C2: pop edi
+  loc_007026C3: pop esi
+  loc_007026C4: mov fs:[00000000h], ecx
+  loc_007026CB: pop ebx
+  loc_007026CC: mov esp, ebp
+  loc_007026CE: pop ebp
+  loc_007026CF: retn 0008h
+End Sub
+
+Public Property Get BBPlayerWasInterrupted(arg_C) '7026E0
+  loc_007026E0: push ebp
+  loc_007026E1: mov ebp, esp
+  loc_007026E3: sub esp, 0000000Ch
+  loc_007026E6: push 00412856h ; __vbaExceptHandler
+  loc_007026EB: mov eax, fs:[00000000h]
+  loc_007026F1: push eax
+  loc_007026F2: mov fs:[00000000h], esp
+  loc_007026F9: sub esp, 0000000Ch
+  loc_007026FC: push ebx
+  loc_007026FD: push esi
+  loc_007026FE: push edi
+  loc_007026FF: mov var_C, esp
+  loc_00702702: mov var_8, 00410360h
+  loc_00702709: xor edi, edi
+  loc_0070270B: mov var_4, edi
+  loc_0070270E: mov esi, Me
+  loc_00702711: push esi
+  loc_00702712: mov eax, [esi]
+  loc_00702714: call [eax+00000004h]
+  loc_00702717: mov cx, [esi+0000003Eh]
+  loc_0070271B: mov var_18, edi
+  loc_0070271E: mov var_18, ecx
+  loc_00702721: mov eax, Me
+  loc_00702724: push eax
+  loc_00702725: mov edx, [eax]
+  loc_00702727: call [edx+00000008h]
+  loc_0070272A: mov eax, arg_C
+  loc_0070272D: mov cx, var_18
+  loc_00702731: mov [eax], cx
+  loc_00702734: mov eax, var_4
+  loc_00702737: mov ecx, var_14
+  loc_0070273A: pop edi
+  loc_0070273B: pop esi
+  loc_0070273C: mov fs:[00000000h], ecx
+  loc_00702743: pop ebx
+  loc_00702744: mov esp, ebp
+  loc_00702746: pop ebp
+  loc_00702747: retn 0008h
+End Sub
+
+Public Sub StartUpCharacter() '702750
+  loc_00702750: push ebp
+  loc_00702751: mov ebp, esp
+  loc_00702753: sub esp, 0000000Ch
+  loc_00702756: push 00412856h ; __vbaExceptHandler
+  loc_0070275B: mov eax, fs:[00000000h]
+  loc_00702761: push eax
+  loc_00702762: mov fs:[00000000h], esp
+  loc_00702769: sub esp, 00000030h
+  loc_0070276C: push ebx
+  loc_0070276D: push esi
+  loc_0070276E: push edi
+  loc_0070276F: mov var_C, esp
+  loc_00702772: mov var_8, 00410368h
+  loc_00702779: mov var_4, 00000000h
+  loc_00702780: mov eax, Me
+  loc_00702783: push eax
+  loc_00702784: mov ecx, [eax]
+  loc_00702786: call [ecx+00000004h]
+  loc_00702789: mov eax, [0073A254h]
+  loc_0070278E: test eax, eax
+  loc_00702790: jnz 007027A2h
+  loc_00702792: push 0073A254h
+  loc_00702797: push 00431838h
+  loc_0070279C: call [004012FCh] ; __vbaNew2
+  loc_007027A2: sub esp, 00000010h
+  loc_007027A5: mov ecx, 0000000Ah
+  loc_007027AA: mov ebx, esp
+  loc_007027AC: mov var_24, ecx
+  loc_007027AF: mov eax, 80020004h
+  loc_007027B4: sub esp, 00000010h
+  loc_007027B7: mov [ebx], ecx
+  loc_007027B9: mov ecx, var_30
+  loc_007027BC: mov edx, eax
+  loc_007027BE: mov esi, [0073A254h]
+  loc_007027C4: mov [ebx+00000004h], ecx
+  loc_007027C7: mov ecx, esp
+  loc_007027C9: mov edi, [esi]
+  loc_007027CB: push esi
+  loc_007027CC: mov [ebx+00000008h], eax
+  loc_007027CF: mov eax, var_28
+  loc_007027D2: mov [ebx+0000000Ch], eax
+  loc_007027D5: mov eax, var_24
+  loc_007027D8: mov [ecx], eax
+  loc_007027DA: mov eax, var_20
+  loc_007027DD: mov [ecx+00000004h], eax
+  loc_007027E0: mov [ecx+00000008h], edx
+  loc_007027E3: mov edx, var_18
+  loc_007027E6: mov [ecx+0000000Ch], edx
+  loc_007027E9: call [edi+000002B0h]
+  loc_007027EF: test eax, eax
+  loc_007027F1: fnclex
+  loc_007027F3: jge 00702807h
+  loc_007027F5: push 000002B0h
+  loc_007027FA: push 00440B20h
+  loc_007027FF: push esi
+  loc_00702800: push eax
+  loc_00702801: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00702807: mov eax, Me
+  loc_0070280A: push eax
+  loc_0070280B: mov ecx, [eax]
+  loc_0070280D: call [ecx+00000008h]
+  loc_00702810: mov eax, var_4
+  loc_00702813: mov ecx, var_14
+  loc_00702816: pop edi
+  loc_00702817: pop esi
+  loc_00702818: mov fs:[00000000h], ecx
+  loc_0070281F: pop ebx
+  loc_00702820: mov esp, ebp
+  loc_00702822: pop ebp
+  loc_00702823: retn 0004h
+End Sub
+
+Public Sub ShutDownCharacter() '702830
+  loc_00702830: push ebp
+  loc_00702831: mov ebp, esp
+  loc_00702833: sub esp, 0000000Ch
+  loc_00702836: push 00412856h ; __vbaExceptHandler
+  loc_0070283B: mov eax, fs:[00000000h]
+  loc_00702841: push eax
+  loc_00702842: mov fs:[00000000h], esp
+  loc_00702849: sub esp, 00000014h
+  loc_0070284C: push ebx
+  loc_0070284D: push esi
+  loc_0070284E: push edi
+  loc_0070284F: mov var_C, esp
+  loc_00702852: mov var_8, 00410370h
+  loc_00702859: xor edi, edi
+  loc_0070285B: mov var_4, edi
+  loc_0070285E: mov eax, Me
+  loc_00702861: push eax
+  loc_00702862: mov ecx, [eax]
+  loc_00702864: call [ecx+00000004h]
+  loc_00702867: mov eax, [0073C818h]
+  loc_0070286C: mov var_18, edi
+  loc_0070286F: cmp eax, edi
+  loc_00702871: jnz 00702883h
+  loc_00702873: push 0073C818h
+  loc_00702878: push 00441F00h
+  loc_0070287D: call [004012FCh] ; __vbaNew2
+  loc_00702883: mov eax, [0073A254h]
+  loc_00702888: mov esi, [0073C818h]
+  loc_0070288E: cmp eax, edi
+  loc_00702890: jnz 007028A2h
+  loc_00702892: push 0073A254h
+  loc_00702897: push 00431838h
+  loc_0070289C: call [004012FCh] ; __vbaNew2
+  loc_007028A2: mov edx, [0073A254h]
+  loc_007028A8: mov ebx, [esi]
+  loc_007028AA: lea eax, var_18
+  loc_007028AD: push edx
+  loc_007028AE: push eax
+  loc_007028AF: call [00401130h] ; __vbaObjSetAddref
+  loc_007028B5: push eax
+  loc_007028B6: push esi
+  loc_007028B7: call [ebx+00000010h]
+  loc_007028BA: cmp eax, edi
+  loc_007028BC: fnclex
+  loc_007028BE: jge 007028CFh
+  loc_007028C0: push 00000010h
+  loc_007028C2: push 00441EF0h
+  loc_007028C7: push esi
+  loc_007028C8: push eax
+  loc_007028C9: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007028CF: lea ecx, var_18
+  loc_007028D2: call [0040142Ch] ; __vbaFreeObj
+  loc_007028D8: push 007028EAh
+  loc_007028DD: jmp 007028E9h
+  loc_007028DF: lea ecx, var_18
+  loc_007028E2: call [0040142Ch] ; __vbaFreeObj
+  loc_007028E8: ret
+  loc_007028E9: ret
+  loc_007028EA: mov eax, Me
+  loc_007028ED: push eax
+  loc_007028EE: mov ecx, [eax]
+  loc_007028F0: call [ecx+00000008h]
+  loc_007028F3: mov eax, var_4
+  loc_007028F6: mov ecx, var_14
+  loc_007028F9: pop edi
+  loc_007028FA: pop esi
+  loc_007028FB: mov fs:[00000000h], ecx
+  loc_00702902: pop ebx
+  loc_00702903: mov esp, ebp
+  loc_00702905: pop ebp
+  loc_00702906: retn 0004h
+End Sub
+
+Public Sub FireBBPlayerStop() '702910
+  loc_00702910: push ebp
+  loc_00702911: mov ebp, esp
+  loc_00702913: sub esp, 0000000Ch
+  loc_00702916: push 00412856h ; __vbaExceptHandler
+  loc_0070291B: mov eax, fs:[00000000h]
+  loc_00702921: push eax
+  loc_00702922: mov fs:[00000000h], esp
+  loc_00702929: sub esp, 00000008h
+  loc_0070292C: push ebx
+  loc_0070292D: push esi
+  loc_0070292E: push edi
+  loc_0070292F: mov var_C, esp
+  loc_00702932: mov var_8, 00410380h
+  loc_00702939: mov var_4, 00000000h
+  loc_00702940: mov esi, Me
+  loc_00702943: push esi
+  loc_00702944: mov eax, [esi]
+  loc_00702946: call [eax+00000004h]
+  loc_00702949: push 00000000h
+  loc_0070294B: push 00000001h
+  loc_0070294D: push esi
+  loc_0070294E: call [00401064h] ; __vbaRaiseEvent
+  loc_00702954: add esp, 0000000Ch
+  loc_00702957: mov eax, Me
+  loc_0070295A: push eax
+  loc_0070295B: mov ecx, [eax]
+  loc_0070295D: call [ecx+00000008h]
+  loc_00702960: mov eax, var_4
+  loc_00702963: mov ecx, var_14
+  loc_00702966: pop edi
+  loc_00702967: pop esi
+  loc_00702968: mov fs:[00000000h], ecx
+  loc_0070296F: pop ebx
+  loc_00702970: mov esp, ebp
+  loc_00702972: pop ebp
+  loc_00702973: retn 0004h
+End Sub
+
+Public Sub FireBBPlayerContinue() '702980
+  loc_00702980: push ebp
+  loc_00702981: mov ebp, esp
+  loc_00702983: sub esp, 0000000Ch
+  loc_00702986: push 00412856h ; __vbaExceptHandler
+  loc_0070298B: mov eax, fs:[00000000h]
+  loc_00702991: push eax
+  loc_00702992: mov fs:[00000000h], esp
+  loc_00702999: sub esp, 00000008h
+  loc_0070299C: push ebx
+  loc_0070299D: push esi
+  loc_0070299E: push edi
+  loc_0070299F: mov var_C, esp
+  loc_007029A2: mov var_8, 00410388h
+  loc_007029A9: xor edi, edi
+  loc_007029AB: mov var_4, edi
+  loc_007029AE: mov esi, Me
+  loc_007029B1: push esi
+  loc_007029B2: mov eax, [esi]
+  loc_007029B4: call [eax+00000004h]
+  loc_007029B7: push edi
+  loc_007029B8: push 00000002h
+  loc_007029BA: push esi
+  loc_007029BB: call [00401064h] ; __vbaRaiseEvent
+  loc_007029C1: add esp, 0000000Ch
+  loc_007029C4: mov [esi+0000003Eh], di
+  loc_007029C8: mov eax, Me
+  loc_007029CB: push eax
+  loc_007029CC: mov ecx, [eax]
+  loc_007029CE: call [ecx+00000008h]
+  loc_007029D1: mov eax, var_4
+  loc_007029D4: mov ecx, var_14
+  loc_007029D7: pop edi
+  loc_007029D8: pop esi
+  loc_007029D9: mov fs:[00000000h], ecx
+  loc_007029E0: pop ebx
+  loc_007029E1: mov esp, ebp
+  loc_007029E3: pop ebp
+  loc_007029E4: retn 0004h
+End Sub
+
+Public Sub FireBBPlayerShutDown() '7029F0
+  loc_007029F0: push ebp
+  loc_007029F1: mov ebp, esp
+  loc_007029F3: sub esp, 0000000Ch
+  loc_007029F6: push 00412856h ; __vbaExceptHandler
+  loc_007029FB: mov eax, fs:[00000000h]
+  loc_00702A01: push eax
+  loc_00702A02: mov fs:[00000000h], esp
+  loc_00702A09: sub esp, 00000018h
+  loc_00702A0C: push ebx
+  loc_00702A0D: push esi
+  loc_00702A0E: push edi
+  loc_00702A0F: mov var_C, esp
+  loc_00702A12: mov var_8, 00410390h
+  loc_00702A19: xor ebx, ebx
+  loc_00702A1B: mov var_4, ebx
+  loc_00702A1E: mov esi, Me
+  loc_00702A21: push esi
+  loc_00702A22: mov eax, [esi]
+  loc_00702A24: call [eax+00000004h]
+  loc_00702A27: push ebx
+  loc_00702A28: push 00000003h
+  loc_00702A2A: push esi
+  loc_00702A2B: mov var_18, ebx
+  loc_00702A2E: mov var_1C, ebx
+  loc_00702A31: call [00401064h] ; __vbaRaiseEvent
+  loc_00702A37: mov eax, [0073A254h]
+  loc_00702A3C: add esp, 0000000Ch
+  loc_00702A3F: cmp eax, ebx
+  loc_00702A41: jnz 00702A53h
+  loc_00702A43: push 0073A254h
+  loc_00702A48: push 00431838h
+  loc_00702A4D: call [004012FCh] ; __vbaNew2
+  loc_00702A53: mov edi, [00401310h] ; __vbaStrCopy
+  loc_00702A59: mov esi, [0073A254h]
+  loc_00702A5F: mov edx, 004745C8h ; "FireBBPlayerShutDown"
+  loc_00702A64: lea ecx, var_1C
+  loc_00702A67: call edi
+  loc_00702A69: mov edx, 00474594h ; "Shutting down BBPlayer."
+  loc_00702A6E: lea ecx, var_18
+  loc_00702A71: call edi
+  loc_00702A73: mov ecx, [esi]
+  loc_00702A75: lea edx, var_1C
+  loc_00702A78: lea eax, var_18
+  loc_00702A7B: push edx
+  loc_00702A7C: push eax
+  loc_00702A7D: push esi
+  loc_00702A7E: call [ecx+00000748h]
+  loc_00702A84: cmp eax, ebx
+  loc_00702A86: fnclex
+  loc_00702A88: jge 00702A9Ch
+  loc_00702A8A: push 00000748h
+  loc_00702A8F: push 004408D0h
+  loc_00702A94: push esi
+  loc_00702A95: push eax
+  loc_00702A96: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00702A9C: lea ecx, var_1C
+  loc_00702A9F: lea edx, var_18
+  loc_00702AA2: push ecx
+  loc_00702AA3: push edx
+  loc_00702AA4: push 00000002h
+  loc_00702AA6: call [00401324h] ; __vbaFreeStrList
+  loc_00702AAC: add esp, 0000000Ch
+  loc_00702AAF: push 00702ACBh
+  loc_00702AB4: jmp 00702ACAh
+  loc_00702AB6: lea eax, var_1C
+  loc_00702AB9: lea ecx, var_18
+  loc_00702ABC: push eax
+  loc_00702ABD: push ecx
+  loc_00702ABE: push 00000002h
+  loc_00702AC0: call [00401324h] ; __vbaFreeStrList
+  loc_00702AC6: add esp, 0000000Ch
+  loc_00702AC9: ret
+  loc_00702ACA: ret
+  loc_00702ACB: mov eax, Me
+  loc_00702ACE: push eax
+  loc_00702ACF: mov edx, [eax]
+  loc_00702AD1: call [edx+00000008h]
+  loc_00702AD4: mov eax, var_4
+  loc_00702AD7: mov ecx, var_14
+  loc_00702ADA: pop edi
+  loc_00702ADB: pop esi
+  loc_00702ADC: mov fs:[00000000h], ecx
+  loc_00702AE3: pop ebx
+  loc_00702AE4: mov esp, ebp
+  loc_00702AE6: pop ebp
+  loc_00702AE7: retn 0004h
+End Sub
+
+Public Sub BBPlayerStartup(objBBPlayer) '702AF0
+  loc_00702AF0: push ebp
+  loc_00702AF1: mov ebp, esp
+  loc_00702AF3: sub esp, 0000000Ch
+  loc_00702AF6: push 00412856h ; __vbaExceptHandler
+  loc_00702AFB: mov eax, fs:[00000000h]
+  loc_00702B01: push eax
+  loc_00702B02: mov fs:[00000000h], esp
+  loc_00702B09: sub esp, 00000008h
+  loc_00702B0C: push ebx
+  loc_00702B0D: push esi
+  loc_00702B0E: push edi
+  loc_00702B0F: mov var_C, esp
+  loc_00702B12: mov var_8, 004103A0h
+  loc_00702B19: mov var_4, 00000000h
+  loc_00702B20: mov eax, Me
+  loc_00702B23: push eax
+  loc_00702B24: mov ecx, [eax]
+  loc_00702B26: call [ecx+00000004h]
+  loc_00702B29: mov edx, objBBPlayer
+  loc_00702B2C: mov eax, [edx]
+  loc_00702B2E: push eax
+  loc_00702B2F: push 0073A210h
+  loc_00702B34: call [00401130h] ; __vbaObjSetAddref
+  loc_00702B3A: mov eax, Me
+  loc_00702B3D: push eax
+  loc_00702B3E: mov ecx, [eax]
+  loc_00702B40: call [ecx+00000008h]
+  loc_00702B43: mov eax, var_4
+  loc_00702B46: mov ecx, var_14
+  loc_00702B49: pop edi
+  loc_00702B4A: pop esi
+  loc_00702B4B: mov fs:[00000000h], ecx
+  loc_00702B52: pop ebx
+  loc_00702B53: mov esp, ebp
+  loc_00702B55: pop ebp
+  loc_00702B56: retn 0008h
+End Sub
+
+Public Sub BBPlayerShutDown() '702B60
+  loc_00702B60: push ebp
+  loc_00702B61: mov ebp, esp
+  loc_00702B63: sub esp, 0000000Ch
+  loc_00702B66: push 00412856h ; __vbaExceptHandler
+  loc_00702B6B: mov eax, fs:[00000000h]
+  loc_00702B71: push eax
+  loc_00702B72: mov fs:[00000000h], esp
+  loc_00702B79: sub esp, 00000008h
+  loc_00702B7C: push ebx
+  loc_00702B7D: push esi
+  loc_00702B7E: push edi
+  loc_00702B7F: mov var_C, esp
+  loc_00702B82: mov var_8, 004103A8h
+  loc_00702B89: mov var_4, 00000000h
+  loc_00702B90: mov eax, Me
+  loc_00702B93: push eax
+  loc_00702B94: mov ecx, [eax]
+  loc_00702B96: call [ecx+00000004h]
+  loc_00702B99: push 004523B0h
+  loc_00702B9E: push 00000000h
+  loc_00702BA0: call [004013C4h] ; __vbaCastObj
+  loc_00702BA6: push eax
+  loc_00702BA7: push 0073A210h
+  loc_00702BAC: call [00401128h] ; __vbaObjSet
+  loc_00702BB2: mov eax, Me
+  loc_00702BB5: push eax
+  loc_00702BB6: mov edx, [eax]
+  loc_00702BB8: call [edx+00000008h]
+  loc_00702BBB: mov eax, var_4
+  loc_00702BBE: mov ecx, var_14
+  loc_00702BC1: pop edi
+  loc_00702BC2: pop esi
+  loc_00702BC3: mov fs:[00000000h], ecx
+  loc_00702BCA: pop ebx
+  loc_00702BCB: mov esp, ebp
+  loc_00702BCD: pop ebp
+  loc_00702BCE: retn 0004h
+End Sub
+
+Public Sub BBPlayerPausePlayback(strCaller) '702BE0
+  loc_00702BE0: push ebp
+  loc_00702BE1: mov ebp, esp
+  loc_00702BE3: sub esp, 0000000Ch
+  loc_00702BE6: push 00412856h ; __vbaExceptHandler
+  loc_00702BEB: mov eax, fs:[00000000h]
+  loc_00702BF1: push eax
+  loc_00702BF2: mov fs:[00000000h], esp
+  loc_00702BF9: sub esp, 0000001Ch
+  loc_00702BFC: push ebx
+  loc_00702BFD: push esi
+  loc_00702BFE: push edi
+  loc_00702BFF: mov var_C, esp
+  loc_00702C02: mov var_8, 004103B0h
+  loc_00702C09: xor ebx, ebx
+  loc_00702C0B: mov var_4, ebx
+  loc_00702C0E: mov esi, Me
+  loc_00702C11: push esi
+  loc_00702C12: mov eax, [esi]
+  loc_00702C14: call [eax+00000004h]
+  loc_00702C17: mov edi, strCaller
+  loc_00702C1A: mov var_18, ebx
+  loc_00702C1D: mov var_1C, ebx
+  loc_00702C20: mov var_20, ebx
+  loc_00702C23: mov ecx, [edi]
+  loc_00702C25: push ecx
+  loc_00702C26: call [00401044h] ; __vbaLenBstr
+  loc_00702C2C: test eax, eax
+  loc_00702C2E: jz 00702C34h
+  loc_00702C30: mov edx, [edi]
+  loc_00702C32: jmp 00702C39h
+  loc_00702C34: mov edx, 004745F8h ; "BBPlayerPausePlayback"
+  loc_00702C39: lea ecx, var_18
+  loc_00702C3C: call [00401310h] ; __vbaStrCopy
+  loc_00702C42: mov edx, [esi]
+  loc_00702C44: lea eax, var_20
+  loc_00702C47: push eax
+  loc_00702C48: push esi
+  loc_00702C49: call [edx+00000020h]
+  loc_00702C4C: cmp eax, ebx
+  loc_00702C4E: jge 00702C63h
+  loc_00702C50: mov edi, [004010CCh] ; __vbaHresultCheckObj
+  loc_00702C56: push 00000020h
+  loc_00702C58: push 004523B0h
+  loc_00702C5D: push esi
+  loc_00702C5E: push eax
+  loc_00702C5F: call edi
+  loc_00702C61: jmp 00702C69h
+  loc_00702C63: mov edi, [004010CCh] ; __vbaHresultCheckObj
+  loc_00702C69: cmp var_20, bx
+  loc_00702C6D: jz 00702DC3h
+  loc_00702C73: cmp [0073A254h], ebx
+  loc_00702C79: jnz 00702C8Bh
+  loc_00702C7B: push 0073A254h
+  loc_00702C80: push 00431838h
+  loc_00702C85: call [004012FCh] ; __vbaNew2
+  loc_00702C8B: mov esi, [0073A254h]
+  loc_00702C91: mov edx, 00447910h ; "Stopping Playback"
+  loc_00702C96: lea ecx, var_1C
+  loc_00702C99: call [00401310h] ; __vbaStrCopy
+  loc_00702C9F: mov ecx, [esi]
+  loc_00702CA1: lea edx, var_18
+  loc_00702CA4: lea eax, var_1C
+  loc_00702CA7: push edx
+  loc_00702CA8: push eax
+  loc_00702CA9: push esi
+  loc_00702CAA: call [ecx+00000748h]
+  loc_00702CB0: cmp eax, ebx
+  loc_00702CB2: fnclex
+  loc_00702CB4: jge 00702CC4h
+  loc_00702CB6: push 00000748h
+  loc_00702CBB: push 004408D0h
+  loc_00702CC0: push esi
+  loc_00702CC1: push eax
+  loc_00702CC2: call edi
+  loc_00702CC4: lea ecx, var_1C
+  loc_00702CC7: call [00401430h] ; __vbaFreeStr
+  loc_00702CCD: mov eax, [0073A210h]
+  loc_00702CD2: push eax
+  loc_00702CD3: mov ecx, [eax]
+  loc_00702CD5: call [ecx+00000034h]
+  loc_00702CD8: cmp eax, ebx
+  loc_00702CDA: fnclex
+  loc_00702CDC: jge 00702CEFh
+  loc_00702CDE: mov edx, [0073A210h]
+  loc_00702CE4: push 00000034h
+  loc_00702CE6: push 004523B0h
+  loc_00702CEB: push edx
+  loc_00702CEC: push eax
+  loc_00702CED: call edi
+  loc_00702CEF: mov eax, [0073A210h]
+  loc_00702CF4: lea edx, var_20
+  loc_00702CF7: mov var_20, FFFFFFFFh
+  loc_00702CFE: push edx
+  loc_00702CFF: mov ecx, [eax]
+  loc_00702D01: push eax
+  loc_00702D02: call [ecx+00000024h]
+  loc_00702D05: cmp eax, ebx
+  loc_00702D07: fnclex
+  loc_00702D09: jge 00702D1Ch
+  loc_00702D0B: mov ecx, [0073A210h]
+  loc_00702D11: push 00000024h
+  loc_00702D13: push 004523B0h
+  loc_00702D18: push ecx
+  loc_00702D19: push eax
+  loc_00702D1A: call edi
+  loc_00702D1C: mov esi, [00401238h] ; __vbaObjIs
+  loc_00702D22: mov ebx, [0040113Ch] ; rtcDoEvents
+  loc_00702D28: mov eax, [0073A210h]
+  loc_00702D2D: lea ecx, var_20
+  loc_00702D30: push ecx
+  loc_00702D31: push eax
+  loc_00702D32: mov edx, [eax]
+  loc_00702D34: call [edx+00000020h]
+  loc_00702D37: test eax, eax
+  loc_00702D39: fnclex
+  loc_00702D3B: jge 00702D4Eh
+  loc_00702D3D: mov edx, [0073A210h]
+  loc_00702D43: push 00000020h
+  loc_00702D45: push 004523B0h
+  loc_00702D4A: push edx
+  loc_00702D4B: push eax
+  loc_00702D4C: call edi
+  loc_00702D4E: cmp var_20, 0000h
+  loc_00702D53: jz 00702D68h
+  loc_00702D55: mov eax, [0073A210h]
+  loc_00702D5A: push 00000000h
+  loc_00702D5C: push eax
+  loc_00702D5D: call __vbaObjIs
+  loc_00702D5F: test ax, ax
+  loc_00702D62: jnz 00702D68h
+  loc_00702D64: call ebx
+  loc_00702D66: jmp 00702D28h
+  loc_00702D68: mov eax, [0073A254h]
+  loc_00702D6D: test eax, eax
+  loc_00702D6F: jnz 00702D81h
+  loc_00702D71: push 0073A254h
+  loc_00702D76: push 00431838h
+  loc_00702D7B: call [004012FCh] ; __vbaNew2
+  loc_00702D81: mov esi, [0073A254h]
+  loc_00702D87: mov edx, 00447938h ; "Stopped Playback"
+  loc_00702D8C: lea ecx, var_1C
+  loc_00702D8F: call [00401310h] ; __vbaStrCopy
+  loc_00702D95: mov ecx, [esi]
+  loc_00702D97: lea edx, var_18
+  loc_00702D9A: lea eax, var_1C
+  loc_00702D9D: push edx
+  loc_00702D9E: push eax
+  loc_00702D9F: push esi
+  loc_00702DA0: call [ecx+00000748h]
+  loc_00702DA6: test eax, eax
+  loc_00702DA8: fnclex
+  loc_00702DAA: jge 00702DBAh
+  loc_00702DAC: push 00000748h
+  loc_00702DB1: push 004408D0h
+  loc_00702DB6: push esi
+  loc_00702DB7: push eax
+  loc_00702DB8: call edi
+  loc_00702DBA: lea ecx, var_1C
+  loc_00702DBD: call [00401430h] ; __vbaFreeStr
+  loc_00702DC3: push 00702DDEh
+  loc_00702DC8: jmp 00702DD4h
+  loc_00702DCA: lea ecx, var_1C
+  loc_00702DCD: call [00401430h] ; __vbaFreeStr
+  loc_00702DD3: ret
+  loc_00702DD4: lea ecx, var_18
+  loc_00702DD7: call [00401430h] ; __vbaFreeStr
+  loc_00702DDD: ret
+  loc_00702DDE: mov eax, Me
+  loc_00702DE1: push eax
+  loc_00702DE2: mov ecx, [eax]
+  loc_00702DE4: call [ecx+00000008h]
+  loc_00702DE7: mov eax, var_4
+  loc_00702DEA: mov ecx, var_14
+  loc_00702DED: pop edi
+  loc_00702DEE: pop esi
+  loc_00702DEF: mov fs:[00000000h], ecx
+  loc_00702DF6: pop ebx
+  loc_00702DF7: mov esp, ebp
+  loc_00702DF9: pop ebp
+  loc_00702DFA: retn 0008h
+End Sub
+
+Public Sub BBPlayerResumePlayback(strCaller) '702E00
+  loc_00702E00: push ebp
+  loc_00702E01: mov ebp, esp
+  loc_00702E03: sub esp, 0000000Ch
+  loc_00702E06: push 00412856h ; __vbaExceptHandler
+  loc_00702E0B: mov eax, fs:[00000000h]
+  loc_00702E11: push eax
+  loc_00702E12: mov fs:[00000000h], esp
+  loc_00702E19: sub esp, 0000001Ch
+  loc_00702E1C: push ebx
+  loc_00702E1D: push esi
+  loc_00702E1E: push edi
+  loc_00702E1F: mov var_C, esp
+  loc_00702E22: mov var_8, 004103C0h
+  loc_00702E29: xor ebx, ebx
+  loc_00702E2B: mov var_4, ebx
+  loc_00702E2E: mov eax, Me
+  loc_00702E31: push eax
+  loc_00702E32: mov ecx, [eax]
+  loc_00702E34: call [ecx+00000004h]
+  loc_00702E37: mov esi, strCaller
+  loc_00702E3A: mov var_18, ebx
+  loc_00702E3D: mov var_1C, ebx
+  loc_00702E40: mov var_20, ebx
+  loc_00702E43: mov edx, [esi]
+  loc_00702E45: push edx
+  loc_00702E46: call [00401044h] ; __vbaLenBstr
+  loc_00702E4C: test eax, eax
+  loc_00702E4E: jz 00702E54h
+  loc_00702E50: mov edx, [esi]
+  loc_00702E52: jmp 00702E59h
+  loc_00702E54: mov edx, 00474628h ; "BBPlayerResumePlayback"
+  loc_00702E59: lea ecx, var_18
+  loc_00702E5C: call [00401310h] ; __vbaStrCopy
+  loc_00702E62: mov eax, [0073A210h]
+  loc_00702E67: lea edx, var_20
+  loc_00702E6A: push edx
+  loc_00702E6B: push eax
+  loc_00702E6C: mov ecx, [eax]
+  loc_00702E6E: call [ecx+00000028h]
+  loc_00702E71: cmp eax, ebx
+  loc_00702E73: fnclex
+  loc_00702E75: jge 00702E90h
+  loc_00702E77: mov ecx, [0073A210h]
+  loc_00702E7D: mov edi, [004010CCh] ; __vbaHresultCheckObj
+  loc_00702E83: push 00000028h
+  loc_00702E85: push 004523B0h
+  loc_00702E8A: push ecx
+  loc_00702E8B: push eax
+  loc_00702E8C: call edi
+  loc_00702E8E: jmp 00702E96h
+  loc_00702E90: mov edi, [004010CCh] ; __vbaHresultCheckObj
+  loc_00702E96: cmp var_20, bx
+  loc_00702E9A: jz 00702F75h
+  loc_00702EA0: cmp [0073A254h], ebx
+  loc_00702EA6: jnz 00702EB8h
+  loc_00702EA8: push 0073A254h
+  loc_00702EAD: push 00431838h
+  loc_00702EB2: call [004012FCh] ; __vbaNew2
+  loc_00702EB8: mov esi, [0073A254h]
+  loc_00702EBE: mov edx, 0047465Ch ; "Continuing Playback"
+  loc_00702EC3: lea ecx, var_1C
+  loc_00702EC6: call [00401310h] ; __vbaStrCopy
+  loc_00702ECC: mov edx, [esi]
+  loc_00702ECE: lea eax, var_18
+  loc_00702ED1: lea ecx, var_1C
+  loc_00702ED4: push eax
+  loc_00702ED5: push ecx
+  loc_00702ED6: push esi
+  loc_00702ED7: call [edx+00000748h]
+  loc_00702EDD: cmp eax, ebx
+  loc_00702EDF: fnclex
+  loc_00702EE1: jge 00702EF1h
+  loc_00702EE3: push 00000748h
+  loc_00702EE8: push 004408D0h
+  loc_00702EED: push esi
+  loc_00702EEE: push eax
+  loc_00702EEF: call edi
+  loc_00702EF1: mov ebx, [00401430h] ; __vbaFreeStr
+  loc_00702EF7: lea ecx, var_1C
+  loc_00702EFA: call ebx
+  loc_00702EFC: mov eax, [0073A210h]
+  loc_00702F01: push eax
+  loc_00702F02: mov edx, [eax]
+  loc_00702F04: call [edx+00000038h]
+  loc_00702F07: test eax, eax
+  loc_00702F09: fnclex
+  loc_00702F0B: jge 00702F1Eh
+  loc_00702F0D: mov ecx, [0073A210h]
+  loc_00702F13: push 00000038h
+  loc_00702F15: push 004523B0h
+  loc_00702F1A: push ecx
+  loc_00702F1B: push eax
+  loc_00702F1C: call edi
+  loc_00702F1E: mov eax, [0073A254h]
+  loc_00702F23: test eax, eax
+  loc_00702F25: jnz 00702F37h
+  loc_00702F27: push 0073A254h
+  loc_00702F2C: push 00431838h
+  loc_00702F31: call [004012FCh] ; __vbaNew2
+  loc_00702F37: mov esi, [0073A254h]
+  loc_00702F3D: mov edx, 00474688h ; "Continued Playback"
+  loc_00702F42: lea ecx, var_1C
+  loc_00702F45: call [00401310h] ; __vbaStrCopy
+  loc_00702F4B: mov edx, [esi]
+  loc_00702F4D: lea eax, var_18
+  loc_00702F50: lea ecx, var_1C
+  loc_00702F53: push eax
+  loc_00702F54: push ecx
+  loc_00702F55: push esi
+  loc_00702F56: call [edx+00000748h]
+  loc_00702F5C: test eax, eax
+  loc_00702F5E: fnclex
+  loc_00702F60: jge 00702F70h
+  loc_00702F62: push 00000748h
+  loc_00702F67: push 004408D0h
+  loc_00702F6C: push esi
+  loc_00702F6D: push eax
+  loc_00702F6E: call edi
+  loc_00702F70: lea ecx, var_1C
+  loc_00702F73: call ebx
+  loc_00702F75: push 00702F90h
+  loc_00702F7A: jmp 00702F86h
+  loc_00702F7C: lea ecx, var_1C
+  loc_00702F7F: call [00401430h] ; __vbaFreeStr
+  loc_00702F85: ret
+  loc_00702F86: lea ecx, var_18
+  loc_00702F89: call [00401430h] ; __vbaFreeStr
+  loc_00702F8F: ret
+  loc_00702F90: mov eax, Me
+  loc_00702F93: push eax
+  loc_00702F94: mov edx, [eax]
+  loc_00702F96: call [edx+00000008h]
+  loc_00702F99: mov eax, var_4
+  loc_00702F9C: mov ecx, var_14
+  loc_00702F9F: pop edi
+  loc_00702FA0: pop esi
+  loc_00702FA1: mov fs:[00000000h], ecx
+  loc_00702FA8: pop ebx
+  loc_00702FA9: mov esp, ebp
+  loc_00702FAB: pop ebp
+  loc_00702FAC: retn 0008h
+End Sub
+
+Public Function IsConnected(arg_C) '702FB0
+  loc_00702FB0: push ebp
+  loc_00702FB1: mov ebp, esp
+  loc_00702FB3: sub esp, 0000000Ch
+  loc_00702FB6: push 00412856h ; __vbaExceptHandler
+  loc_00702FBB: mov eax, fs:[00000000h]
+  loc_00702FC1: push eax
+  loc_00702FC2: mov fs:[00000000h], esp
+  loc_00702FC9: sub esp, 00000010h
+  loc_00702FCC: push ebx
+  loc_00702FCD: push esi
+  loc_00702FCE: push edi
+  loc_00702FCF: mov var_C, esp
+  loc_00702FD2: mov var_8, 004103D0h
+  loc_00702FD9: xor esi, esi
+  loc_00702FDB: mov var_4, esi
+  loc_00702FDE: mov eax, Me
+  loc_00702FE1: push eax
+  loc_00702FE2: mov ecx, [eax]
+  loc_00702FE4: call [ecx+00000004h]
+  loc_00702FE7: mov eax, [0073A254h]
+  loc_00702FEC: mov var_18, esi
+  loc_00702FEF: cmp eax, esi
+  loc_00702FF1: mov var_1C, esi
+  loc_00702FF4: jnz 00703006h
+  loc_00702FF6: push 0073A254h
+  loc_00702FFB: push 00431838h
+  loc_00703000: call [004012FCh] ; __vbaNew2
+  loc_00703006: mov eax, [0073A254h]
+  loc_0070300B: lea edx, var_1C
+  loc_0070300E: push edx
+  loc_0070300F: push eax
+  loc_00703010: call 006A91B0h
+  loc_00703015: mov ecx, var_1C
+  loc_00703018: mov var_18, ecx
+  loc_0070301B: mov eax, Me
+  loc_0070301E: push eax
+  loc_0070301F: mov edx, [eax]
+  loc_00703021: call [edx+00000008h]
+  loc_00703024: mov eax, arg_C
+  loc_00703027: mov cx, var_18
+  loc_0070302B: mov [eax], cx
+  loc_0070302E: mov eax, var_4
+  loc_00703031: mov ecx, var_14
+  loc_00703034: pop edi
+  loc_00703035: pop esi
+  loc_00703036: mov fs:[00000000h], ecx
+  loc_0070303D: pop ebx
+  loc_0070303E: mov esp, ebp
+  loc_00703040: pop ebp
+  loc_00703041: retn 0008h
+End Function

Src Code/clsBonziEventQueueItem.cls

@@ -0,0 +1,447 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "clsBonziEventQueueItem"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+
+
+Public Property Get BBEvent(Index As Integer) '653740
+  loc_00653740: push ebp
+  loc_00653741: mov ebp, esp
+  loc_00653743: sub esp, 0000000Ch
+  loc_00653746: push 00412856h ; __vbaExceptHandler
+  loc_0065374B: mov eax, fs:[00000000h]
+  loc_00653751: push eax
+  loc_00653752: mov fs:[00000000h], esp
+  loc_00653759: sub esp, 0000000Ch
+  loc_0065375C: push ebx
+  loc_0065375D: push esi
+  loc_0065375E: push edi
+  loc_0065375F: mov var_C, esp
+  loc_00653762: mov var_8, 00406D68h
+  loc_00653769: xor edi, edi
+  loc_0065376B: mov var_4, edi
+  loc_0065376E: mov esi, Me
+  loc_00653771: push esi
+  loc_00653772: mov eax, [esi]
+  loc_00653774: call [eax+00000004h]
+  loc_00653777: mov ecx, Index
+  loc_0065377A: lea eax, var_18
+  loc_0065377D: mov var_18, edi
+  loc_00653780: mov [ecx], edi
+  loc_00653782: mov edx, [esi+00000034h]
+  loc_00653785: push edx
+  loc_00653786: push eax
+  loc_00653787: call [00401130h] ; __vbaObjSetAddref
+  loc_0065378D: push 0065379Fh
+  loc_00653792: jmp 0065379Eh
+  loc_00653794: lea ecx, var_18
+  loc_00653797: call [0040142Ch] ; __vbaFreeObj
+  loc_0065379D: ret
+  loc_0065379E: ret
+  loc_0065379F: mov eax, Me
+  loc_006537A2: push eax
+  loc_006537A3: mov ecx, [eax]
+  loc_006537A5: call [ecx+00000008h]
+  loc_006537A8: mov edx, Index
+  loc_006537AB: mov eax, var_18
+  loc_006537AE: mov [edx], eax
+  loc_006537B0: mov eax, var_4
+  loc_006537B3: mov ecx, var_14
+  loc_006537B6: pop edi
+  loc_006537B7: pop esi
+  loc_006537B8: mov fs:[00000000h], ecx
+  loc_006537BF: pop ebx
+  loc_006537C0: mov esp, ebp
+  loc_006537C2: pop ebp
+  loc_006537C3: retn 0008h
+End Sub
+
+Public Property Set BBEvent(NewBBEvent) '6537D0
+  loc_006537D0: push ebp
+  loc_006537D1: mov ebp, esp
+  loc_006537D3: sub esp, 0000000Ch
+  loc_006537D6: push 00412856h ; __vbaExceptHandler
+  loc_006537DB: mov eax, fs:[00000000h]
+  loc_006537E1: push eax
+  loc_006537E2: mov fs:[00000000h], esp
+  loc_006537E9: sub esp, 00000008h
+  loc_006537EC: push ebx
+  loc_006537ED: push esi
+  loc_006537EE: push edi
+  loc_006537EF: mov var_C, esp
+  loc_006537F2: mov var_8, 00406D78h
+  loc_006537F9: mov var_4, 00000000h
+  loc_00653800: mov esi, Me
+  loc_00653803: push esi
+  loc_00653804: mov eax, [esi]
+  loc_00653806: call [eax+00000004h]
+  loc_00653809: mov ecx, NewBBEvent
+  loc_0065380C: add esi, 00000034h
+  loc_0065380F: mov edx, [ecx]
+  loc_00653811: push edx
+  loc_00653812: push esi
+  loc_00653813: call [00401130h] ; __vbaObjSetAddref
+  loc_00653819: mov eax, Me
+  loc_0065381C: push eax
+  loc_0065381D: mov ecx, [eax]
+  loc_0065381F: call [ecx+00000008h]
+  loc_00653822: mov eax, var_4
+  loc_00653825: mov ecx, var_14
+  loc_00653828: pop edi
+  loc_00653829: pop esi
+  loc_0065382A: mov fs:[00000000h], ecx
+  loc_00653831: pop ebx
+  loc_00653832: mov esp, ebp
+  loc_00653834: pop ebp
+  loc_00653835: retn 0008h
+End Sub
+
+Public Property Get MutuallyExclusive(arg_C) '653840
+  loc_00653840: push ebp
+  loc_00653841: mov ebp, esp
+  loc_00653843: sub esp, 0000000Ch
+  loc_00653846: push 00412856h ; __vbaExceptHandler
+  loc_0065384B: mov eax, fs:[00000000h]
+  loc_00653851: push eax
+  loc_00653852: mov fs:[00000000h], esp
+  loc_00653859: sub esp, 0000000Ch
+  loc_0065385C: push ebx
+  loc_0065385D: push esi
+  loc_0065385E: push edi
+  loc_0065385F: mov var_C, esp
+  loc_00653862: mov var_8, 00406D80h
+  loc_00653869: xor edi, edi
+  loc_0065386B: mov var_4, edi
+  loc_0065386E: mov esi, Me
+  loc_00653871: push esi
+  loc_00653872: mov eax, [esi]
+  loc_00653874: call [eax+00000004h]
+  loc_00653877: mov cx, [esi+00000038h]
+  loc_0065387B: mov var_18, edi
+  loc_0065387E: mov var_18, ecx
+  loc_00653881: mov eax, Me
+  loc_00653884: push eax
+  loc_00653885: mov edx, [eax]
+  loc_00653887: call [edx+00000008h]
+  loc_0065388A: mov eax, arg_C
+  loc_0065388D: mov cx, var_18
+  loc_00653891: mov [eax], cx
+  loc_00653894: mov eax, var_4
+  loc_00653897: mov ecx, var_14
+  loc_0065389A: pop edi
+  loc_0065389B: pop esi
+  loc_0065389C: mov fs:[00000000h], ecx
+  loc_006538A3: pop ebx
+  loc_006538A4: mov esp, ebp
+  loc_006538A6: pop ebp
+  loc_006538A7: retn 0008h
+End Sub
+
+Public Property Let MutuallyExclusive(NewMutuallyExclusive) '6538B0
+  loc_006538B0: push ebp
+  loc_006538B1: mov ebp, esp
+  loc_006538B3: sub esp, 0000000Ch
+  loc_006538B6: push 00412856h ; __vbaExceptHandler
+  loc_006538BB: mov eax, fs:[00000000h]
+  loc_006538C1: push eax
+  loc_006538C2: mov fs:[00000000h], esp
+  loc_006538C9: sub esp, 00000008h
+  loc_006538CC: push ebx
+  loc_006538CD: push esi
+  loc_006538CE: push edi
+  loc_006538CF: mov var_C, esp
+  loc_006538D2: mov var_8, 00406D88h
+  loc_006538D9: mov var_4, 00000000h
+  loc_006538E0: mov esi, Me
+  loc_006538E3: push esi
+  loc_006538E4: mov eax, [esi]
+  loc_006538E6: call [eax+00000004h]
+  loc_006538E9: mov ecx, NewMutuallyExclusive
+  loc_006538EC: mov dx, [ecx]
+  loc_006538EF: mov [esi+00000038h], dx
+  loc_006538F3: mov eax, Me
+  loc_006538F6: push eax
+  loc_006538F7: mov ecx, [eax]
+  loc_006538F9: call [ecx+00000008h]
+  loc_006538FC: mov eax, var_4
+  loc_006538FF: mov ecx, var_14
+  loc_00653902: pop edi
+  loc_00653903: pop esi
+  loc_00653904: mov fs:[00000000h], ecx
+  loc_0065390B: pop ebx
+  loc_0065390C: mov esp, ebp
+  loc_0065390E: pop ebp
+  loc_0065390F: retn 0008h
+End Sub
+
+Public Property Get Status(arg_C) '653920
+  loc_00653920: push ebp
+  loc_00653921: mov ebp, esp
+  loc_00653923: sub esp, 0000000Ch
+  loc_00653926: push 00412856h ; __vbaExceptHandler
+  loc_0065392B: mov eax, fs:[00000000h]
+  loc_00653931: push eax
+  loc_00653932: mov fs:[00000000h], esp
+  loc_00653939: sub esp, 0000000Ch
+  loc_0065393C: push ebx
+  loc_0065393D: push esi
+  loc_0065393E: push edi
+  loc_0065393F: mov var_C, esp
+  loc_00653942: mov var_8, 00406D90h
+  loc_00653949: xor edi, edi
+  loc_0065394B: mov var_4, edi
+  loc_0065394E: mov esi, Me
+  loc_00653951: push esi
+  loc_00653952: mov eax, [esi]
+  loc_00653954: call [eax+00000004h]
+  loc_00653957: mov ecx, [esi+0000003Ch]
+  loc_0065395A: mov var_18, edi
+  loc_0065395D: mov var_18, ecx
+  loc_00653960: mov eax, Me
+  loc_00653963: push eax
+  loc_00653964: mov edx, [eax]
+  loc_00653966: call [edx+00000008h]
+  loc_00653969: mov eax, arg_C
+  loc_0065396C: mov ecx, var_18
+  loc_0065396F: mov [eax], ecx
+  loc_00653971: mov eax, var_4
+  loc_00653974: mov ecx, var_14
+  loc_00653977: pop edi
+  loc_00653978: pop esi
+  loc_00653979: mov fs:[00000000h], ecx
+  loc_00653980: pop ebx
+  loc_00653981: mov esp, ebp
+  loc_00653983: pop ebp
+  loc_00653984: retn 0008h
+End Sub
+
+Public Property Let Status(NewStatus) '653990
+  loc_00653990: push ebp
+  loc_00653991: mov ebp, esp
+  loc_00653993: sub esp, 0000000Ch
+  loc_00653996: push 00412856h ; __vbaExceptHandler
+  loc_0065399B: mov eax, fs:[00000000h]
+  loc_006539A1: push eax
+  loc_006539A2: mov fs:[00000000h], esp
+  loc_006539A9: sub esp, 00000008h
+  loc_006539AC: push ebx
+  loc_006539AD: push esi
+  loc_006539AE: push edi
+  loc_006539AF: mov var_C, esp
+  loc_006539B2: mov var_8, 00406D98h
+  loc_006539B9: mov var_4, 00000000h
+  loc_006539C0: mov esi, Me
+  loc_006539C3: push esi
+  loc_006539C4: mov eax, [esi]
+  loc_006539C6: call [eax+00000004h]
+  loc_006539C9: mov ecx, NewStatus
+  loc_006539CC: mov edx, [ecx]
+  loc_006539CE: mov [esi+0000003Ch], edx
+  loc_006539D1: mov eax, Me
+  loc_006539D4: push eax
+  loc_006539D5: mov ecx, [eax]
+  loc_006539D7: call [ecx+00000008h]
+  loc_006539DA: mov eax, var_4
+  loc_006539DD: mov ecx, var_14
+  loc_006539E0: pop edi
+  loc_006539E1: pop esi
+  loc_006539E2: mov fs:[00000000h], ecx
+  loc_006539E9: pop ebx
+  loc_006539EA: mov esp, ebp
+  loc_006539EC: pop ebp
+  loc_006539ED: retn 0008h
+End Sub
+
+Public Property Get EventType(arg_C) '6539F0
+  loc_006539F0: push ebp
+  loc_006539F1: mov ebp, esp
+  loc_006539F3: sub esp, 0000000Ch
+  loc_006539F6: push 00412856h ; __vbaExceptHandler
+  loc_006539FB: mov eax, fs:[00000000h]
+  loc_00653A01: push eax
+  loc_00653A02: mov fs:[00000000h], esp
+  loc_00653A09: sub esp, 0000000Ch
+  loc_00653A0C: push ebx
+  loc_00653A0D: push esi
+  loc_00653A0E: push edi
+  loc_00653A0F: mov var_C, esp
+  loc_00653A12: mov var_8, 00406DA0h
+  loc_00653A19: xor edi, edi
+  loc_00653A1B: mov var_4, edi
+  loc_00653A1E: mov esi, Me
+  loc_00653A21: push esi
+  loc_00653A22: mov eax, [esi]
+  loc_00653A24: call [eax+00000004h]
+  loc_00653A27: mov ecx, [esi+00000040h]
+  loc_00653A2A: mov var_18, edi
+  loc_00653A2D: mov var_18, ecx
+  loc_00653A30: mov eax, Me
+  loc_00653A33: push eax
+  loc_00653A34: mov edx, [eax]
+  loc_00653A36: call [edx+00000008h]
+  loc_00653A39: mov eax, arg_C
+  loc_00653A3C: mov ecx, var_18
+  loc_00653A3F: mov [eax], ecx
+  loc_00653A41: mov eax, var_4
+  loc_00653A44: mov ecx, var_14
+  loc_00653A47: pop edi
+  loc_00653A48: pop esi
+  loc_00653A49: mov fs:[00000000h], ecx
+  loc_00653A50: pop ebx
+  loc_00653A51: mov esp, ebp
+  loc_00653A53: pop ebp
+  loc_00653A54: retn 0008h
+End Sub
+
+Public Property Let EventType(NewType) '653A60
+  loc_00653A60: push ebp
+  loc_00653A61: mov ebp, esp
+  loc_00653A63: sub esp, 0000000Ch
+  loc_00653A66: push 00412856h ; __vbaExceptHandler
+  loc_00653A6B: mov eax, fs:[00000000h]
+  loc_00653A71: push eax
+  loc_00653A72: mov fs:[00000000h], esp
+  loc_00653A79: sub esp, 00000008h
+  loc_00653A7C: push ebx
+  loc_00653A7D: push esi
+  loc_00653A7E: push edi
+  loc_00653A7F: mov var_C, esp
+  loc_00653A82: mov var_8, 00406DA8h
+  loc_00653A89: mov var_4, 00000000h
+  loc_00653A90: mov esi, Me
+  loc_00653A93: push esi
+  loc_00653A94: mov eax, [esi]
+  loc_00653A96: call [eax+00000004h]
+  loc_00653A99: mov ecx, NewType
+  loc_00653A9C: mov edx, [ecx]
+  loc_00653A9E: mov [esi+00000040h], edx
+  loc_00653AA1: mov eax, Me
+  loc_00653AA4: push eax
+  loc_00653AA5: mov ecx, [eax]
+  loc_00653AA7: call [ecx+00000008h]
+  loc_00653AAA: mov eax, var_4
+  loc_00653AAD: mov ecx, var_14
+  loc_00653AB0: pop edi
+  loc_00653AB1: pop esi
+  loc_00653AB2: mov fs:[00000000h], ecx
+  loc_00653AB9: pop ebx
+  loc_00653ABA: mov esp, ebp
+  loc_00653ABC: pop ebp
+  loc_00653ABD: retn 0008h
+End Sub
+
+Public Sub RunEvent() '653AC0
+  loc_00653AC0: push ebp
+  loc_00653AC1: mov ebp, esp
+  loc_00653AC3: sub esp, 0000000Ch
+  loc_00653AC6: push 00412856h ; __vbaExceptHandler
+  loc_00653ACB: mov eax, fs:[00000000h]
+  loc_00653AD1: push eax
+  loc_00653AD2: mov fs:[00000000h], esp
+  loc_00653AD9: sub esp, 00000008h
+  loc_00653ADC: push ebx
+  loc_00653ADD: push esi
+  loc_00653ADE: push edi
+  loc_00653ADF: mov var_C, esp
+  loc_00653AE2: mov var_8, 00406DB0h
+  loc_00653AE9: mov var_4, 00000000h
+  loc_00653AF0: mov esi, Me
+  loc_00653AF3: push esi
+  loc_00653AF4: mov eax, [esi]
+  loc_00653AF6: call [eax+00000004h]
+  loc_00653AF9: mov ecx, [esi+00000034h]
+  loc_00653AFC: push 00000000h
+  loc_00653AFE: push 00452534h ; "RunEvent"
+  loc_00653B03: push ecx
+  loc_00653B04: call [00401360h] ; __vbaLateMemCall
+  loc_00653B0A: add esp, 0000000Ch
+  loc_00653B0D: mov eax, Me
+  loc_00653B10: push eax
+  loc_00653B11: mov edx, [eax]
+  loc_00653B13: call [edx+00000008h]
+  loc_00653B16: mov eax, var_4
+  loc_00653B19: mov ecx, var_14
+  loc_00653B1C: pop edi
+  loc_00653B1D: pop esi
+  loc_00653B1E: mov fs:[00000000h], ecx
+  loc_00653B25: pop ebx
+  loc_00653B26: mov esp, ebp
+  loc_00653B28: pop ebp
+  loc_00653B29: retn 0004h
+End Sub
+
+Private Sub Proc_31_9_653B30
+  loc_00653B30: push ebp
+  loc_00653B31: mov ebp, esp
+  loc_00653B33: sub esp, 0000000Ch
+  loc_00653B36: push 00412856h ; __vbaExceptHandler
+  loc_00653B3B: mov eax, fs:[00000000h]
+  loc_00653B41: push eax
+  loc_00653B42: mov fs:[00000000h], esp
+  loc_00653B49: sub esp, 00000010h
+  loc_00653B4C: push ebx
+  loc_00653B4D: push esi
+  loc_00653B4E: push edi
+  loc_00653B4F: mov var_C, esp
+  loc_00653B52: mov var_8, 00406DB8h
+  loc_00653B59: mov esi, Me
+  loc_00653B5C: mov eax, esi
+  loc_00653B5E: and eax, 00000001h
+  loc_00653B61: mov var_4, eax
+  loc_00653B64: and esi, FFFFFFFEh
+  loc_00653B67: push esi
+  loc_00653B68: mov Me, esi
+  loc_00653B6B: mov ecx, [esi]
+  loc_00653B6D: call [ecx+00000004h]
+  loc_00653B70: mov edx, [esi]
+  loc_00653B72: lea eax, var_18
+  loc_00653B75: xor edi, edi
+  loc_00653B77: push eax
+  loc_00653B78: mov var_18, edi
+  loc_00653B7B: push esi
+  loc_00653B7C: mov var_18, edi
+  loc_00653B7F: call [edx+00000030h]
+  loc_00653B82: cmp eax, edi
+  loc_00653B84: jge 00653B95h
+  loc_00653B86: push 00000030h
+  loc_00653B88: push 004523F0h ; "¤" & Chr(37) & "÷RîÆà@œ" & Chr(13) & "ÒX‰Y†'BBEvent"
+  loc_00653B8D: push esi
+  loc_00653B8E: push eax
+  loc_00653B8F: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00653B95: mov ecx, [esi]
+  loc_00653B97: lea edx, var_18
+  loc_00653B9A: push edx
+  loc_00653B9B: push esi
+  loc_00653B9C: mov var_18, edi
+  loc_00653B9F: call [ecx+00000038h]
+  loc_00653BA2: cmp eax, edi
+  loc_00653BA4: jge 00653BB5h
+  loc_00653BA6: push 00000038h
+  loc_00653BA8: push 004523F0h ; "¤" & Chr(37) & "÷RîÆà@œ" & Chr(13) & "ÒX‰Y†'BBEvent"
+  loc_00653BAD: push esi
+  loc_00653BAE: push eax
+  loc_00653BAF: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00653BB5: mov var_4, edi
+  loc_00653BB8: mov eax, Me
+  loc_00653BBB: push eax
+  loc_00653BBC: mov ecx, [eax]
+  loc_00653BBE: call [ecx+00000008h]
+  loc_00653BC1: mov eax, var_4
+  loc_00653BC4: mov ecx, var_14
+  loc_00653BC7: pop edi
+  loc_00653BC8: pop esi
+  loc_00653BC9: mov fs:[00000000h], ecx
+  loc_00653BD0: pop ebx
+  loc_00653BD1: mov esp, ebp
+  loc_00653BD3: pop ebp
+  loc_00653BD4: retn 0004h
+End Sub

Src Code/clsBonziEventSkeleton.cls

@@ -0,0 +1,257 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "clsBonziEventSkeleton"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+
+
+Public Sub RunEvent() '653BE0
+  loc_00653BE0: push ebp
+  loc_00653BE1: mov ebp, esp
+  loc_00653BE3: sub esp, 0000000Ch
+  loc_00653BE6: push 00412856h ; __vbaExceptHandler
+  loc_00653BEB: mov eax, fs:[00000000h]
+  loc_00653BF1: push eax
+  loc_00653BF2: mov fs:[00000000h], esp
+  loc_00653BF9: sub esp, 00000040h
+  loc_00653BFC: push ebx
+  loc_00653BFD: push esi
+  loc_00653BFE: push edi
+  loc_00653BFF: mov var_C, esp
+  loc_00653C02: mov var_8, 00406DC0h
+  loc_00653C09: xor edi, edi
+  loc_00653C0B: mov var_4, edi
+  loc_00653C0E: mov esi, Me
+  loc_00653C11: push esi
+  loc_00653C12: mov eax, [esi]
+  loc_00653C14: call [eax+00000004h]
+  loc_00653C17: movsx eax, [esi+00000034h]
+  loc_00653C1B: dec eax
+  loc_00653C1C: mov var_18, edi
+  loc_00653C1F: mov var_28, edi
+  loc_00653C22: mov var_38, edi
+  loc_00653C25: mov var_3C, edi
+  loc_00653C28: jz 00653C5Fh
+  loc_00653C2A: mov eax, [esi+00000038h]
+  loc_00653C2D: lea edx, var_3C
+  loc_00653C30: mov var_3C, 00000003h
+  loc_00653C37: push edx
+  loc_00653C38: mov ecx, [eax]
+  loc_00653C3A: push eax
+  loc_00653C3B: call [ecx+00000030h]
+  loc_00653C3E: cmp eax, edi
+  loc_00653C40: fnclex
+  loc_00653C42: jge 00653D3Ch
+  loc_00653C48: mov ecx, [esi+00000038h]
+  loc_00653C4B: push 00000030h
+  loc_00653C4D: push 004523F0h ; "¤" & Chr(37) & "÷RîÆà@œ" & Chr(13) & "ÒX‰Y†'BBEvent"
+  loc_00653C52: push ecx
+  loc_00653C53: push eax
+  loc_00653C54: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00653C5A: jmp 00653D3Ch
+  loc_00653C5F: call 00621930h
+  loc_00653C64: mov dx, [esi+00000034h]
+  loc_00653C68: add dx, 0001h
+  loc_00653C6C: jo 00653D6Dh
+  loc_00653C72: mov [esi+00000034h], dx
+  loc_00653C76: mov eax, [0073A254h]
+  loc_00653C7B: cmp eax, edi
+  loc_00653C7D: jnz 00653C8Fh
+  loc_00653C7F: push 0073A254h
+  loc_00653C84: push 00431838h
+  loc_00653C89: call [004012FCh] ; __vbaNew2
+  loc_00653C8F: mov esi, [0073A254h]
+  loc_00653C95: push esi
+  loc_00653C96: mov eax, [esi]
+  loc_00653C98: call [eax+0000074Ch]
+  loc_00653C9E: cmp eax, edi
+  loc_00653CA0: fnclex
+  loc_00653CA2: jge 00653CB6h
+  loc_00653CA4: push 0000074Ch
+  loc_00653CA9: push 004408D0h
+  loc_00653CAE: push esi
+  loc_00653CAF: push eax
+  loc_00653CB0: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00653CB6: lea ebx, var_18
+  loc_00653CB9: mov ecx, 0000000Ah
+  loc_00653CBE: push ebx
+  loc_00653CBF: mov eax, 80020004h
+  loc_00653CC4: sub esp, 00000010h
+  loc_00653CC7: mov edi, [0073A08Ch]
+  loc_00653CCD: mov ebx, esp
+  loc_00653CCF: sub esp, 00000010h
+  loc_00653CD2: mov esi, 00000008h
+  loc_00653CD7: mov edi, [edi]
+  loc_00653CD9: mov [ebx], ecx
+  loc_00653CDB: mov ecx, var_34
+  loc_00653CDE: mov edx, 0045257Ch ; "last spoken text"
+  loc_00653CE3: mov [ebx+00000004h], ecx
+  loc_00653CE6: mov ecx, esp
+  loc_00653CE8: mov [ebx+00000008h], eax
+  loc_00653CEB: mov eax, var_2C
+  loc_00653CEE: mov [ebx+0000000Ch], eax
+  loc_00653CF1: mov eax, var_24
+  loc_00653CF4: mov [ecx], esi
+  loc_00653CF6: mov [ecx+00000004h], eax
+  loc_00653CF9: mov eax, [0073A08Ch]
+  loc_00653CFE: push eax
+  loc_00653CFF: mov [ecx+00000008h], edx
+  loc_00653D02: mov edx, var_1C
+  loc_00653D05: mov [ecx+0000000Ch], edx
+  loc_00653D08: call [edi+00000078h]
+  loc_00653D0B: test eax, eax
+  loc_00653D0D: fnclex
+  loc_00653D0F: jge 00653D26h
+  loc_00653D11: mov ecx, [0073A08Ch]
+  loc_00653D17: push 00000078h
+  loc_00653D19: push 004419ACh
+  loc_00653D1E: push ecx
+  loc_00653D1F: push eax
+  loc_00653D20: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00653D26: mov eax, var_18
+  loc_00653D29: mov var_18, 00000000h
+  loc_00653D30: push eax
+  loc_00653D31: push 0073A208h
+  loc_00653D36: call [00401128h] ; __vbaObjSet
+  loc_00653D3C: push 00653D4Eh
+  loc_00653D41: jmp 00653D4Dh
+  loc_00653D43: lea ecx, var_18
+  loc_00653D46: call [0040142Ch] ; __vbaFreeObj
+  loc_00653D4C: ret
+  loc_00653D4D: ret
+  loc_00653D4E: mov eax, Me
+  loc_00653D51: push eax
+  loc_00653D52: mov edx, [eax]
+  loc_00653D54: call [edx+00000008h]
+  loc_00653D57: mov eax, var_4
+  loc_00653D5A: mov ecx, var_14
+  loc_00653D5D: pop edi
+  loc_00653D5E: pop esi
+  loc_00653D5F: mov fs:[00000000h], ecx
+  loc_00653D66: pop ebx
+  loc_00653D67: mov esp, ebp
+  loc_00653D69: pop ebp
+  loc_00653D6A: retn 0004h
+End Sub
+
+Public Sub SetParentReference(ParentObject) '653D80
+  loc_00653D80: push ebp
+  loc_00653D81: mov ebp, esp
+  loc_00653D83: sub esp, 0000000Ch
+  loc_00653D86: push 00412856h ; __vbaExceptHandler
+  loc_00653D8B: mov eax, fs:[00000000h]
+  loc_00653D91: push eax
+  loc_00653D92: mov fs:[00000000h], esp
+  loc_00653D99: sub esp, 00000014h
+  loc_00653D9C: push ebx
+  loc_00653D9D: push esi
+  loc_00653D9E: push edi
+  loc_00653D9F: mov var_C, esp
+  loc_00653DA2: mov var_8, 00406DD0h
+  loc_00653DA9: xor ebx, ebx
+  loc_00653DAB: mov var_4, ebx
+  loc_00653DAE: mov esi, Me
+  loc_00653DB1: push esi
+  loc_00653DB2: mov eax, [esi]
+  loc_00653DB4: call [eax+00000004h]
+  loc_00653DB7: mov ecx, ParentObject
+  loc_00653DBA: mov edi, [00401130h] ; __vbaObjSetAddref
+  loc_00653DC0: lea edx, var_18
+  loc_00653DC3: push ecx
+  loc_00653DC4: push edx
+  loc_00653DC5: mov var_18, ebx
+  loc_00653DC8: mov var_1C, ebx
+  loc_00653DCB: call edi
+  loc_00653DCD: mov eax, var_18
+  loc_00653DD0: add esi, 00000038h
+  loc_00653DD3: push eax
+  loc_00653DD4: push esi
+  loc_00653DD5: call edi
+  loc_00653DD7: mov ecx, [esi]
+  loc_00653DD9: push ebx
+  loc_00653DDA: push ecx
+  loc_00653DDB: call [00401238h] ; __vbaObjIs
+  loc_00653DE1: test ax, ax
+  loc_00653DE4: jnz 00653E0Ch
+  loc_00653DE6: mov eax, [esi]
+  loc_00653DE8: lea ecx, var_1C
+  loc_00653DEB: mov var_1C, ebx
+  loc_00653DEE: push ecx
+  loc_00653DEF: mov edx, [eax]
+  loc_00653DF1: push eax
+  loc_00653DF2: call [edx+00000038h]
+  loc_00653DF5: cmp eax, ebx
+  loc_00653DF7: fnclex
+  loc_00653DF9: jge 00653E0Ch
+  loc_00653DFB: mov edx, [esi]
+  loc_00653DFD: push 00000038h
+  loc_00653DFF: push 004523F0h ; "¤" & Chr(37) & "÷RîÆà@œ" & Chr(13) & "ÒX‰Y†'BBEvent"
+  loc_00653E04: push edx
+  loc_00653E05: push eax
+  loc_00653E06: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00653E0C: push 00653E1Bh
+  loc_00653E11: lea ecx, var_18
+  loc_00653E14: call [0040142Ch] ; __vbaFreeObj
+  loc_00653E1A: ret
+  loc_00653E1B: mov eax, Me
+  loc_00653E1E: push eax
+  loc_00653E1F: mov ecx, [eax]
+  loc_00653E21: call [ecx+00000008h]
+  loc_00653E24: mov eax, var_4
+  loc_00653E27: mov ecx, var_14
+  loc_00653E2A: pop edi
+  loc_00653E2B: pop esi
+  loc_00653E2C: mov fs:[00000000h], ecx
+  loc_00653E33: pop ebx
+  loc_00653E34: mov esp, ebp
+  loc_00653E36: pop ebp
+  loc_00653E37: retn 0008h
+End Sub
+
+Private Sub Proc_32_2_653E40
+  loc_00653E40: push ebp
+  loc_00653E41: mov ebp, esp
+  loc_00653E43: sub esp, 0000000Ch
+  loc_00653E46: push 00412856h ; __vbaExceptHandler
+  loc_00653E4B: mov eax, fs:[00000000h]
+  loc_00653E51: push eax
+  loc_00653E52: mov fs:[00000000h], esp
+  loc_00653E59: sub esp, 00000008h
+  loc_00653E5C: push ebx
+  loc_00653E5D: push esi
+  loc_00653E5E: push edi
+  loc_00653E5F: mov var_C, esp
+  loc_00653E62: mov var_8, 00406DE0h
+  loc_00653E69: mov esi, Me
+  loc_00653E6C: mov eax, esi
+  loc_00653E6E: and eax, 00000001h
+  loc_00653E71: mov var_4, eax
+  loc_00653E74: and esi, FFFFFFFEh
+  loc_00653E77: push esi
+  loc_00653E78: mov Me, esi
+  loc_00653E7B: mov ecx, [esi]
+  loc_00653E7D: call [ecx+00000004h]
+  loc_00653E80: mov [esi+00000034h], 0001h
+  loc_00653E86: mov var_4, 00000000h
+  loc_00653E8D: mov eax, Me
+  loc_00653E90: push eax
+  loc_00653E91: mov edx, [eax]
+  loc_00653E93: call [edx+00000008h]
+  loc_00653E96: mov eax, var_4
+  loc_00653E99: mov ecx, var_14
+  loc_00653E9C: pop edi
+  loc_00653E9D: pop esi
+  loc_00653E9E: mov fs:[00000000h], ecx
+  loc_00653EA5: pop ebx
+  loc_00653EA6: mov esp, ebp
+  loc_00653EA8: pop ebp
+  loc_00653EA9: retn 0004h
+End Sub

Src Code/clsDownloadManager.cls

@@ -0,0 +1,453 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "clsDownloadManager"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+
+
+Public Function DownloadManagerHandleDownload(strURL) '5F8B60
+  loc_005F8B60: push ebp
+  loc_005F8B61: mov ebp, esp
+  loc_005F8B63: sub esp, 00000014h
+  loc_005F8B66: push 00412856h ; __vbaExceptHandler
+  loc_005F8B6B: mov eax, fs:[00000000h]
+  loc_005F8B71: push eax
+  loc_005F8B72: mov fs:[00000000h], esp
+  loc_005F8B79: sub esp, 00000088h
+  loc_005F8B7F: push ebx
+  loc_005F8B80: push esi
+  loc_005F8B81: push edi
+  loc_005F8B82: mov var_14, esp
+  loc_005F8B85: mov var_10, 00403BA0h
+  loc_005F8B8C: xor esi, esi
+  loc_005F8B8E: mov var_C, esi
+  loc_005F8B91: mov var_8, esi
+  loc_005F8B94: mov eax, Me
+  loc_005F8B97: mov ecx, [eax]
+  loc_005F8B99: push eax
+  loc_005F8B9A: call [ecx+00000004h]
+  loc_005F8B9D: mov ecx, 00000008h
+  loc_005F8BA2: xor eax, eax
+  loc_005F8BA4: lea edi, var_3C
+  loc_005F8BA7: repz stosd
+  loc_005F8BA9: mov var_40, esi
+  loc_005F8BAC: mov var_44, esi
+  loc_005F8BAF: mov var_48, esi
+  loc_005F8BB2: mov var_4C, esi
+  loc_005F8BB5: mov var_50, esi
+  loc_005F8BB8: mov var_60, esi
+  loc_005F8BBB: mov var_70, esi
+  loc_005F8BBE: mov var_80, esi
+  loc_005F8BC1: mov var_84, esi
+  loc_005F8BC7: mov edx, strURL
+  loc_005F8BCA: lea ecx, var_44
+  loc_005F8BCD: call [00401310h] ; __vbaStrCopy
+  loc_005F8BD3: push 00000001h
+  loc_005F8BD5: call [00401124h] ; __vbaOnError
+  loc_005F8BDB: mov [0073A21Eh], FFFFFFh
+  loc_005F8BE4: cmp [0073A254h], esi
+  loc_005F8BEA: jnz 005F8BFCh
+  loc_005F8BEC: push 0073A254h
+  loc_005F8BF1: push 00431838h
+  loc_005F8BF6: call [004012FCh] ; __vbaNew2
+  loc_005F8BFC: mov esi, [0073A254h]
+  loc_005F8C02: mov eax, 80020004h
+  loc_005F8C07: mov var_78, eax
+  loc_005F8C0A: mov ecx, 0000000Ah
+  loc_005F8C0F: mov var_80, ecx
+  loc_005F8C12: mov edx, eax
+  loc_005F8C14: mov var_68, edx
+  loc_005F8C17: mov var_70, ecx
+  loc_005F8C1A: mov edi, [esi]
+  loc_005F8C1C: sub esp, 00000010h
+  loc_005F8C1F: mov ebx, esp
+  loc_005F8C21: mov [ebx], ecx
+  loc_005F8C23: mov ecx, var_7C
+  loc_005F8C26: mov [ebx+00000004h], ecx
+  loc_005F8C29: mov [ebx+00000008h], eax
+  loc_005F8C2C: mov eax, var_74
+  loc_005F8C2F: mov [ebx+0000000Ch], eax
+  loc_005F8C32: sub esp, 00000010h
+  loc_005F8C35: mov ecx, esp
+  loc_005F8C37: mov eax, var_70
+  loc_005F8C3A: mov [ecx], eax
+  loc_005F8C3C: mov eax, var_6C
+  loc_005F8C3F: mov [ecx+00000004h], eax
+  loc_005F8C42: mov [ecx+00000008h], edx
+  loc_005F8C45: mov edx, var_64
+  loc_005F8C48: mov [ecx+0000000Ch], edx
+  loc_005F8C4B: push esi
+  loc_005F8C4C: call [edi+000002B0h]
+  loc_005F8C52: fnclex
+  loc_005F8C54: test eax, eax
+  loc_005F8C56: jge 005F8C6Ah
+  loc_005F8C58: push 000002B0h
+  loc_005F8C5D: push 00440B20h
+  loc_005F8C62: push esi
+  loc_005F8C63: push eax
+  loc_005F8C64: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005F8C6A: mov eax, [0073C818h]
+  loc_005F8C6F: test eax, eax
+  loc_005F8C71: jnz 005F8C87h
+  loc_005F8C73: push 0073C818h
+  loc_005F8C78: push 00441F00h
+  loc_005F8C7D: mov edi, [004012FCh] ; __vbaNew2
+  loc_005F8C83: call edi
+  loc_005F8C85: jmp 005F8C8Dh
+  loc_005F8C87: mov edi, [004012FCh] ; __vbaNew2
+  loc_005F8C8D: mov esi, [0073C818h]
+  loc_005F8C93: mov eax, [0073A2D4h]
+  loc_005F8C98: test eax, eax
+  loc_005F8C9A: jnz 005F8CA8h
+  loc_005F8C9C: push 0073A2D4h
+  loc_005F8CA1: push 00420A7Ch
+  loc_005F8CA6: call edi
+  loc_005F8CA8: mov ebx, [esi]
+  loc_005F8CAA: mov eax, [0073A2D4h]
+  loc_005F8CAF: push eax
+  loc_005F8CB0: lea ecx, var_50
+  loc_005F8CB3: push ecx
+  loc_005F8CB4: call [00401130h] ; __vbaObjSetAddref
+  loc_005F8CBA: push eax
+  loc_005F8CBB: push esi
+  loc_005F8CBC: call [ebx+0000000Ch]
+  loc_005F8CBF: fnclex
+  loc_005F8CC1: test eax, eax
+  loc_005F8CC3: jge 005F8CD4h
+  loc_005F8CC5: push 0000000Ch
+  loc_005F8CC7: push 00441EF0h
+  loc_005F8CCC: push esi
+  loc_005F8CCD: push eax
+  loc_005F8CCE: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005F8CD4: lea ecx, var_50
+  loc_005F8CD7: call [0040142Ch] ; __vbaFreeObj
+  loc_005F8CDD: mov edx, var_44
+  loc_005F8CE0: push edx
+  loc_005F8CE1: mov esi, [00401088h] ; rtcTrimBstr
+  loc_005F8CE7: call rtcTrimBstr
+  loc_005F8CE9: mov edx, eax
+  loc_005F8CEB: lea ecx, var_48
+  loc_005F8CEE: call [004013C0h] ; __vbaStrMove
+  loc_005F8CF4: mov edx, eax
+  loc_005F8CF6: lea ecx, var_38
+  loc_005F8CF9: mov ebx, [00401310h] ; __vbaStrCopy
+  loc_005F8CFF: call ebx
+  loc_005F8D01: lea ecx, var_48
+  loc_005F8D04: call [00401430h] ; __vbaFreeStr
+  loc_005F8D0A: mov eax, [0073A2D4h]
+  loc_005F8D0F: test eax, eax
+  loc_005F8D11: jnz 005F8D1Fh
+  loc_005F8D13: push 0073A2D4h
+  loc_005F8D18: push 00420A7Ch
+  loc_005F8D1D: call edi
+  loc_005F8D1F: lea eax, var_4C
+  loc_005F8D22: push eax
+  loc_005F8D23: mov ecx, var_44
+  loc_005F8D26: push ecx
+  loc_005F8D27: call rtcTrimBstr
+  loc_005F8D29: mov edx, eax
+  loc_005F8D2B: lea ecx, var_48
+  loc_005F8D2E: call [004013C0h] ; __vbaStrMove
+  loc_005F8D34: push eax
+  loc_005F8D35: mov edx, [0073A2D4h]
+  loc_005F8D3B: push edx
+  loc_005F8D3C: call 005CB3F0h
+  loc_005F8D41: mov edx, var_4C
+  loc_005F8D44: lea ecx, var_3C
+  loc_005F8D47: call ebx
+  loc_005F8D49: lea eax, var_4C
+  loc_005F8D4C: push eax
+  loc_005F8D4D: lea ecx, var_48
+  loc_005F8D50: push ecx
+  loc_005F8D51: push 00000002h
+  loc_005F8D53: call [00401324h] ; __vbaFreeStrList
+  loc_005F8D59: add esp, 0000000Ch
+  loc_005F8D5C: mov edx, 0044379Ch ; "NEW"
+  loc_005F8D61: lea ecx, var_28
+  loc_005F8D64: call ebx
+  loc_005F8D66: mov eax, [0073A2D4h]
+  loc_005F8D6B: test eax, eax
+  loc_005F8D6D: jnz 005F8D7Bh
+  loc_005F8D6F: push 0073A2D4h
+  loc_005F8D74: push 00420A7Ch
+  loc_005F8D79: call edi
+  loc_005F8D7B: lea edx, var_84
+  loc_005F8D81: push edx
+  loc_005F8D82: lea eax, var_3C
+  loc_005F8D85: push eax
+  loc_005F8D86: mov ecx, [0073A2D4h]
+  loc_005F8D8C: push ecx
+  loc_005F8D8D: call 005C3670h
+  loc_005F8D92: cmp var_84, 0000h
+  loc_005F8D9A: jz 005F908Ch
+  loc_005F8DA0: mov eax, [0073A2D4h]
+  loc_005F8DA5: test eax, eax
+  loc_005F8DA7: jnz 005F8DB5h
+  loc_005F8DA9: push 0073A2D4h
+  loc_005F8DAE: push 00420A7Ch
+  loc_005F8DB3: call edi
+  loc_005F8DB5: mov edx, [0073A2D4h]
+  loc_005F8DBB: push edx
+  loc_005F8DBC: call 005C55E0h
+  loc_005F8DC1: mov eax, [0073A2D4h]
+  loc_005F8DC6: test eax, eax
+  loc_005F8DC8: jnz 005F8DD6h
+  loc_005F8DCA: push 0073A2D4h
+  loc_005F8DCF: push 00420A7Ch
+  loc_005F8DD4: call edi
+  loc_005F8DD6: mov esi, [0073A2D4h]
+  loc_005F8DDC: mov eax, [esi]
+  loc_005F8DDE: lea ecx, var_84
+  loc_005F8DE4: push ecx
+  loc_005F8DE5: push esi
+  loc_005F8DE6: call [eax+000006F8h]
+  loc_005F8DEC: fnclex
+  loc_005F8DEE: test eax, eax
+  loc_005F8DF0: jge 005F8E04h
+  loc_005F8DF2: push 000006F8h
+  loc_005F8DF7: push 00443270h ; "lmÕMI¸ŸI¢9Ë’ÄÙ£ímnuPopupEdit"
+  loc_005F8DFC: push esi
+  loc_005F8DFD: push eax
+  loc_005F8DFE: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005F8E04: mov eax, [0073A254h]
+  loc_005F8E09: test eax, eax
+  loc_005F8E0B: jnz 005F8E19h
+  loc_005F8E0D: push 0073A254h
+  loc_005F8E12: push 00431838h
+  loc_005F8E17: call edi
+  loc_005F8E19: mov esi, [0073A254h]
+  loc_005F8E1F: mov edx, 004479E8h ; "DownloadManagerHandleDownload"
+  loc_005F8E24: lea ecx, var_4C
+  loc_005F8E27: call ebx
+  loc_005F8E29: mov var_68, 004479A0h ; "DownloadInProgress = "
+  loc_005F8E30: mov var_70, 00000008h
+  loc_005F8E37: mov dx, var_84
+  loc_005F8E3E: mov var_78, dx
+  loc_005F8E42: mov var_80, 0000000Bh
+  loc_005F8E49: lea eax, var_70
+  loc_005F8E4C: push eax
+  loc_005F8E4D: lea ecx, var_80
+  loc_005F8E50: push ecx
+  loc_005F8E51: lea edx, var_60
+  loc_005F8E54: push edx
+  loc_005F8E55: call [004012B0h] ; __vbaVarCat
+  loc_005F8E5B: push eax
+  loc_005F8E5C: call [00401040h] ; __vbaStrVarMove
+  loc_005F8E62: mov edx, eax
+  loc_005F8E64: lea ecx, var_48
+  loc_005F8E67: call [004013C0h] ; __vbaStrMove
+  loc_005F8E6D: mov eax, [esi]
+  loc_005F8E6F: lea ecx, var_4C
+  loc_005F8E72: push ecx
+  loc_005F8E73: lea edx, var_48
+  loc_005F8E76: push edx
+  loc_005F8E77: push esi
+  loc_005F8E78: call [eax+00000748h]
+  loc_005F8E7E: fnclex
+  loc_005F8E80: test eax, eax
+  loc_005F8E82: jge 005F8E9Ah
+  loc_005F8E84: push 00000748h
+  loc_005F8E89: push 004408D0h
+  loc_005F8E8E: push esi
+  loc_005F8E8F: push eax
+  loc_005F8E90: mov ebx, [004010CCh] ; __vbaHresultCheckObj
+  loc_005F8E96: call ebx
+  loc_005F8E98: jmp 005F8EA0h
+  loc_005F8E9A: mov ebx, [004010CCh] ; __vbaHresultCheckObj
+  loc_005F8EA0: lea eax, var_4C
+  loc_005F8EA3: push eax
+  loc_005F8EA4: lea ecx, var_48
+  loc_005F8EA7: push ecx
+  loc_005F8EA8: push 00000002h
+  loc_005F8EAA: call [00401324h] ; __vbaFreeStrList
+  loc_005F8EB0: lea edx, var_60
+  loc_005F8EB3: push edx
+  loc_005F8EB4: lea eax, var_80
+  loc_005F8EB7: push eax
+  loc_005F8EB8: push 00000002h
+  loc_005F8EBA: call [00401050h] ; __vbaFreeVarList
+  loc_005F8EC0: add esp, 00000018h
+  loc_005F8EC3: mov eax, [0073A2D4h]
+  loc_005F8EC8: test eax, eax
+  loc_005F8ECA: jnz 005F8ED8h
+  loc_005F8ECC: push 0073A2D4h
+  loc_005F8ED1: push 00420A7Ch
+  loc_005F8ED6: call edi
+  loc_005F8ED8: mov esi, [0073A2D4h]
+  loc_005F8EDE: mov ecx, [esi]
+  loc_005F8EE0: lea edx, var_84
+  loc_005F8EE6: push edx
+  loc_005F8EE7: push esi
+  loc_005F8EE8: call [ecx+000006F8h]
+  loc_005F8EEE: fnclex
+  loc_005F8EF0: test eax, eax
+  loc_005F8EF2: jge 005F8F02h
+  loc_005F8EF4: push 000006F8h
+  loc_005F8EF9: push 00443270h ; "lmÕMI¸ŸI¢9Ë’ÄÙ£ímnuPopupEdit"
+  loc_005F8EFE: push esi
+  loc_005F8EFF: push eax
+  loc_005F8F00: call ebx
+  loc_005F8F02: cmp var_84, 0000h
+  loc_005F8F0A: mov eax, [0073A2D4h]
+  loc_005F8F0F: jnz 005F8F72h
+  loc_005F8F11: test eax, eax
+  loc_005F8F13: jnz 005F8F21h
+  loc_005F8F15: push 0073A2D4h
+  loc_005F8F1A: push 00420A7Ch
+  loc_005F8F1F: call edi
+  loc_005F8F21: mov eax, [0073A2D4h]
+  loc_005F8F26: push eax
+  loc_005F8F27: call 005C80F0h
+  loc_005F8F2C: mov eax, [0073A2D4h]
+  loc_005F8F31: test eax, eax
+  loc_005F8F33: jnz 005F8F41h
+  loc_005F8F35: push 0073A2D4h
+  loc_005F8F3A: push 00420A7Ch
+  loc_005F8F3F: call edi
+  loc_005F8F41: mov ecx, [0073A2D4h]
+  loc_005F8F47: push ecx
+  loc_005F8F48: call 005C2CB0h
+  loc_005F8F4D: mov eax, [0073A2D4h]
+  loc_005F8F52: test eax, eax
+  loc_005F8F54: jnz 005F8F62h
+  loc_005F8F56: push 0073A2D4h
+  loc_005F8F5B: push 00420A7Ch
+  loc_005F8F60: call edi
+  loc_005F8F62: push 00000000h
+  loc_005F8F64: mov edx, [0073A2D4h]
+  loc_005F8F6A: push edx
+  loc_005F8F6B: call 005C18E0h
+  loc_005F8F70: jmp 005F8FB3h
+  loc_005F8F72: test eax, eax
+  loc_005F8F74: jnz 005F8F82h
+  loc_005F8F76: push 0073A2D4h
+  loc_005F8F7B: push 00420A7Ch
+  loc_005F8F80: call edi
+  loc_005F8F82: lea eax, var_3C
+  loc_005F8F85: push eax
+  loc_005F8F86: mov ecx, [0073A2D4h]
+  loc_005F8F8C: push ecx
+  loc_005F8F8D: call 005C7BE0h
+  loc_005F8F92: mov eax, [0073A2D4h]
+  loc_005F8F97: test eax, eax
+  loc_005F8F99: jnz 005F8FA7h
+  loc_005F8F9B: push 0073A2D4h
+  loc_005F8FA0: push 00420A7Ch
+  loc_005F8FA5: call edi
+  loc_005F8FA7: mov edx, [0073A2D4h]
+  loc_005F8FAD: push edx
+  loc_005F8FAE: call 005C1C60h
+  loc_005F8FB3: mov eax, [0073A2D4h]
+  loc_005F8FB8: test eax, eax
+  loc_005F8FBA: jnz 005F8FC8h
+  loc_005F8FBC: push 0073A2D4h
+  loc_005F8FC1: push 00420A7Ch
+  loc_005F8FC6: call edi
+  loc_005F8FC8: mov esi, [0073A2D4h]
+  loc_005F8FCE: mov eax, [esi]
+  loc_005F8FD0: lea ecx, var_84
+  loc_005F8FD6: push ecx
+  loc_005F8FD7: push esi
+  loc_005F8FD8: call [eax+000001B8h]
+  loc_005F8FDE: fnclex
+  loc_005F8FE0: test eax, eax
+  loc_005F8FE2: jge 005F8FF2h
+  loc_005F8FE4: push 000001B8h
+  loc_005F8FE9: push 00443240h
+  loc_005F8FEE: push esi
+  loc_005F8FEF: push eax
+  loc_005F8FF0: call ebx
+  loc_005F8FF2: cmp var_84, 0000h
+  loc_005F8FFA: jnz 005F9083h
+  loc_005F9000: mov eax, [0073A2D4h]
+  loc_005F9005: test eax, eax
+  loc_005F9007: jnz 005F9015h
+  loc_005F9009: push 0073A2D4h
+  loc_005F900E: push 00420A7Ch
+  loc_005F9013: call edi
+  loc_005F9015: mov esi, [0073A2D4h]
+  loc_005F901B: mov eax, 80020004h
+  loc_005F9020: mov var_78, eax
+  loc_005F9023: mov ecx, 0000000Ah
+  loc_005F9028: mov var_80, ecx
+  loc_005F902B: mov edx, eax
+  loc_005F902D: mov var_68, edx
+  loc_005F9030: mov var_70, ecx
+  loc_005F9033: mov edi, [esi]
+  loc_005F9035: sub esp, 00000010h
+  loc_005F9038: mov ebx, esp
+  loc_005F903A: mov [ebx], ecx
+  loc_005F903C: mov ecx, var_7C
+  loc_005F903F: mov [ebx+00000004h], ecx
+  loc_005F9042: mov [ebx+00000008h], eax
+  loc_005F9045: mov eax, var_74
+  loc_005F9048: mov [ebx+0000000Ch], eax
+  loc_005F904B: sub esp, 00000010h
+  loc_005F904E: mov ecx, esp
+  loc_005F9050: mov eax, var_70
+  loc_005F9053: mov [ecx], eax
+  loc_005F9055: mov eax, var_6C
+  loc_005F9058: mov [ecx+00000004h], eax
+  loc_005F905B: mov [ecx+00000008h], edx
+  loc_005F905E: mov edx, var_64
+  loc_005F9061: mov [ecx+0000000Ch], edx
+  loc_005F9064: push esi
+  loc_005F9065: call [edi+000002B0h]
+  loc_005F906B: fnclex
+  loc_005F906D: test eax, eax
+  loc_005F906F: jge 005F9083h
+  loc_005F9071: push 000002B0h
+  loc_005F9076: push 00443240h
+  loc_005F907B: push esi
+  loc_005F907C: push eax
+  loc_005F907D: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005F9083: mov var_40, FFFFFFFFh
+  loc_005F908A: jmp 005F9093h
+  loc_005F908C: mov var_40, 00000000h
+  loc_005F9093: call [00401114h] ; __vbaExitProc
+  loc_005F9099: push 005F90DFh
+  loc_005F909E: jmp 005F90C6h
+  loc_005F90A0: lea eax, var_4C
+  loc_005F90A3: push eax
+  loc_005F90A4: lea ecx, var_48
+  loc_005F90A7: push ecx
+  loc_005F90A8: push 00000002h
+  loc_005F90AA: call [00401324h] ; __vbaFreeStrList
+  loc_005F90B0: add esp, 0000000Ch
+  loc_005F90B3: lea ecx, var_50
+  loc_005F90B6: call [0040142Ch] ; __vbaFreeObj
+  loc_005F90BC: lea ecx, var_60
+  loc_005F90BF: call [00401030h] ; __vbaFreeVar
+  loc_005F90C5: ret
+  loc_005F90C6: lea edx, var_3C
+  loc_005F90C9: push edx
+  loc_005F90CA: push 0043E41Ch ; ", "
+  loc_005F90CF: call [004010C0h] ; __vbaRecDestruct
+  loc_005F90D5: lea ecx, var_44
+  loc_005F90D8: call [00401430h] ; __vbaFreeStr
+  loc_005F90DE: ret
+  loc_005F90DF: mov eax, Me
+  loc_005F90E2: mov ecx, [eax]
+  loc_005F90E4: push eax
+  loc_005F90E5: call [ecx+00000008h]
+  loc_005F90E8: mov edx, arg_10
+  loc_005F90EB: mov ax, var_40
+  loc_005F90EF: mov [edx], ax
+  loc_005F90F2: mov eax, var_C
+  loc_005F90F5: mov ecx, var_1C
+  loc_005F90F8: mov fs:[00000000h], ecx
+  loc_005F90FF: pop edi
+  loc_005F9100: pop esi
+  loc_005F9101: pop ebx
+  loc_005F9102: mov esp, ebp
+  loc_005F9104: pop ebp
+  loc_005F9105: retn 000Ch
+End Function

Src Code/clsRegistration.cls

@@ -0,0 +1,704 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "clsRegistration"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+
+
+Public Property Let BuggerOff(vNewVal) '738030
+  loc_00738030: push ebp
+  loc_00738031: mov ebp, esp
+  loc_00738033: sub esp, 0000000Ch
+  loc_00738036: push 00412856h ; __vbaExceptHandler
+  loc_0073803B: mov eax, fs:[00000000h]
+  loc_00738041: push eax
+  loc_00738042: mov fs:[00000000h], esp
+  loc_00738049: sub esp, 00000008h
+  loc_0073804C: push ebx
+  loc_0073804D: push esi
+  loc_0073804E: push edi
+  loc_0073804F: mov var_C, esp
+  loc_00738052: mov var_8, 004127B8h
+  loc_00738059: mov var_4, 00000000h
+  loc_00738060: mov esi, Me
+  loc_00738063: push esi
+  loc_00738064: mov eax, [esi]
+  loc_00738066: call [eax+00000004h]
+  loc_00738069: mov ecx, vNewVal
+  loc_0073806C: mov dx, [ecx]
+  loc_0073806F: mov [esi+00000034h], dx
+  loc_00738073: mov eax, Me
+  loc_00738076: push eax
+  loc_00738077: mov ecx, [eax]
+  loc_00738079: call [ecx+00000008h]
+  loc_0073807C: mov eax, var_4
+  loc_0073807F: mov ecx, var_14
+  loc_00738082: pop edi
+  loc_00738083: pop esi
+  loc_00738084: mov fs:[00000000h], ecx
+  loc_0073808B: pop ebx
+  loc_0073808C: mov esp, ebp
+  loc_0073808E: pop ebp
+  loc_0073808F: retn 0008h
+End Sub
+
+Public Property Get BuggerOff(arg_C) '7380A0
+  loc_007380A0: push ebp
+  loc_007380A1: mov ebp, esp
+  loc_007380A3: sub esp, 0000000Ch
+  loc_007380A6: push 00412856h ; __vbaExceptHandler
+  loc_007380AB: mov eax, fs:[00000000h]
+  loc_007380B1: push eax
+  loc_007380B2: mov fs:[00000000h], esp
+  loc_007380B9: sub esp, 0000000Ch
+  loc_007380BC: push ebx
+  loc_007380BD: push esi
+  loc_007380BE: push edi
+  loc_007380BF: mov var_C, esp
+  loc_007380C2: mov var_8, 004127C0h
+  loc_007380C9: xor edi, edi
+  loc_007380CB: mov var_4, edi
+  loc_007380CE: mov esi, Me
+  loc_007380D1: push esi
+  loc_007380D2: mov eax, [esi]
+  loc_007380D4: call [eax+00000004h]
+  loc_007380D7: mov cx, [esi+00000034h]
+  loc_007380DB: mov var_18, edi
+  loc_007380DE: mov var_18, ecx
+  loc_007380E1: mov eax, Me
+  loc_007380E4: push eax
+  loc_007380E5: mov edx, [eax]
+  loc_007380E7: call [edx+00000008h]
+  loc_007380EA: mov eax, arg_C
+  loc_007380ED: mov cx, var_18
+  loc_007380F1: mov [eax], cx
+  loc_007380F4: mov eax, var_4
+  loc_007380F7: mov ecx, var_14
+  loc_007380FA: pop edi
+  loc_007380FB: pop esi
+  loc_007380FC: mov fs:[00000000h], ecx
+  loc_00738103: pop ebx
+  loc_00738104: mov esp, ebp
+  loc_00738106: pop ebp
+  loc_00738107: retn 0008h
+End Sub
+
+Public Property Let BuggerOffCount(vNewVal) '738110
+  loc_00738110: push ebp
+  loc_00738111: mov ebp, esp
+  loc_00738113: sub esp, 0000000Ch
+  loc_00738116: push 00412856h ; __vbaExceptHandler
+  loc_0073811B: mov eax, fs:[00000000h]
+  loc_00738121: push eax
+  loc_00738122: mov fs:[00000000h], esp
+  loc_00738129: sub esp, 00000008h
+  loc_0073812C: push ebx
+  loc_0073812D: push esi
+  loc_0073812E: push edi
+  loc_0073812F: mov var_C, esp
+  loc_00738132: mov var_8, 004127C8h
+  loc_00738139: mov var_4, 00000000h
+  loc_00738140: mov esi, Me
+  loc_00738143: push esi
+  loc_00738144: mov eax, [esi]
+  loc_00738146: call [eax+00000004h]
+  loc_00738149: mov ecx, vNewVal
+  loc_0073814C: mov dx, [ecx]
+  loc_0073814F: mov [esi+00000036h], dx
+  loc_00738153: mov eax, Me
+  loc_00738156: push eax
+  loc_00738157: mov ecx, [eax]
+  loc_00738159: call [ecx+00000008h]
+  loc_0073815C: mov eax, var_4
+  loc_0073815F: mov ecx, var_14
+  loc_00738162: pop edi
+  loc_00738163: pop esi
+  loc_00738164: mov fs:[00000000h], ecx
+  loc_0073816B: pop ebx
+  loc_0073816C: mov esp, ebp
+  loc_0073816E: pop ebp
+  loc_0073816F: retn 0008h
+End Sub
+
+Public Property Get BuggerOffCount(arg_C) '738180
+  loc_00738180: push ebp
+  loc_00738181: mov ebp, esp
+  loc_00738183: sub esp, 0000000Ch
+  loc_00738186: push 00412856h ; __vbaExceptHandler
+  loc_0073818B: mov eax, fs:[00000000h]
+  loc_00738191: push eax
+  loc_00738192: mov fs:[00000000h], esp
+  loc_00738199: sub esp, 0000000Ch
+  loc_0073819C: push ebx
+  loc_0073819D: push esi
+  loc_0073819E: push edi
+  loc_0073819F: mov var_C, esp
+  loc_007381A2: mov var_8, 004127D0h
+  loc_007381A9: xor edi, edi
+  loc_007381AB: mov var_4, edi
+  loc_007381AE: mov esi, Me
+  loc_007381B1: push esi
+  loc_007381B2: mov eax, [esi]
+  loc_007381B4: call [eax+00000004h]
+  loc_007381B7: mov cx, [esi+00000036h]
+  loc_007381BB: mov var_18, edi
+  loc_007381BE: mov var_18, ecx
+  loc_007381C1: mov eax, Me
+  loc_007381C4: push eax
+  loc_007381C5: mov edx, [eax]
+  loc_007381C7: call [edx+00000008h]
+  loc_007381CA: mov eax, arg_C
+  loc_007381CD: mov cx, var_18
+  loc_007381D1: mov [eax], cx
+  loc_007381D4: mov eax, var_4
+  loc_007381D7: mov ecx, var_14
+  loc_007381DA: pop edi
+  loc_007381DB: pop esi
+  loc_007381DC: mov fs:[00000000h], ecx
+  loc_007381E3: pop ebx
+  loc_007381E4: mov esp, ebp
+  loc_007381E6: pop ebp
+  loc_007381E7: retn 0008h
+End Sub
+
+Public Sub Save() '7381F0
+  loc_007381F0: push ebp
+  loc_007381F1: mov ebp, esp
+  loc_007381F3: sub esp, 0000000Ch
+  loc_007381F6: push 00412856h ; __vbaExceptHandler
+  loc_007381FB: mov eax, fs:[00000000h]
+  loc_00738201: push eax
+  loc_00738202: mov fs:[00000000h], esp
+  loc_00738209: sub esp, 0000002Ch
+  loc_0073820C: push ebx
+  loc_0073820D: push esi
+  loc_0073820E: push edi
+  loc_0073820F: mov var_C, esp
+  loc_00738212: mov var_8, 004127D8h
+  loc_00738219: xor edi, edi
+  loc_0073821B: mov var_4, edi
+  loc_0073821E: mov ebx, Me
+  loc_00738221: push ebx
+  loc_00738222: mov eax, [ebx]
+  loc_00738224: call [eax+00000004h]
+  loc_00738227: mov eax, [0073C818h]
+  loc_0073822C: mov var_18, edi
+  loc_0073822F: cmp eax, edi
+  loc_00738231: mov var_1C, edi
+  loc_00738234: mov var_20, edi
+  loc_00738237: mov var_24, edi
+  loc_0073823A: jnz 0073824Ch
+  loc_0073823C: push 0073C818h
+  loc_00738241: push 00441F00h
+  loc_00738246: call [004012FCh] ; __vbaNew2
+  loc_0073824C: mov esi, [0073C818h]
+  loc_00738252: lea edx, var_20
+  loc_00738255: push edx
+  loc_00738256: push esi
+  loc_00738257: mov ecx, [esi]
+  loc_00738259: call [ecx+00000014h]
+  loc_0073825C: cmp eax, edi
+  loc_0073825E: fnclex
+  loc_00738260: jge 00738275h
+  loc_00738262: mov edi, [004010CCh] ; __vbaHresultCheckObj
+  loc_00738268: push 00000014h
+  loc_0073826A: push 00441EF0h
+  loc_0073826F: push esi
+  loc_00738270: push eax
+  loc_00738271: call edi
+  loc_00738273: jmp 0073827Bh
+  loc_00738275: mov edi, [004010CCh] ; __vbaHresultCheckObj
+  loc_0073827B: mov eax, var_20
+  loc_0073827E: lea edx, var_18
+  loc_00738281: push edx
+  loc_00738282: push eax
+  loc_00738283: mov ecx, [eax]
+  loc_00738285: mov esi, eax
+  loc_00738287: call [ecx+00000060h]
+  loc_0073828A: test eax, eax
+  loc_0073828C: fnclex
+  loc_0073828E: jge 0073829Bh
+  loc_00738290: push 00000060h
+  loc_00738292: push 004437B4h
+  loc_00738297: push esi
+  loc_00738298: push eax
+  loc_00738299: call edi
+  loc_0073829B: mov eax, [ebx]
+  loc_0073829D: lea ecx, var_24
+  loc_007382A0: push ecx
+  loc_007382A1: push ebx
+  loc_007382A2: call [eax+00000020h]
+  loc_007382A5: test eax, eax
+  loc_007382A7: jge 007382B4h
+  loc_007382A9: push 00000020h
+  loc_007382AB: push 0044D8C4h
+  loc_007382B0: push ebx
+  loc_007382B1: push eax
+  loc_007382B2: call edi
+  loc_007382B4: mov edx, var_24
+  loc_007382B7: push edx
+  loc_007382B8: call [00401104h] ; __vbaStrBool
+  loc_007382BE: mov ebx, [004013C0h] ; __vbaStrMove
+  loc_007382C4: mov edx, eax
+  loc_007382C6: lea ecx, var_1C
+  loc_007382C9: call ebx
+  loc_007382CB: push eax
+  loc_007382CC: mov eax, var_18
+  loc_007382CF: push 00477B1Ch ; "RegSuppress"
+  loc_007382D4: push 0044317Ch ; "UserInfo"
+  loc_007382D9: push eax
+  loc_007382DA: call [00401010h] ; rtcSaveSetting
+  loc_007382E0: lea ecx, var_1C
+  loc_007382E3: lea edx, var_18
+  loc_007382E6: push ecx
+  loc_007382E7: push edx
+  loc_007382E8: push 00000002h
+  loc_007382EA: call [00401324h] ; __vbaFreeStrList
+  loc_007382F0: add esp, 0000000Ch
+  loc_007382F3: lea ecx, var_20
+  loc_007382F6: call [0040142Ch] ; __vbaFreeObj
+  loc_007382FC: mov eax, [0073C818h]
+  loc_00738301: test eax, eax
+  loc_00738303: jnz 00738315h
+  loc_00738305: push 0073C818h
+  loc_0073830A: push 00441F00h
+  loc_0073830F: call [004012FCh] ; __vbaNew2
+  loc_00738315: mov esi, [0073C818h]
+  loc_0073831B: lea ecx, var_20
+  loc_0073831E: push ecx
+  loc_0073831F: push esi
+  loc_00738320: mov eax, [esi]
+  loc_00738322: call [eax+00000014h]
+  loc_00738325: test eax, eax
+  loc_00738327: fnclex
+  loc_00738329: jge 00738336h
+  loc_0073832B: push 00000014h
+  loc_0073832D: push 00441EF0h
+  loc_00738332: push esi
+  loc_00738333: push eax
+  loc_00738334: call edi
+  loc_00738336: mov eax, var_20
+  loc_00738339: lea ecx, var_18
+  loc_0073833C: push ecx
+  loc_0073833D: push eax
+  loc_0073833E: mov edx, [eax]
+  loc_00738340: mov esi, eax
+  loc_00738342: call [edx+00000060h]
+  loc_00738345: test eax, eax
+  loc_00738347: fnclex
+  loc_00738349: jge 00738356h
+  loc_0073834B: push 00000060h
+  loc_0073834D: push 004437B4h
+  loc_00738352: push esi
+  loc_00738353: push eax
+  loc_00738354: call edi
+  loc_00738356: mov esi, Me
+  loc_00738359: lea eax, var_24
+  loc_0073835C: push eax
+  loc_0073835D: push esi
+  loc_0073835E: mov edx, [esi]
+  loc_00738360: call [edx+00000028h]
+  loc_00738363: test eax, eax
+  loc_00738365: jge 00738372h
+  loc_00738367: push 00000028h
+  loc_00738369: push 0044D8C4h
+  loc_0073836E: push esi
+  loc_0073836F: push eax
+  loc_00738370: call edi
+  loc_00738372: mov ecx, var_24
+  loc_00738375: push ecx
+  loc_00738376: call [0040100Ch] ; __vbaStrI2
+  loc_0073837C: mov edx, eax
+  loc_0073837E: lea ecx, var_1C
+  loc_00738381: call ebx
+  loc_00738383: mov edx, var_18
+  loc_00738386: push eax
+  loc_00738387: push 00477B38h ; "RegDismissedCount"
+  loc_0073838C: push 0044317Ch ; "UserInfo"
+  loc_00738391: push edx
+  loc_00738392: call [00401010h] ; rtcSaveSetting
+  loc_00738398: lea eax, var_1C
+  loc_0073839B: lea ecx, var_18
+  loc_0073839E: push eax
+  loc_0073839F: push ecx
+  loc_007383A0: push 00000002h
+  loc_007383A2: call [00401324h] ; __vbaFreeStrList
+  loc_007383A8: add esp, 0000000Ch
+  loc_007383AB: lea ecx, var_20
+  loc_007383AE: call [0040142Ch] ; __vbaFreeObj
+  loc_007383B4: push 007383D9h
+  loc_007383B9: jmp 007383D8h
+  loc_007383BB: lea edx, var_1C
+  loc_007383BE: lea eax, var_18
+  loc_007383C1: push edx
+  loc_007383C2: push eax
+  loc_007383C3: push 00000002h
+  loc_007383C5: call [00401324h] ; __vbaFreeStrList
+  loc_007383CB: add esp, 0000000Ch
+  loc_007383CE: lea ecx, var_20
+  loc_007383D1: call [0040142Ch] ; __vbaFreeObj
+  loc_007383D7: ret
+  loc_007383D8: ret
+  loc_007383D9: mov eax, Me
+  loc_007383DC: push eax
+  loc_007383DD: mov ecx, [eax]
+  loc_007383DF: call [ecx+00000008h]
+  loc_007383E2: mov eax, var_4
+  loc_007383E5: mov ecx, var_14
+  loc_007383E8: pop edi
+  loc_007383E9: pop esi
+  loc_007383EA: mov fs:[00000000h], ecx
+  loc_007383F1: pop ebx
+  loc_007383F2: mov esp, ebp
+  loc_007383F4: pop ebp
+  loc_007383F5: retn 0004h
+End Sub
+
+Private Sub Proc_79_5_738400
+  loc_00738400: push ebp
+  loc_00738401: mov ebp, esp
+  loc_00738403: sub esp, 00000018h
+  loc_00738406: push 00412856h ; __vbaExceptHandler
+  loc_0073840B: mov eax, fs:[00000000h]
+  loc_00738411: push eax
+  loc_00738412: mov fs:[00000000h], esp
+  loc_00738419: mov eax, 00000074h
+  loc_0073841E: call 00412850h ; __vbaChkstk
+  loc_00738423: push ebx
+  loc_00738424: push esi
+  loc_00738425: push edi
+  loc_00738426: mov var_18, esp
+  loc_00738429: mov var_14, 004127E8h
+  loc_00738430: mov eax, Me
+  loc_00738433: and eax, 00000001h
+  loc_00738436: mov var_10, eax
+  loc_00738439: mov ecx, Me
+  loc_0073843C: and ecx, FFFFFFFEh
+  loc_0073843F: mov Me, ecx
+  loc_00738442: mov var_C, 00000000h
+  loc_00738449: mov edx, Me
+  loc_0073844C: mov eax, [edx]
+  loc_0073844E: mov ecx, Me
+  loc_00738451: push ecx
+  loc_00738452: call [eax+00000004h]
+  loc_00738455: mov var_4, 00000001h
+  loc_0073845C: mov var_4, 00000002h
+  loc_00738463: push 00000001h
+  loc_00738465: call [00401124h] ; __vbaOnError
+  loc_0073846B: mov var_4, 00000003h
+  loc_00738472: cmp [0073C818h], 00000000h
+  loc_00738479: jnz 00738494h
+  loc_0073847B: push 0073C818h
+  loc_00738480: push 00441F00h
+  loc_00738485: call [004012FCh] ; __vbaNew2
+  loc_0073848B: mov var_6C, 0073C818h
+  loc_00738492: jmp 0073849Bh
+  loc_00738494: mov var_6C, 0073C818h
+  loc_0073849B: mov edx, var_6C
+  loc_0073849E: mov eax, [edx]
+  loc_007384A0: mov var_44, eax
+  loc_007384A3: lea ecx, var_2C
+  loc_007384A6: push ecx
+  loc_007384A7: mov edx, var_44
+  loc_007384AA: mov eax, [edx]
+  loc_007384AC: mov ecx, var_44
+  loc_007384AF: push ecx
+  loc_007384B0: call [eax+00000014h]
+  loc_007384B3: fnclex
+  loc_007384B5: mov var_48, eax
+  loc_007384B8: cmp var_48, 00000000h
+  loc_007384BC: jge 007384D8h
+  loc_007384BE: push 00000014h
+  loc_007384C0: push 00441EF0h
+  loc_007384C5: mov edx, var_44
+  loc_007384C8: push edx
+  loc_007384C9: mov eax, var_48
+  loc_007384CC: push eax
+  loc_007384CD: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007384D3: mov var_70, eax
+  loc_007384D6: jmp 007384DFh
+  loc_007384D8: mov var_70, 00000000h
+  loc_007384DF: mov ecx, var_2C
+  loc_007384E2: mov var_4C, ecx
+  loc_007384E5: lea edx, var_24
+  loc_007384E8: push edx
+  loc_007384E9: mov eax, var_4C
+  loc_007384EC: mov ecx, [eax]
+  loc_007384EE: mov edx, var_4C
+  loc_007384F1: push edx
+  loc_007384F2: call [ecx+00000060h]
+  loc_007384F5: fnclex
+  loc_007384F7: mov var_50, eax
+  loc_007384FA: cmp var_50, 00000000h
+  loc_007384FE: jge 0073851Ah
+  loc_00738500: push 00000060h
+  loc_00738502: push 004437B4h
+  loc_00738507: mov eax, var_4C
+  loc_0073850A: push eax
+  loc_0073850B: mov ecx, var_50
+  loc_0073850E: push ecx
+  loc_0073850F: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00738515: mov var_74, eax
+  loc_00738518: jmp 00738521h
+  loc_0073851A: mov var_74, 00000000h
+  loc_00738521: mov var_34, 00000000h
+  loc_00738528: mov var_3C, 0000000Bh
+  loc_0073852F: mov eax, 00000010h
+  loc_00738534: call 00412850h ; __vbaChkstk
+  loc_00738539: mov edx, esp
+  loc_0073853B: mov eax, var_3C
+  loc_0073853E: mov [edx], eax
+  loc_00738540: mov ecx, var_38
+  loc_00738543: mov [edx+00000004h], ecx
+  loc_00738546: mov eax, var_34
+  loc_00738549: mov [edx+00000008h], eax
+  loc_0073854C: mov ecx, var_30
+  loc_0073854F: mov [edx+0000000Ch], ecx
+  loc_00738552: push 00477B1Ch ; "RegSuppress"
+  loc_00738557: push 0044317Ch ; "UserInfo"
+  loc_0073855C: mov edx, var_24
+  loc_0073855F: push edx
+  loc_00738560: call [00401354h] ; rtcGetSetting
+  loc_00738566: mov edx, eax
+  loc_00738568: lea ecx, var_28
+  loc_0073856B: call [004013C0h] ; __vbaStrMove
+  loc_00738571: push eax
+  loc_00738572: call [00401108h] ; __vbaBoolStr
+  loc_00738578: mov var_40, ax
+  loc_0073857C: lea eax, var_40
+  loc_0073857F: push eax
+  loc_00738580: mov ecx, Me
+  loc_00738583: mov edx, [ecx]
+  loc_00738585: mov eax, Me
+  loc_00738588: push eax
+  loc_00738589: call [edx+0000001Ch]
+  loc_0073858C: mov var_54, eax
+  loc_0073858F: cmp var_54, 00000000h
+  loc_00738593: jge 007385AFh
+  loc_00738595: push 0000001Ch
+  loc_00738597: push 0044D8C4h
+  loc_0073859C: mov ecx, Me
+  loc_0073859F: push ecx
+  loc_007385A0: mov edx, var_54
+  loc_007385A3: push edx
+  loc_007385A4: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007385AA: mov var_78, eax
+  loc_007385AD: jmp 007385B6h
+  loc_007385AF: mov var_78, 00000000h
+  loc_007385B6: lea eax, var_28
+  loc_007385B9: push eax
+  loc_007385BA: lea ecx, var_24
+  loc_007385BD: push ecx
+  loc_007385BE: push 00000002h
+  loc_007385C0: call [00401324h] ; __vbaFreeStrList
+  loc_007385C6: add esp, 0000000Ch
+  loc_007385C9: lea ecx, var_2C
+  loc_007385CC: call [0040142Ch] ; __vbaFreeObj
+  loc_007385D2: mov var_4, 00000004h
+  loc_007385D9: cmp [0073C818h], 00000000h
+  loc_007385E0: jnz 007385FBh
+  loc_007385E2: push 0073C818h
+  loc_007385E7: push 00441F00h
+  loc_007385EC: call [004012FCh] ; __vbaNew2
+  loc_007385F2: mov var_7C, 0073C818h
+  loc_007385F9: jmp 00738602h
+  loc_007385FB: mov var_7C, 0073C818h
+  loc_00738602: mov edx, var_7C
+  loc_00738605: mov eax, [edx]
+  loc_00738607: mov var_44, eax
+  loc_0073860A: lea ecx, var_2C
+  loc_0073860D: push ecx
+  loc_0073860E: mov edx, var_44
+  loc_00738611: mov eax, [edx]
+  loc_00738613: mov ecx, var_44
+  loc_00738616: push ecx
+  loc_00738617: call [eax+00000014h]
+  loc_0073861A: fnclex
+  loc_0073861C: mov var_48, eax
+  loc_0073861F: cmp var_48, 00000000h
+  loc_00738623: jge 0073863Fh
+  loc_00738625: push 00000014h
+  loc_00738627: push 00441EF0h
+  loc_0073862C: mov edx, var_44
+  loc_0073862F: push edx
+  loc_00738630: mov eax, var_48
+  loc_00738633: push eax
+  loc_00738634: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0073863A: mov var_80, eax
+  loc_0073863D: jmp 00738646h
+  loc_0073863F: mov var_80, 00000000h
+  loc_00738646: mov ecx, var_2C
+  loc_00738649: mov var_4C, ecx
+  loc_0073864C: lea edx, var_24
+  loc_0073864F: push edx
+  loc_00738650: mov eax, var_4C
+  loc_00738653: mov ecx, [eax]
+  loc_00738655: mov edx, var_4C
+  loc_00738658: push edx
+  loc_00738659: call [ecx+00000060h]
+  loc_0073865C: fnclex
+  loc_0073865E: mov var_50, eax
+  loc_00738661: cmp var_50, 00000000h
+  loc_00738665: jge 00738684h
+  loc_00738667: push 00000060h
+  loc_00738669: push 004437B4h
+  loc_0073866E: mov eax, var_4C
+  loc_00738671: push eax
+  loc_00738672: mov ecx, var_50
+  loc_00738675: push ecx
+  loc_00738676: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0073867C: mov var_84, eax
+  loc_00738682: jmp 0073868Eh
+  loc_00738684: mov var_84, 00000000h
+  loc_0073868E: mov var_34, 00000000h
+  loc_00738695: mov var_3C, 00000002h
+  loc_0073869C: mov eax, 00000010h
+  loc_007386A1: call 00412850h ; __vbaChkstk
+  loc_007386A6: mov edx, esp
+  loc_007386A8: mov eax, var_3C
+  loc_007386AB: mov [edx], eax
+  loc_007386AD: mov ecx, var_38
+  loc_007386B0: mov [edx+00000004h], ecx
+  loc_007386B3: mov eax, var_34
+  loc_007386B6: mov [edx+00000008h], eax
+  loc_007386B9: mov ecx, var_30
+  loc_007386BC: mov [edx+0000000Ch], ecx
+  loc_007386BF: push 00477B38h ; "RegDismissedCount"
+  loc_007386C4: push 0044317Ch ; "UserInfo"
+  loc_007386C9: mov edx, var_24
+  loc_007386CC: push edx
+  loc_007386CD: call [00401354h] ; rtcGetSetting
+  loc_007386D3: mov edx, eax
+  loc_007386D5: lea ecx, var_28
+  loc_007386D8: call [004013C0h] ; __vbaStrMove
+  loc_007386DE: push eax
+  loc_007386DF: call [0040127Ch] ; __vbaI2Str
+  loc_007386E5: mov var_40, ax
+  loc_007386E9: lea eax, var_40
+  loc_007386EC: push eax
+  loc_007386ED: mov ecx, Me
+  loc_007386F0: mov edx, [ecx]
+  loc_007386F2: mov eax, Me
+  loc_007386F5: push eax
+  loc_007386F6: call [edx+00000024h]
+  loc_007386F9: mov var_54, eax
+  loc_007386FC: cmp var_54, 00000000h
+  loc_00738700: jge 0073871Fh
+  loc_00738702: push 00000024h
+  loc_00738704: push 0044D8C4h
+  loc_00738709: mov ecx, Me
+  loc_0073870C: push ecx
+  loc_0073870D: mov edx, var_54
+  loc_00738710: push edx
+  loc_00738711: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00738717: mov var_88, eax
+  loc_0073871D: jmp 00738729h
+  loc_0073871F: mov var_88, 00000000h
+  loc_00738729: lea eax, var_28
+  loc_0073872C: push eax
+  loc_0073872D: lea ecx, var_24
+  loc_00738730: push ecx
+  loc_00738731: push 00000002h
+  loc_00738733: call [00401324h] ; __vbaFreeStrList
+  loc_00738739: add esp, 0000000Ch
+  loc_0073873C: lea ecx, var_2C
+  loc_0073873F: call [0040142Ch] ; __vbaFreeObj
+  loc_00738745: jmp 0073882Ch
+  loc_0073874A: mov var_4, 00000007h
+  loc_00738751: call [00401340h] ; rtcErrObj
+  loc_00738757: push eax
+  loc_00738758: lea edx, var_2C
+  loc_0073875B: push edx
+  loc_0073875C: call [00401128h] ; __vbaObjSet
+  loc_00738762: mov var_8C, eax
+  loc_00738768: mov eax, var_8C
+  loc_0073876E: mov ecx, [eax]
+  loc_00738770: mov edx, var_8C
+  loc_00738776: push edx
+  loc_00738777: call [ecx+00000048h]
+  loc_0073877A: lea ecx, var_2C
+  loc_0073877D: call [0040142Ch] ; __vbaFreeObj
+  loc_00738783: mov var_4, 00000008h
+  loc_0073878A: mov var_40, 0000h
+  loc_00738790: lea eax, var_40
+  loc_00738793: push eax
+  loc_00738794: mov ecx, Me
+  loc_00738797: mov edx, [ecx]
+  loc_00738799: mov eax, Me
+  loc_0073879C: push eax
+  loc_0073879D: call [edx+0000001Ch]
+  loc_007387A0: mov var_44, eax
+  loc_007387A3: cmp var_44, 00000000h
+  loc_007387A7: jge 007387C6h
+  loc_007387A9: push 0000001Ch
+  loc_007387AB: push 0044D8C4h
+  loc_007387B0: mov ecx, Me
+  loc_007387B3: push ecx
+  loc_007387B4: mov edx, var_44
+  loc_007387B7: push edx
+  loc_007387B8: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007387BE: mov var_90, eax
+  loc_007387C4: jmp 007387D0h
+  loc_007387C6: mov var_90, 00000000h
+  loc_007387D0: mov var_4, 00000009h
+  loc_007387D7: mov var_40, 0000h
+  loc_007387DD: lea eax, var_40
+  loc_007387E0: push eax
+  loc_007387E1: mov ecx, Me
+  loc_007387E4: mov edx, [ecx]
+  loc_007387E6: mov eax, Me
+  loc_007387E9: push eax
+  loc_007387EA: call [edx+00000024h]
+  loc_007387ED: mov var_44, eax
+  loc_007387F0: cmp var_44, 00000000h
+  loc_007387F4: jge 00738813h
+  loc_007387F6: push 00000024h
+  loc_007387F8: push 0044D8C4h
+  loc_007387FD: mov ecx, Me
+  loc_00738800: push ecx
+  loc_00738801: mov edx, var_44
+  loc_00738804: push edx
+  loc_00738805: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0073880B: mov var_94, eax
+  loc_00738811: jmp 0073881Dh
+  loc_00738813: mov var_94, 00000000h
+  loc_0073881D: mov var_4, 0000000Ah
+  loc_00738824: push FFFFFFFFh
+  loc_00738826: call [00401090h] ; __vbaResume
+  loc_0073882C: call [00401114h] ; __vbaExitProc
+  loc_00738832: push 00738857h
+  loc_00738837: jmp 00738856h
+  loc_00738839: lea eax, var_28
+  loc_0073883C: push eax
+  loc_0073883D: lea ecx, var_24
+  loc_00738840: push ecx
+  loc_00738841: push 00000002h
+  loc_00738843: call [00401324h] ; __vbaFreeStrList
+  loc_00738849: add esp, 0000000Ch
+  loc_0073884C: lea ecx, var_2C
+  loc_0073884F: call [0040142Ch] ; __vbaFreeObj
+  loc_00738855: ret
+  loc_00738856: ret
+  loc_00738857: mov edx, Me
+  loc_0073885A: mov eax, [edx]
+  loc_0073885C: mov ecx, Me
+  loc_0073885F: push ecx
+  loc_00738860: call [eax+00000008h]
+  loc_00738863: mov eax, var_10
+  loc_00738866: mov ecx, var_20
+  loc_00738869: mov fs:[00000000h], ecx
+  loc_00738870: pop edi
+  loc_00738871: pop esi
+  loc_00738872: pop ebx
+  loc_00738873: mov esp, ebp
+  loc_00738875: pop ebp
+  loc_00738876: retn 0004h
+End Sub

Src Code/clsStoryReader.cls

@@ -0,0 +1,729 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior = 0   'vbNone
+  MTSTransactionMode = 0   'NotAnMTSObject
+END
+Attribute VB_Name = "clsStoryReader"
+Attribute VB_GlobalNameSpace = True
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+
+
+Public Property Let StoryReaderIsPlaying(blnNewStoryReaderIsPlaying) '5F82F0
+  loc_005F82F0: push ebp
+  loc_005F82F1: mov ebp, esp
+  loc_005F82F3: sub esp, 00000018h
+  loc_005F82F6: push 00412856h ; __vbaExceptHandler
+  loc_005F82FB: mov eax, fs:[00000000h]
+  loc_005F8301: push eax
+  loc_005F8302: mov fs:[00000000h], esp
+  loc_005F8309: mov eax, 00000020h
+  loc_005F830E: call 00412850h ; __vbaChkstk
+  loc_005F8313: push ebx
+  loc_005F8314: push esi
+  loc_005F8315: push edi
+  loc_005F8316: mov var_18, esp
+  loc_005F8319: mov var_14, 00403AF0h
+  loc_005F8320: mov var_10, 00000000h
+  loc_005F8327: mov var_C, 00000000h
+  loc_005F832E: mov eax, Me
+  loc_005F8331: mov ecx, [eax]
+  loc_005F8333: mov edx, Me
+  loc_005F8336: push edx
+  loc_005F8337: call [ecx+00000004h]
+  loc_005F833A: mov var_4, 00000001h
+  loc_005F8341: mov var_4, 00000002h
+  loc_005F8348: push FFFFFFFFh
+  loc_005F834A: call [00401124h] ; __vbaOnError
+  loc_005F8350: mov var_4, 00000003h
+  loc_005F8357: mov eax, Me
+  loc_005F835A: mov ecx, blnNewStoryReaderIsPlaying
+  loc_005F835D: mov dx, [ecx]
+  loc_005F8360: mov [eax+0000003Ch], dx
+  loc_005F8364: mov var_4, 00000004h
+  loc_005F836B: mov eax, Me
+  loc_005F836E: movsx ecx, [eax+0000003Ch]
+  loc_005F8372: test ecx, ecx
+  loc_005F8374: jz 005F83C2h
+  loc_005F8376: mov var_4, 00000005h
+  loc_005F837D: push 00000000h
+  loc_005F837F: mov edx, [0073A08Ch]
+  loc_005F8385: mov eax, [edx]
+  loc_005F8387: mov ecx, [0073A08Ch]
+  loc_005F838D: push ecx
+  loc_005F838E: call [eax+00000058h]
+  loc_005F8391: fnclex
+  loc_005F8393: mov var_24, eax
+  loc_005F8396: cmp var_24, 00000000h
+  loc_005F839A: jge 005F83B9h
+  loc_005F839C: push 00000058h
+  loc_005F839E: push 004419ACh
+  loc_005F83A3: mov edx, [0073A08Ch]
+  loc_005F83A9: push edx
+  loc_005F83AA: mov eax, var_24
+  loc_005F83AD: push eax
+  loc_005F83AE: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005F83B4: mov var_3C, eax
+  loc_005F83B7: jmp 005F83C0h
+  loc_005F83B9: mov var_3C, 00000000h
+  loc_005F83C0: jmp 005F840Bh
+  loc_005F83C2: mov var_4, 00000007h
+  loc_005F83C9: push FFFFFFFFh
+  loc_005F83CB: mov ecx, [0073A08Ch]
+  loc_005F83D1: mov edx, [ecx]
+  loc_005F83D3: mov eax, [0073A08Ch]
+  loc_005F83D8: push eax
+  loc_005F83D9: call [edx+00000058h]
+  loc_005F83DC: fnclex
+  loc_005F83DE: mov var_24, eax
+  loc_005F83E1: cmp var_24, 00000000h
+  loc_005F83E5: jge 005F8404h
+  loc_005F83E7: push 00000058h
+  loc_005F83E9: push 004419ACh
+  loc_005F83EE: mov ecx, [0073A08Ch]
+  loc_005F83F4: push ecx
+  loc_005F83F5: mov edx, var_24
+  loc_005F83F8: push edx
+  loc_005F83F9: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005F83FF: mov var_40, eax
+  loc_005F8402: jmp 005F840Bh
+  loc_005F8404: mov var_40, 00000000h
+  loc_005F840B: mov eax, Me
+  loc_005F840E: mov ecx, [eax]
+  loc_005F8410: mov edx, Me
+  loc_005F8413: push edx
+  loc_005F8414: call [ecx+00000008h]
+  loc_005F8417: mov eax, var_10
+  loc_005F841A: mov ecx, var_20
+  loc_005F841D: mov fs:[00000000h], ecx
+  loc_005F8424: pop edi
+  loc_005F8425: pop esi
+  loc_005F8426: pop ebx
+  loc_005F8427: mov esp, ebp
+  loc_005F8429: pop ebp
+  loc_005F842A: retn 0008h
+End Sub
+
+Public Property Get StoryReaderIsPlaying(arg_C) '5F8430
+  loc_005F8430: push ebp
+  loc_005F8431: mov ebp, esp
+  loc_005F8433: sub esp, 0000000Ch
+  loc_005F8436: push 00412856h ; __vbaExceptHandler
+  loc_005F843B: mov eax, fs:[00000000h]
+  loc_005F8441: push eax
+  loc_005F8442: mov fs:[00000000h], esp
+  loc_005F8449: sub esp, 0000000Ch
+  loc_005F844C: push ebx
+  loc_005F844D: push esi
+  loc_005F844E: push edi
+  loc_005F844F: mov var_C, esp
+  loc_005F8452: mov var_8, 00403B38h
+  loc_005F8459: xor edi, edi
+  loc_005F845B: mov var_4, edi
+  loc_005F845E: mov esi, Me
+  loc_005F8461: push esi
+  loc_005F8462: mov eax, [esi]
+  loc_005F8464: call [eax+00000004h]
+  loc_005F8467: mov cx, [esi+0000003Ch]
+  loc_005F846B: mov var_18, edi
+  loc_005F846E: mov var_18, ecx
+  loc_005F8471: mov eax, Me
+  loc_005F8474: push eax
+  loc_005F8475: mov edx, [eax]
+  loc_005F8477: call [edx+00000008h]
+  loc_005F847A: mov eax, arg_C
+  loc_005F847D: mov cx, var_18
+  loc_005F8481: mov [eax], cx
+  loc_005F8484: mov eax, var_4
+  loc_005F8487: mov ecx, var_14
+  loc_005F848A: pop edi
+  loc_005F848B: pop esi
+  loc_005F848C: mov fs:[00000000h], ecx
+  loc_005F8493: pop ebx
+  loc_005F8494: mov esp, ebp
+  loc_005F8496: pop ebp
+  loc_005F8497: retn 0008h
+End Sub
+
+Public Sub StartUpCharacter() '5F84A0
+  loc_005F84A0: push ebp
+  loc_005F84A1: mov ebp, esp
+  loc_005F84A3: sub esp, 0000000Ch
+  loc_005F84A6: push 00412856h ; __vbaExceptHandler
+  loc_005F84AB: mov eax, fs:[00000000h]
+  loc_005F84B1: push eax
+  loc_005F84B2: mov fs:[00000000h], esp
+  loc_005F84B9: sub esp, 00000030h
+  loc_005F84BC: push ebx
+  loc_005F84BD: push esi
+  loc_005F84BE: push edi
+  loc_005F84BF: mov var_C, esp
+  loc_005F84C2: mov var_8, 00403B40h
+  loc_005F84C9: mov var_4, 00000000h
+  loc_005F84D0: mov eax, Me
+  loc_005F84D3: push eax
+  loc_005F84D4: mov ecx, [eax]
+  loc_005F84D6: call [ecx+00000004h]
+  loc_005F84D9: mov eax, [0073A254h]
+  loc_005F84DE: test eax, eax
+  loc_005F84E0: jnz 005F84F2h
+  loc_005F84E2: push 0073A254h
+  loc_005F84E7: push 00431838h
+  loc_005F84EC: call [004012FCh] ; __vbaNew2
+  loc_005F84F2: sub esp, 00000010h
+  loc_005F84F5: mov ecx, 0000000Ah
+  loc_005F84FA: mov ebx, esp
+  loc_005F84FC: mov var_24, ecx
+  loc_005F84FF: mov eax, 80020004h
+  loc_005F8504: sub esp, 00000010h
+  loc_005F8507: mov [ebx], ecx
+  loc_005F8509: mov ecx, var_30
+  loc_005F850C: mov edx, eax
+  loc_005F850E: mov esi, [0073A254h]
+  loc_005F8514: mov [ebx+00000004h], ecx
+  loc_005F8517: mov ecx, esp
+  loc_005F8519: mov edi, [esi]
+  loc_005F851B: push esi
+  loc_005F851C: mov [ebx+00000008h], eax
+  loc_005F851F: mov eax, var_28
+  loc_005F8522: mov [ebx+0000000Ch], eax
+  loc_005F8525: mov eax, var_24
+  loc_005F8528: mov [ecx], eax
+  loc_005F852A: mov eax, var_20
+  loc_005F852D: mov [ecx+00000004h], eax
+  loc_005F8530: mov [ecx+00000008h], edx
+  loc_005F8533: mov edx, var_18
+  loc_005F8536: mov [ecx+0000000Ch], edx
+  loc_005F8539: call [edi+000002B0h]
+  loc_005F853F: test eax, eax
+  loc_005F8541: fnclex
+  loc_005F8543: jge 005F8557h
+  loc_005F8545: push 000002B0h
+  loc_005F854A: push 00440B20h
+  loc_005F854F: push esi
+  loc_005F8550: push eax
+  loc_005F8551: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005F8557: mov eax, Me
+  loc_005F855A: push eax
+  loc_005F855B: mov ecx, [eax]
+  loc_005F855D: call [ecx+00000008h]
+  loc_005F8560: mov eax, var_4
+  loc_005F8563: mov ecx, var_14
+  loc_005F8566: pop edi
+  loc_005F8567: pop esi
+  loc_005F8568: mov fs:[00000000h], ecx
+  loc_005F856F: pop ebx
+  loc_005F8570: mov esp, ebp
+  loc_005F8572: pop ebp
+  loc_005F8573: retn 0004h
+End Sub
+
+Public Sub ShutDownCharacter() '5F8580
+  loc_005F8580: push ebp
+  loc_005F8581: mov ebp, esp
+  loc_005F8583: sub esp, 0000000Ch
+  loc_005F8586: push 00412856h ; __vbaExceptHandler
+  loc_005F858B: mov eax, fs:[00000000h]
+  loc_005F8591: push eax
+  loc_005F8592: mov fs:[00000000h], esp
+  loc_005F8599: sub esp, 00000014h
+  loc_005F859C: push ebx
+  loc_005F859D: push esi
+  loc_005F859E: push edi
+  loc_005F859F: mov var_C, esp
+  loc_005F85A2: mov var_8, 00403B48h
+  loc_005F85A9: xor edi, edi
+  loc_005F85AB: mov var_4, edi
+  loc_005F85AE: mov eax, Me
+  loc_005F85B1: push eax
+  loc_005F85B2: mov ecx, [eax]
+  loc_005F85B4: call [ecx+00000004h]
+  loc_005F85B7: mov eax, [0073C818h]
+  loc_005F85BC: mov var_18, edi
+  loc_005F85BF: cmp eax, edi
+  loc_005F85C1: jnz 005F85D3h
+  loc_005F85C3: push 0073C818h
+  loc_005F85C8: push 00441F00h
+  loc_005F85CD: call [004012FCh] ; __vbaNew2
+  loc_005F85D3: mov eax, [0073A254h]
+  loc_005F85D8: mov esi, [0073C818h]
+  loc_005F85DE: cmp eax, edi
+  loc_005F85E0: jnz 005F85F2h
+  loc_005F85E2: push 0073A254h
+  loc_005F85E7: push 00431838h
+  loc_005F85EC: call [004012FCh] ; __vbaNew2
+  loc_005F85F2: mov edx, [0073A254h]
+  loc_005F85F8: mov ebx, [esi]
+  loc_005F85FA: lea eax, var_18
+  loc_005F85FD: push edx
+  loc_005F85FE: push eax
+  loc_005F85FF: call [00401130h] ; __vbaObjSetAddref
+  loc_005F8605: push eax
+  loc_005F8606: push esi
+  loc_005F8607: call [ebx+00000010h]
+  loc_005F860A: cmp eax, edi
+  loc_005F860C: fnclex
+  loc_005F860E: jge 005F861Fh
+  loc_005F8610: push 00000010h
+  loc_005F8612: push 00441EF0h
+  loc_005F8617: push esi
+  loc_005F8618: push eax
+  loc_005F8619: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005F861F: lea ecx, var_18
+  loc_005F8622: call [0040142Ch] ; __vbaFreeObj
+  loc_005F8628: push 005F863Ah
+  loc_005F862D: jmp 005F8639h
+  loc_005F862F: lea ecx, var_18
+  loc_005F8632: call [0040142Ch] ; __vbaFreeObj
+  loc_005F8638: ret
+  loc_005F8639: ret
+  loc_005F863A: mov eax, Me
+  loc_005F863D: push eax
+  loc_005F863E: mov ecx, [eax]
+  loc_005F8640: call [ecx+00000008h]
+  loc_005F8643: mov eax, var_4
+  loc_005F8646: mov ecx, var_14
+  loc_005F8649: pop edi
+  loc_005F864A: pop esi
+  loc_005F864B: mov fs:[00000000h], ecx
+  loc_005F8652: pop ebx
+  loc_005F8653: mov esp, ebp
+  loc_005F8655: pop ebp
+  loc_005F8656: retn 0004h
+End Sub
+
+Public Sub FireStoryReaderStop() '5F8660
+  loc_005F8660: push ebp
+  loc_005F8661: mov ebp, esp
+  loc_005F8663: sub esp, 0000000Ch
+  loc_005F8666: push 00412856h ; __vbaExceptHandler
+  loc_005F866B: mov eax, fs:[00000000h]
+  loc_005F8671: push eax
+  loc_005F8672: mov fs:[00000000h], esp
+  loc_005F8679: sub esp, 00000008h
+  loc_005F867C: push ebx
+  loc_005F867D: push esi
+  loc_005F867E: push edi
+  loc_005F867F: mov var_C, esp
+  loc_005F8682: mov var_8, 00403B58h
+  loc_005F8689: mov var_4, 00000000h
+  loc_005F8690: mov esi, Me
+  loc_005F8693: push esi
+  loc_005F8694: mov eax, [esi]
+  loc_005F8696: call [eax+00000004h]
+  loc_005F8699: push 00000000h
+  loc_005F869B: push 00000001h
+  loc_005F869D: push esi
+  loc_005F869E: call [00401064h] ; __vbaRaiseEvent
+  loc_005F86A4: add esp, 0000000Ch
+  loc_005F86A7: mov eax, Me
+  loc_005F86AA: push eax
+  loc_005F86AB: mov ecx, [eax]
+  loc_005F86AD: call [ecx+00000008h]
+  loc_005F86B0: mov eax, var_4
+  loc_005F86B3: mov ecx, var_14
+  loc_005F86B6: pop edi
+  loc_005F86B7: pop esi
+  loc_005F86B8: mov fs:[00000000h], ecx
+  loc_005F86BF: pop ebx
+  loc_005F86C0: mov esp, ebp
+  loc_005F86C2: pop ebp
+  loc_005F86C3: retn 0004h
+End Sub
+
+Public Sub FireStoryReaderNewBook(strNewPath) '5F86D0
+  loc_005F86D0: push ebp
+  loc_005F86D1: mov ebp, esp
+  loc_005F86D3: sub esp, 0000000Ch
+  loc_005F86D6: push 00412856h ; __vbaExceptHandler
+  loc_005F86DB: mov eax, fs:[00000000h]
+  loc_005F86E1: push eax
+  loc_005F86E2: mov fs:[00000000h], esp
+  loc_005F86E9: sub esp, 0000002Ch
+  loc_005F86EC: push ebx
+  loc_005F86ED: push esi
+  loc_005F86EE: push edi
+  loc_005F86EF: mov var_C, esp
+  loc_005F86F2: mov var_8, 00403B60h
+  loc_005F86F9: xor edi, edi
+  loc_005F86FB: mov var_4, edi
+  loc_005F86FE: mov esi, Me
+  loc_005F8701: push esi
+  loc_005F8702: mov eax, [esi]
+  loc_005F8704: call [eax+00000004h]
+  loc_005F8707: mov edx, strNewPath
+  loc_005F870A: lea ecx, var_18
+  loc_005F870D: mov var_18, edi
+  loc_005F8710: call [00401310h] ; __vbaStrCopy
+  loc_005F8716: sub esp, 00000010h
+  loc_005F8719: mov eax, var_18
+  loc_005F871C: mov edx, esp
+  loc_005F871E: mov ecx, 00000008h
+  loc_005F8723: push 00000001h
+  loc_005F8725: push 00000003h
+  loc_005F8727: mov [edx], ecx
+  loc_005F8729: mov ecx, var_24
+  loc_005F872C: push esi
+  loc_005F872D: mov [edx+00000004h], ecx
+  loc_005F8730: mov [edx+00000008h], eax
+  loc_005F8733: mov eax, var_1C
+  loc_005F8736: mov [edx+0000000Ch], eax
+  loc_005F8739: call [00401064h] ; __vbaRaiseEvent
+  loc_005F873F: add esp, 0000001Ch
+  loc_005F8742: push 005F8751h
+  loc_005F8747: lea ecx, var_18
+  loc_005F874A: call [00401430h] ; __vbaFreeStr
+  loc_005F8750: ret
+  loc_005F8751: mov eax, Me
+  loc_005F8754: push eax
+  loc_005F8755: mov ecx, [eax]
+  loc_005F8757: call [ecx+00000008h]
+  loc_005F875A: mov eax, var_4
+  loc_005F875D: mov ecx, var_14
+  loc_005F8760: pop edi
+  loc_005F8761: pop esi
+  loc_005F8762: mov fs:[00000000h], ecx
+  loc_005F8769: pop ebx
+  loc_005F876A: mov esp, ebp
+  loc_005F876C: pop ebp
+  loc_005F876D: retn 0008h
+End Sub
+
+Public Sub FireStoryReaderShutDown() '5F8770
+  loc_005F8770: push ebp
+  loc_005F8771: mov ebp, esp
+  loc_005F8773: sub esp, 0000000Ch
+  loc_005F8776: push 00412856h ; __vbaExceptHandler
+  loc_005F877B: mov eax, fs:[00000000h]
+  loc_005F8781: push eax
+  loc_005F8782: mov fs:[00000000h], esp
+  loc_005F8789: sub esp, 00000018h
+  loc_005F878C: push ebx
+  loc_005F878D: push esi
+  loc_005F878E: push edi
+  loc_005F878F: mov var_C, esp
+  loc_005F8792: mov var_8, 00403B70h
+  loc_005F8799: xor ebx, ebx
+  loc_005F879B: mov var_4, ebx
+  loc_005F879E: mov esi, Me
+  loc_005F87A1: push esi
+  loc_005F87A2: mov eax, [esi]
+  loc_005F87A4: call [eax+00000004h]
+  loc_005F87A7: push ebx
+  loc_005F87A8: push 00000002h
+  loc_005F87AA: push esi
+  loc_005F87AB: mov var_18, ebx
+  loc_005F87AE: mov var_1C, ebx
+  loc_005F87B1: call [00401064h] ; __vbaRaiseEvent
+  loc_005F87B7: mov eax, [0073A254h]
+  loc_005F87BC: add esp, 0000000Ch
+  loc_005F87BF: cmp eax, ebx
+  loc_005F87C1: jnz 005F87D3h
+  loc_005F87C3: push 0073A254h
+  loc_005F87C8: push 00431838h
+  loc_005F87CD: call [004012FCh] ; __vbaNew2
+  loc_005F87D3: mov edi, [00401310h] ; __vbaStrCopy
+  loc_005F87D9: mov esi, [0073A254h]
+  loc_005F87DF: mov edx, 004478A8h ; "FireStoryReaderShutDown"
+  loc_005F87E4: lea ecx, var_1C
+  loc_005F87E7: call edi
+  loc_005F87E9: mov edx, 0044786Ch ; "Shutting down StoryReader."
+  loc_005F87EE: lea ecx, var_18
+  loc_005F87F1: call edi
+  loc_005F87F3: mov ecx, [esi]
+  loc_005F87F5: lea edx, var_1C
+  loc_005F87F8: lea eax, var_18
+  loc_005F87FB: push edx
+  loc_005F87FC: push eax
+  loc_005F87FD: push esi
+  loc_005F87FE: call [ecx+00000748h]
+  loc_005F8804: cmp eax, ebx
+  loc_005F8806: fnclex
+  loc_005F8808: jge 005F881Ch
+  loc_005F880A: push 00000748h
+  loc_005F880F: push 004408D0h
+  loc_005F8814: push esi
+  loc_005F8815: push eax
+  loc_005F8816: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005F881C: lea ecx, var_1C
+  loc_005F881F: lea edx, var_18
+  loc_005F8822: push ecx
+  loc_005F8823: push edx
+  loc_005F8824: push 00000002h
+  loc_005F8826: call [00401324h] ; __vbaFreeStrList
+  loc_005F882C: add esp, 0000000Ch
+  loc_005F882F: push 005F884Bh
+  loc_005F8834: jmp 005F884Ah
+  loc_005F8836: lea eax, var_1C
+  loc_005F8839: lea ecx, var_18
+  loc_005F883C: push eax
+  loc_005F883D: push ecx
+  loc_005F883E: push 00000002h
+  loc_005F8840: call [00401324h] ; __vbaFreeStrList
+  loc_005F8846: add esp, 0000000Ch
+  loc_005F8849: ret
+  loc_005F884A: ret
+  loc_005F884B: mov eax, Me
+  loc_005F884E: push eax
+  loc_005F884F: mov edx, [eax]
+  loc_005F8851: call [edx+00000008h]
+  loc_005F8854: mov eax, var_4
+  loc_005F8857: mov ecx, var_14
+  loc_005F885A: pop edi
+  loc_005F885B: pop esi
+  loc_005F885C: mov fs:[00000000h], ecx
+  loc_005F8863: pop ebx
+  loc_005F8864: mov esp, ebp
+  loc_005F8866: pop ebp
+  loc_005F8867: retn 0004h
+End Sub
+
+Public Sub StoryReaderStartup(objStoryReaderInstance) '5F8870
+  loc_005F8870: push ebp
+  loc_005F8871: mov ebp, esp
+  loc_005F8873: sub esp, 0000000Ch
+  loc_005F8876: push 00412856h ; __vbaExceptHandler
+  loc_005F887B: mov eax, fs:[00000000h]
+  loc_005F8881: push eax
+  loc_005F8882: mov fs:[00000000h], esp
+  loc_005F8889: sub esp, 00000008h
+  loc_005F888C: push ebx
+  loc_005F888D: push esi
+  loc_005F888E: push edi
+  loc_005F888F: mov var_C, esp
+  loc_005F8892: mov var_8, 00403B80h
+  loc_005F8899: mov var_4, 00000000h
+  loc_005F88A0: mov eax, Me
+  loc_005F88A3: push eax
+  loc_005F88A4: mov ecx, [eax]
+  loc_005F88A6: call [ecx+00000004h]
+  loc_005F88A9: mov edx, objStoryReaderInstance
+  loc_005F88AC: mov eax, [edx]
+  loc_005F88AE: push eax
+  loc_005F88AF: push 0073A214h
+  loc_005F88B4: call [00401130h] ; __vbaObjSetAddref
+  loc_005F88BA: mov eax, Me
+  loc_005F88BD: push eax
+  loc_005F88BE: mov ecx, [eax]
+  loc_005F88C0: call [ecx+00000008h]
+  loc_005F88C3: mov eax, var_4
+  loc_005F88C6: mov ecx, var_14
+  loc_005F88C9: pop edi
+  loc_005F88CA: pop esi
+  loc_005F88CB: mov fs:[00000000h], ecx
+  loc_005F88D2: pop ebx
+  loc_005F88D3: mov esp, ebp
+  loc_005F88D5: pop ebp
+  loc_005F88D6: retn 0008h
+End Sub
+
+Public Sub StoryReaderShutDown() '5F88E0
+  loc_005F88E0: push ebp
+  loc_005F88E1: mov ebp, esp
+  loc_005F88E3: sub esp, 0000000Ch
+  loc_005F88E6: push 00412856h ; __vbaExceptHandler
+  loc_005F88EB: mov eax, fs:[00000000h]
+  loc_005F88F1: push eax
+  loc_005F88F2: mov fs:[00000000h], esp
+  loc_005F88F9: sub esp, 00000008h
+  loc_005F88FC: push ebx
+  loc_005F88FD: push esi
+  loc_005F88FE: push edi
+  loc_005F88FF: mov var_C, esp
+  loc_005F8902: mov var_8, 00403B88h
+  loc_005F8909: mov var_4, 00000000h
+  loc_005F8910: mov eax, Me
+  loc_005F8913: push eax
+  loc_005F8914: mov ecx, [eax]
+  loc_005F8916: call [ecx+00000004h]
+  loc_005F8919: push 0044777Ch
+  loc_005F891E: push 00000000h
+  loc_005F8920: call [004013C4h] ; __vbaCastObj
+  loc_005F8926: push eax
+  loc_005F8927: push 0073A214h
+  loc_005F892C: call [00401128h] ; __vbaObjSet
+  loc_005F8932: mov eax, Me
+  loc_005F8935: push eax
+  loc_005F8936: mov edx, [eax]
+  loc_005F8938: call [edx+00000008h]
+  loc_005F893B: mov eax, var_4
+  loc_005F893E: mov ecx, var_14
+  loc_005F8941: pop edi
+  loc_005F8942: pop esi
+  loc_005F8943: mov fs:[00000000h], ecx
+  loc_005F894A: pop ebx
+  loc_005F894B: mov esp, ebp
+  loc_005F894D: pop ebp
+  loc_005F894E: retn 0004h
+End Sub
+
+Public Sub StoryReaderStopPlayback(strCaller) '5F8960
+  loc_005F8960: push ebp
+  loc_005F8961: mov ebp, esp
+  loc_005F8963: sub esp, 0000000Ch
+  loc_005F8966: push 00412856h ; __vbaExceptHandler
+  loc_005F896B: mov eax, fs:[00000000h]
+  loc_005F8971: push eax
+  loc_005F8972: mov fs:[00000000h], esp
+  loc_005F8979: sub esp, 0000001Ch
+  loc_005F897C: push ebx
+  loc_005F897D: push esi
+  loc_005F897E: push edi
+  loc_005F897F: mov var_C, esp
+  loc_005F8982: mov var_8, 00403B90h
+  loc_005F8989: xor ebx, ebx
+  loc_005F898B: mov var_4, ebx
+  loc_005F898E: mov esi, Me
+  loc_005F8991: push esi
+  loc_005F8992: mov eax, [esi]
+  loc_005F8994: call [eax+00000004h]
+  loc_005F8997: mov edi, strCaller
+  loc_005F899A: mov var_18, ebx
+  loc_005F899D: mov var_1C, ebx
+  loc_005F89A0: mov var_20, ebx
+  loc_005F89A3: mov ecx, [edi]
+  loc_005F89A5: push ecx
+  loc_005F89A6: call [00401044h] ; __vbaLenBstr
+  loc_005F89AC: test eax, eax
+  loc_005F89AE: jz 005F89B4h
+  loc_005F89B0: mov edx, [edi]
+  loc_005F89B2: jmp 005F89B9h
+  loc_005F89B4: mov edx, 004478DCh ; "StoryReaderStopPlayback"
+  loc_005F89B9: lea ecx, var_18
+  loc_005F89BC: call [00401310h] ; __vbaStrCopy
+  loc_005F89C2: mov edx, [esi]
+  loc_005F89C4: lea eax, var_20
+  loc_005F89C7: push eax
+  loc_005F89C8: push esi
+  loc_005F89C9: call [edx+00000020h]
+  loc_005F89CC: cmp eax, ebx
+  loc_005F89CE: jge 005F89E3h
+  loc_005F89D0: mov edi, [004010CCh] ; __vbaHresultCheckObj
+  loc_005F89D6: push 00000020h
+  loc_005F89D8: push 0044777Ch
+  loc_005F89DD: push esi
+  loc_005F89DE: push eax
+  loc_005F89DF: call edi
+  loc_005F89E1: jmp 005F89E9h
+  loc_005F89E3: mov edi, [004010CCh] ; __vbaHresultCheckObj
+  loc_005F89E9: cmp var_20, bx
+  loc_005F89ED: jz 005F8B17h
+  loc_005F89F3: cmp [0073A254h], ebx
+  loc_005F89F9: jnz 005F8A0Bh
+  loc_005F89FB: push 0073A254h
+  loc_005F8A00: push 00431838h
+  loc_005F8A05: call [004012FCh] ; __vbaNew2
+  loc_005F8A0B: mov esi, [0073A254h]
+  loc_005F8A11: mov edx, 00447910h ; "Stopping Playback"
+  loc_005F8A16: lea ecx, var_1C
+  loc_005F8A19: call [00401310h] ; __vbaStrCopy
+  loc_005F8A1F: mov ecx, [esi]
+  loc_005F8A21: lea edx, var_18
+  loc_005F8A24: lea eax, var_1C
+  loc_005F8A27: push edx
+  loc_005F8A28: push eax
+  loc_005F8A29: push esi
+  loc_005F8A2A: call [ecx+00000748h]
+  loc_005F8A30: cmp eax, ebx
+  loc_005F8A32: fnclex
+  loc_005F8A34: jge 005F8A44h
+  loc_005F8A36: push 00000748h
+  loc_005F8A3B: push 004408D0h
+  loc_005F8A40: push esi
+  loc_005F8A41: push eax
+  loc_005F8A42: call edi
+  loc_005F8A44: lea ecx, var_1C
+  loc_005F8A47: call [00401430h] ; __vbaFreeStr
+  loc_005F8A4D: mov eax, [0073A214h]
+  loc_005F8A52: push eax
+  loc_005F8A53: mov ecx, [eax]
+  loc_005F8A55: call [ecx+0000002Ch]
+  loc_005F8A58: cmp eax, ebx
+  loc_005F8A5A: fnclex
+  loc_005F8A5C: jge 005F8A6Fh
+  loc_005F8A5E: mov edx, [0073A214h]
+  loc_005F8A64: push 0000002Ch
+  loc_005F8A66: push 0044777Ch
+  loc_005F8A6B: push edx
+  loc_005F8A6C: push eax
+  loc_005F8A6D: call edi
+  loc_005F8A6F: mov esi, [00401238h] ; __vbaObjIs
+  loc_005F8A75: mov ebx, [0040113Ch] ; rtcDoEvents
+  loc_005F8A7B: mov eax, [0073A214h]
+  loc_005F8A80: lea edx, var_20
+  loc_005F8A83: push edx
+  loc_005F8A84: push eax
+  loc_005F8A85: mov ecx, [eax]
+  loc_005F8A87: call [ecx+00000020h]
+  loc_005F8A8A: test eax, eax
+  loc_005F8A8C: fnclex
+  loc_005F8A8E: jge 005F8AA1h
+  loc_005F8A90: mov ecx, [0073A214h]
+  loc_005F8A96: push 00000020h
+  loc_005F8A98: push 0044777Ch
+  loc_005F8A9D: push ecx
+  loc_005F8A9E: push eax
+  loc_005F8A9F: call edi
+  loc_005F8AA1: cmp var_20, 0000h
+  loc_005F8AA6: jz 005F8ABCh
+  loc_005F8AA8: mov edx, [0073A214h]
+  loc_005F8AAE: push 00000000h
+  loc_005F8AB0: push edx
+  loc_005F8AB1: call __vbaObjIs
+  loc_005F8AB3: test ax, ax
+  loc_005F8AB6: jnz 005F8ABCh
+  loc_005F8AB8: call ebx
+  loc_005F8ABA: jmp 005F8A7Bh
+  loc_005F8ABC: mov eax, [0073A254h]
+  loc_005F8AC1: test eax, eax
+  loc_005F8AC3: jnz 005F8AD5h
+  loc_005F8AC5: push 0073A254h
+  loc_005F8ACA: push 00431838h
+  loc_005F8ACF: call [004012FCh] ; __vbaNew2
+  loc_005F8AD5: mov esi, [0073A254h]
+  loc_005F8ADB: mov edx, 00447938h ; "Stopped Playback"
+  loc_005F8AE0: lea ecx, var_1C
+  loc_005F8AE3: call [00401310h] ; __vbaStrCopy
+  loc_005F8AE9: mov eax, [esi]
+  loc_005F8AEB: lea ecx, var_18
+  loc_005F8AEE: lea edx, var_1C
+  loc_005F8AF1: push ecx
+  loc_005F8AF2: push edx
+  loc_005F8AF3: push esi
+  loc_005F8AF4: call [eax+00000748h]
+  loc_005F8AFA: test eax, eax
+  loc_005F8AFC: fnclex
+  loc_005F8AFE: jge 005F8B0Eh
+  loc_005F8B00: push 00000748h
+  loc_005F8B05: push 004408D0h
+  loc_005F8B0A: push esi
+  loc_005F8B0B: push eax
+  loc_005F8B0C: call edi
+  loc_005F8B0E: lea ecx, var_1C
+  loc_005F8B11: call [00401430h] ; __vbaFreeStr
+  loc_005F8B17: push 005F8B32h
+  loc_005F8B1C: jmp 005F8B28h
+  loc_005F8B1E: lea ecx, var_1C
+  loc_005F8B21: call [00401430h] ; __vbaFreeStr
+  loc_005F8B27: ret
+  loc_005F8B28: lea ecx, var_18
+  loc_005F8B2B: call [00401430h] ; __vbaFreeStr
+  loc_005F8B31: ret
+  loc_005F8B32: mov eax, Me
+  loc_005F8B35: push eax
+  loc_005F8B36: mov ecx, [eax]
+  loc_005F8B38: call [ecx+00000008h]
+  loc_005F8B3B: mov eax, var_4
+  loc_005F8B3E: mov ecx, var_14
+  loc_005F8B41: pop edi
+  loc_005F8B42: pop esi
+  loc_005F8B43: mov fs:[00000000h], ecx
+  loc_005F8B4A: pop ebx
+  loc_005F8B4B: mov esp, ebp
+  loc_005F8B4D: pop ebp
+  loc_005F8B4E: retn 0008h
+End Sub

Src Code/frmAddFile.frm

@@ -0,0 +1,774 @@
+VERSION 5.00
+Begin VB.Form frmAddFile
+  Caption = "Add File to Download List"
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 3 'Fixed Dialog
+  Icon = "frmAddFile.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  ClientLeft = 2760
+  ClientTop = 3750
+  ClientWidth = 6030
+  ClientHeight = 3195
+  LockControls = -1  'True
+  ShowInTaskbar = 0   'False
+  StartUpPosition = 2 'CenterScreen
+  Begin VB.Frame fraAddFile
+    Caption = "File Information"
+    Left = 240
+    Top = 1050
+    Width = 5565
+    Height = 1935
+    TabIndex = 4
+    Begin VB.TextBox txtURL
+      Left = 300
+      Top = 600
+      Width = 4995
+      Height = 315
+      TabIndex = 0
+    End
+    Begin VB.TextBox txtDescription
+      Left = 300
+      Top = 1380
+      Width = 4995
+      Height = 315
+      TabIndex = 1
+    End
+    Begin VB.Label lblURL
+      Caption = "File URL (Internet Address)"
+      Left = 300
+      Top = 360
+      Width = 1905
+      Height = 195
+      TabIndex = 6
+      AutoSize = -1  'True
+    End
+    Begin VB.Label lblDescription
+      Caption = "File Description"
+      Left = 300
+      Top = 1140
+      Width = 1080
+      Height = 195
+      TabIndex = 5
+      AutoSize = -1  'True
+    End
+  End
+  Begin VB.CommandButton CancelButton
+    Caption = "Cancel"
+    Left = 4680
+    Top = 570
+    Width = 1215
+    Height = 375
+    TabIndex = 3
+    Cancel = -1  'True
+  End
+  Begin VB.CommandButton OKButton
+    Caption = "OK"
+    Left = 4680
+    Top = 120
+    Width = 1215
+    Height = 375
+    TabIndex = 2
+    Default = -1  'True
+  End
+  Begin VB.Image imgInstruction
+    Picture = "frmAddFile.frx":0442
+    Left = 300
+    Top = 210
+    Width = 480
+    Height = 480
+  End
+  Begin VB.Label lblInstruction
+    Caption = "Enter or change the location (URL) of the file to add to the download list.  You can also enter a description for the file."
+    Left = 1020
+    Top = 180
+    Width = 3495
+    Height = 645
+    TabIndex = 7
+  End
+End
+
+Attribute VB_Name = "frmAddFile"
+
+
+Private Sub OKButton_Click() '5C1170
+  loc_005C1170: push ebp
+  loc_005C1171: mov ebp, esp
+  loc_005C1173: sub esp, 00000014h
+  loc_005C1176: push 00412856h ; __vbaExceptHandler
+  loc_005C117B: mov eax, fs:[00000000h]
+  loc_005C1181: push eax
+  loc_005C1182: mov fs:[00000000h], esp
+  loc_005C1189: sub esp, 000000C8h
+  loc_005C118F: push ebx
+  loc_005C1190: push esi
+  loc_005C1191: push edi
+  loc_005C1192: mov var_14, esp
+  loc_005C1195: mov var_10, 00401708h
+  loc_005C119C: mov esi, Me
+  loc_005C119F: mov eax, esi
+  loc_005C11A1: and eax, 00000001h
+  loc_005C11A4: mov var_C, eax
+  loc_005C11A7: and esi, FFFFFFFEh
+  loc_005C11AA: mov Me, esi
+  loc_005C11AD: xor ebx, ebx
+  loc_005C11AF: mov var_8, ebx
+  loc_005C11B2: mov ecx, [esi]
+  loc_005C11B4: push esi
+  loc_005C11B5: call [ecx+00000004h]
+  loc_005C11B8: mov ecx, 00000008h
+  loc_005C11BD: xor eax, eax
+  loc_005C11BF: lea edi, var_3C
+  loc_005C11C2: repz stosd
+  loc_005C11C4: mov var_40, ebx
+  loc_005C11C7: mov var_44, ebx
+  loc_005C11CA: mov var_54, ebx
+  loc_005C11CD: mov var_64, ebx
+  loc_005C11D0: mov var_74, ebx
+  loc_005C11D3: mov var_84, ebx
+  loc_005C11D9: mov var_94, ebx
+  loc_005C11DF: mov var_C8, ebx
+  loc_005C11E5: mov var_CC, ebx
+  loc_005C11EB: push 00000001h
+  loc_005C11ED: call [00401124h] ; __vbaOnError
+  loc_005C11F3: mov edx, [esi]
+  loc_005C11F5: push esi
+  loc_005C11F6: call [edx+00000300h]
+  loc_005C11FC: mov var_4C, eax
+  loc_005C11FF: mov var_54, 00000009h
+  loc_005C1206: lea eax, var_54
+  loc_005C1209: push eax
+  loc_005C120A: lea ecx, var_64
+  loc_005C120D: push ecx
+  loc_005C120E: mov ebx, [00401154h] ; rtcTrimVar
+  loc_005C1214: call ebx
+  loc_005C1216: mov var_8C, 0043C9F4h
+  loc_005C1220: mov var_94, 00008008h
+  loc_005C122A: lea edx, var_64
+  loc_005C122D: push edx
+  loc_005C122E: lea eax, var_94
+  loc_005C1234: push eax
+  loc_005C1235: call [00401348h] ; __vbaVarTstNe
+  loc_005C123B: mov var_D0, ax
+  loc_005C1242: lea ecx, var_64
+  loc_005C1245: push ecx
+  loc_005C1246: lea edx, var_54
+  loc_005C1249: push edx
+  loc_005C124A: push 00000002h
+  loc_005C124C: mov edi, [00401050h] ; __vbaFreeVarList
+  loc_005C1252: call edi
+  loc_005C1254: add esp, 0000000Ch
+  loc_005C1257: cmp var_D0, 0000h
+  loc_005C125F: jz 005C1596h
+  loc_005C1265: mov eax, [esi]
+  loc_005C1267: lea ecx, var_C8
+  loc_005C126D: push ecx
+  loc_005C126E: push esi
+  loc_005C126F: call [eax+000006F8h]
+  loc_005C1275: fnclex
+  loc_005C1277: test eax, eax
+  loc_005C1279: jge 005C128Dh
+  loc_005C127B: push 000006F8h
+  loc_005C1280: push 004425BCh ; "ç‘ýÿ‚m·M’³È˜á­×htxtDescription"
+  loc_005C1285: push esi
+  loc_005C1286: push eax
+  loc_005C1287: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005C128D: cmp var_C8, 0000h
+  loc_005C1295: mov edx, [esi]
+  loc_005C1297: push esi
+  loc_005C1298: jnz 005C13FCh
+  loc_005C129E: call [edx+00000300h]
+  loc_005C12A4: mov var_4C, eax
+  loc_005C12A7: mov var_54, 00000009h
+  loc_005C12AE: lea eax, var_54
+  loc_005C12B1: push eax
+  loc_005C12B2: lea ecx, var_64
+  loc_005C12B5: push ecx
+  loc_005C12B6: call ebx
+  loc_005C12B8: lea edx, var_64
+  loc_005C12BB: push edx
+  loc_005C12BC: call [00401040h] ; __vbaStrVarMove
+  loc_005C12C2: mov edx, eax
+  loc_005C12C4: lea ecx, var_40
+  loc_005C12C7: call [004013C0h] ; __vbaStrMove
+  loc_005C12CD: mov edx, eax
+  loc_005C12CF: lea ecx, var_38
+  loc_005C12D2: call [00401310h] ; __vbaStrCopy
+  loc_005C12D8: lea ecx, var_40
+  loc_005C12DB: call [00401430h] ; __vbaFreeStr
+  loc_005C12E1: lea eax, var_64
+  loc_005C12E4: push eax
+  loc_005C12E5: lea ecx, var_54
+  loc_005C12E8: push ecx
+  loc_005C12E9: push 00000002h
+  loc_005C12EB: call edi
+  loc_005C12ED: add esp, 0000000Ch
+  loc_005C12F0: mov edx, [esi]
+  loc_005C12F2: push esi
+  loc_005C12F3: call [edx+00000304h]
+  loc_005C12F9: mov var_4C, eax
+  loc_005C12FC: mov var_54, 00000009h
+  loc_005C1303: lea eax, var_54
+  loc_005C1306: push eax
+  loc_005C1307: lea ecx, var_64
+  loc_005C130A: push ecx
+  loc_005C130B: call ebx
+  loc_005C130D: lea edx, var_64
+  loc_005C1310: push edx
+  loc_005C1311: call [00401040h] ; __vbaStrVarMove
+  loc_005C1317: mov edx, eax
+  loc_005C1319: lea ecx, var_40
+  loc_005C131C: call [004013C0h] ; __vbaStrMove
+  loc_005C1322: mov edx, eax
+  loc_005C1324: lea ecx, var_3C
+  loc_005C1327: call [00401310h] ; __vbaStrCopy
+  loc_005C132D: lea ecx, var_40
+  loc_005C1330: call [00401430h] ; __vbaFreeStr
+  loc_005C1336: lea eax, var_64
+  loc_005C1339: push eax
+  loc_005C133A: lea ecx, var_54
+  loc_005C133D: push ecx
+  loc_005C133E: push 00000002h
+  loc_005C1340: call edi
+  loc_005C1342: add esp, 0000000Ch
+  loc_005C1345: mov eax, [0073A2D4h]
+  loc_005C134A: test eax, eax
+  loc_005C134C: jnz 005C1362h
+  loc_005C134E: push 0073A2D4h
+  loc_005C1353: push 00420A7Ch
+  loc_005C1358: mov edi, [004012FCh] ; __vbaNew2
+  loc_005C135E: call edi
+  loc_005C1360: jmp 005C1368h
+  loc_005C1362: mov edi, [004012FCh] ; __vbaNew2
+  loc_005C1368: lea edx, var_C8
+  loc_005C136E: push edx
+  loc_005C136F: lea eax, var_3C
+  loc_005C1372: push eax
+  loc_005C1373: mov ecx, [0073A2D4h]
+  loc_005C1379: push ecx
+  loc_005C137A: call 005C3670h
+  loc_005C137F: mov eax, [0073A2D4h]
+  loc_005C1384: test eax, eax
+  loc_005C1386: jnz 005C1394h
+  loc_005C1388: push 0073A2D4h
+  loc_005C138D: push 00420A7Ch
+  loc_005C1392: call edi
+  loc_005C1394: mov edx, [0073A2D4h]
+  loc_005C139A: push edx
+  loc_005C139B: call 005C55E0h
+  loc_005C13A0: mov eax, [0073A2D4h]
+  loc_005C13A5: test eax, eax
+  loc_005C13A7: jnz 005C13B5h
+  loc_005C13A9: push 0073A2D4h
+  loc_005C13AE: push 00420A7Ch
+  loc_005C13B3: call edi
+  loc_005C13B5: mov eax, [0073A2D4h]
+  loc_005C13BA: push eax
+  loc_005C13BB: call 005C80F0h
+  loc_005C13C0: mov eax, [0073C818h]
+  loc_005C13C5: test eax, eax
+  loc_005C13C7: jnz 005C13D5h
+  loc_005C13C9: push 0073C818h
+  loc_005C13CE: push 00441F00h
+  loc_005C13D3: call edi
+  loc_005C13D5: mov edi, [0073C818h]
+  loc_005C13DB: mov ebx, [edi]
+  loc_005C13DD: push esi
+  loc_005C13DE: lea ecx, var_44
+  loc_005C13E1: push ecx
+  loc_005C13E2: call [00401130h] ; __vbaObjSetAddref
+  loc_005C13E8: push eax
+  loc_005C13E9: push edi
+  loc_005C13EA: call [ebx+00000010h]
+  loc_005C13ED: fnclex
+  loc_005C13EF: test eax, eax
+  loc_005C13F1: jge 005C1588h
+  loc_005C13F7: jmp 005C1579h
+  loc_005C13FC: call [edx+00000300h]
+  loc_005C1402: mov var_4C, eax
+  loc_005C1405: mov var_54, 00000009h
+  loc_005C140C: lea eax, var_54
+  loc_005C140F: push eax
+  loc_005C1410: lea ecx, var_64
+  loc_005C1413: push ecx
+  loc_005C1414: call ebx
+  loc_005C1416: lea edx, var_64
+  loc_005C1419: push edx
+  loc_005C141A: call [00401040h] ; __vbaStrVarMove
+  loc_005C1420: mov edx, eax
+  loc_005C1422: lea ecx, var_40
+  loc_005C1425: call [004013C0h] ; __vbaStrMove
+  loc_005C142B: mov edx, eax
+  loc_005C142D: lea ecx, var_38
+  loc_005C1430: call [00401310h] ; __vbaStrCopy
+  loc_005C1436: lea ecx, var_40
+  loc_005C1439: call [00401430h] ; __vbaFreeStr
+  loc_005C143F: lea eax, var_64
+  loc_005C1442: push eax
+  loc_005C1443: lea ecx, var_54
+  loc_005C1446: push ecx
+  loc_005C1447: push 00000002h
+  loc_005C1449: call edi
+  loc_005C144B: add esp, 0000000Ch
+  loc_005C144E: mov edx, [esi]
+  loc_005C1450: push esi
+  loc_005C1451: call [edx+00000304h]
+  loc_005C1457: mov var_4C, eax
+  loc_005C145A: mov var_54, 00000009h
+  loc_005C1461: lea eax, var_54
+  loc_005C1464: push eax
+  loc_005C1465: lea ecx, var_64
+  loc_005C1468: push ecx
+  loc_005C1469: call ebx
+  loc_005C146B: lea edx, var_64
+  loc_005C146E: push edx
+  loc_005C146F: call [00401040h] ; __vbaStrVarMove
+  loc_005C1475: mov edx, eax
+  loc_005C1477: lea ecx, var_40
+  loc_005C147A: call [004013C0h] ; __vbaStrMove
+  loc_005C1480: mov edx, eax
+  loc_005C1482: lea ecx, var_3C
+  loc_005C1485: call [00401310h] ; __vbaStrCopy
+  loc_005C148B: lea ecx, var_40
+  loc_005C148E: call [00401430h] ; __vbaFreeStr
+  loc_005C1494: lea eax, var_64
+  loc_005C1497: push eax
+  loc_005C1498: lea ecx, var_54
+  loc_005C149B: push ecx
+  loc_005C149C: push 00000002h
+  loc_005C149E: call edi
+  loc_005C14A0: add esp, 0000000Ch
+  loc_005C14A3: mov edx, [esi]
+  loc_005C14A5: lea eax, var_CC
+  loc_005C14AB: push eax
+  loc_005C14AC: push esi
+  loc_005C14AD: call [edx+00000700h]
+  loc_005C14B3: fnclex
+  loc_005C14B5: test eax, eax
+  loc_005C14B7: jge 005C14CBh
+  loc_005C14B9: push 00000700h
+  loc_005C14BE: push 004425BCh ; "ç‘ýÿ‚m·M’³È˜á­×htxtDescription"
+  loc_005C14C3: push esi
+  loc_005C14C4: push eax
+  loc_005C14C5: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005C14CB: mov eax, [0073A2D4h]
+  loc_005C14D0: test eax, eax
+  loc_005C14D2: jnz 005C14E8h
+  loc_005C14D4: push 0073A2D4h
+  loc_005C14D9: push 00420A7Ch
+  loc_005C14DE: mov edi, [004012FCh] ; __vbaNew2
+  loc_005C14E4: call edi
+  loc_005C14E6: jmp 005C14EEh
+  loc_005C14E8: mov edi, [004012FCh] ; __vbaNew2
+  loc_005C14EE: mov ecx, var_CC
+  loc_005C14F4: push ecx
+  loc_005C14F5: lea edx, var_3C
+  loc_005C14F8: push edx
+  loc_005C14F9: mov eax, [0073A2D4h]
+  loc_005C14FE: push eax
+  loc_005C14FF: call 005C3470h
+  loc_005C1504: mov eax, [0073A2D4h]
+  loc_005C1509: test eax, eax
+  loc_005C150B: jnz 005C1519h
+  loc_005C150D: push 0073A2D4h
+  loc_005C1512: push 00420A7Ch
+  loc_005C1517: call edi
+  loc_005C1519: mov ecx, [0073A2D4h]
+  loc_005C151F: push ecx
+  loc_005C1520: call 005C55E0h
+  loc_005C1525: mov eax, [0073A2D4h]
+  loc_005C152A: test eax, eax
+  loc_005C152C: jnz 005C153Ah
+  loc_005C152E: push 0073A2D4h
+  loc_005C1533: push 00420A7Ch
+  loc_005C1538: call edi
+  loc_005C153A: mov edx, [0073A2D4h]
+  loc_005C1540: push edx
+  loc_005C1541: call 005C80F0h
+  loc_005C1546: mov eax, [0073C818h]
+  loc_005C154B: test eax, eax
+  loc_005C154D: jnz 005C155Bh
+  loc_005C154F: push 0073C818h
+  loc_005C1554: push 00441F00h
+  loc_005C1559: call edi
+  loc_005C155B: mov edi, [0073C818h]
+  loc_005C1561: mov ebx, [edi]
+  loc_005C1563: push esi
+  loc_005C1564: lea eax, var_44
+  loc_005C1567: push eax
+  loc_005C1568: call [00401130h] ; __vbaObjSetAddref
+  loc_005C156E: push eax
+  loc_005C156F: push edi
+  loc_005C1570: call [ebx+00000010h]
+  loc_005C1573: fnclex
+  loc_005C1575: test eax, eax
+  loc_005C1577: jge 005C1588h
+  loc_005C1579: push 00000010h
+  loc_005C157B: push 00441EF0h
+  loc_005C1580: push edi
+  loc_005C1581: push eax
+  loc_005C1582: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005C1588: lea ecx, var_44
+  loc_005C158B: call [0040142Ch] ; __vbaFreeObj
+  loc_005C1591: jmp 005C16C4h
+  loc_005C1596: mov ecx, 80020004h
+  loc_005C159B: mov var_7C, ecx
+  loc_005C159E: mov eax, 0000000Ah
+  loc_005C15A3: mov var_84, eax
+  loc_005C15A9: mov var_6C, ecx
+  loc_005C15AC: mov var_74, eax
+  loc_005C15AF: mov var_5C, ecx
+  loc_005C15B2: mov var_64, eax
+  loc_005C15B5: mov var_8C, 00443450h ; "You must enter a URL for the file before it can be added to the download list."
+  loc_005C15BF: mov var_94, 00000008h
+  loc_005C15C9: lea edx, var_94
+  loc_005C15CF: lea ecx, var_54
+  loc_005C15D2: call [00401374h] ; __vbaVarDup
+  loc_005C15D8: lea ecx, var_84
+  loc_005C15DE: push ecx
+  loc_005C15DF: lea edx, var_74
+  loc_005C15E2: push edx
+  loc_005C15E3: lea eax, var_64
+  loc_005C15E6: push eax
+  loc_005C15E7: push 00000030h
+  loc_005C15E9: lea ecx, var_54
+  loc_005C15EC: push ecx
+  loc_005C15ED: call [00401120h] ; rtcMsgBox
+  loc_005C15F3: lea edx, var_84
+  loc_005C15F9: push edx
+  loc_005C15FA: lea eax, var_74
+  loc_005C15FD: push eax
+  loc_005C15FE: lea ecx, var_64
+  loc_005C1601: push ecx
+  loc_005C1602: lea edx, var_54
+  loc_005C1605: push edx
+  loc_005C1606: push 00000004h
+  loc_005C1608: call edi
+  loc_005C160A: jmp 005C16C1h
+  loc_005C160F: call [00401340h] ; rtcErrObj
+  loc_005C1615: push eax
+  loc_005C1616: lea eax, var_44
+  loc_005C1619: push eax
+  loc_005C161A: call [00401128h] ; __vbaObjSet
+  loc_005C1620: mov esi, eax
+  loc_005C1622: mov ecx, [esi]
+  loc_005C1624: lea edx, var_40
+  loc_005C1627: push edx
+  loc_005C1628: push esi
+  loc_005C1629: call [ecx+0000002Ch]
+  loc_005C162C: fnclex
+  loc_005C162E: test eax, eax
+  loc_005C1630: jge 005C1641h
+  loc_005C1632: push 0000002Ch
+  loc_005C1634: push 00443540h
+  loc_005C1639: push esi
+  loc_005C163A: push eax
+  loc_005C163B: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005C1641: mov ecx, 80020004h
+  loc_005C1646: mov var_7C, ecx
+  loc_005C1649: mov eax, 0000000Ah
+  loc_005C164E: mov var_84, eax
+  loc_005C1654: mov var_6C, ecx
+  loc_005C1657: mov var_74, eax
+  loc_005C165A: mov var_5C, ecx
+  loc_005C165D: mov var_64, eax
+  loc_005C1660: push 004434F4h ; "Error adding file to download list: "
+  loc_005C1665: mov eax, var_40
+  loc_005C1668: push eax
+  loc_005C1669: call [00401098h] ; __vbaStrCat
+  loc_005C166F: mov var_4C, eax
+  loc_005C1672: mov var_54, 00000008h
+  loc_005C1679: lea ecx, var_84
+  loc_005C167F: push ecx
+  loc_005C1680: lea edx, var_74
+  loc_005C1683: push edx
+  loc_005C1684: lea eax, var_64
+  loc_005C1687: push eax
+  loc_005C1688: push 00000010h
+  loc_005C168A: lea ecx, var_54
+  loc_005C168D: push ecx
+  loc_005C168E: call [00401120h] ; rtcMsgBox
+  loc_005C1694: lea ecx, var_40
+  loc_005C1697: call [00401430h] ; __vbaFreeStr
+  loc_005C169D: lea ecx, var_44
+  loc_005C16A0: call [0040142Ch] ; __vbaFreeObj
+  loc_005C16A6: lea edx, var_84
+  loc_005C16AC: push edx
+  loc_005C16AD: lea eax, var_74
+  loc_005C16B0: push eax
+  loc_005C16B1: lea ecx, var_64
+  loc_005C16B4: push ecx
+  loc_005C16B5: lea edx, var_54
+  loc_005C16B8: push edx
+  loc_005C16B9: push 00000004h
+  loc_005C16BB: call [00401050h] ; __vbaFreeVarList
+  loc_005C16C1: add esp, 00000014h
+  loc_005C16C4: call [00401114h] ; __vbaExitProc
+  loc_005C16CA: push 005C1712h
+  loc_005C16CF: jmp 005C1702h
+  loc_005C16D1: lea ecx, var_40
+  loc_005C16D4: call [00401430h] ; __vbaFreeStr
+  loc_005C16DA: lea ecx, var_44
+  loc_005C16DD: call [0040142Ch] ; __vbaFreeObj
+  loc_005C16E3: lea eax, var_84
+  loc_005C16E9: push eax
+  loc_005C16EA: lea ecx, var_74
+  loc_005C16ED: push ecx
+  loc_005C16EE: lea edx, var_64
+  loc_005C16F1: push edx
+  loc_005C16F2: lea eax, var_54
+  loc_005C16F5: push eax
+  loc_005C16F6: push 00000004h
+  loc_005C16F8: call [00401050h] ; __vbaFreeVarList
+  loc_005C16FE: add esp, 00000014h
+  loc_005C1701: ret
+  loc_005C1702: lea ecx, var_3C
+  loc_005C1705: push ecx
+  loc_005C1706: push 0043E41Ch ; ", "
+  loc_005C170B: call [004010C0h] ; __vbaRecDestruct
+  loc_005C1711: ret
+  loc_005C1712: mov eax, Me
+  loc_005C1715: mov edx, [eax]
+  loc_005C1717: push eax
+  loc_005C1718: call [edx+00000008h]
+  loc_005C171B: mov eax, var_C
+  loc_005C171E: mov ecx, var_1C
+  loc_005C1721: mov fs:[00000000h], ecx
+  loc_005C1728: pop edi
+  loc_005C1729: pop esi
+  loc_005C172A: pop ebx
+  loc_005C172B: mov esp, ebp
+  loc_005C172D: pop ebp
+  loc_005C172E: retn 0004h
+End Sub
+
+Private Sub CancelButton_Click() '5C10A0
+  loc_005C10A0: push ebp
+  loc_005C10A1: mov ebp, esp
+  loc_005C10A3: sub esp, 0000000Ch
+  loc_005C10A6: push 00412856h ; __vbaExceptHandler
+  loc_005C10AB: mov eax, fs:[00000000h]
+  loc_005C10B1: push eax
+  loc_005C10B2: mov fs:[00000000h], esp
+  loc_005C10B9: sub esp, 00000018h
+  loc_005C10BC: push ebx
+  loc_005C10BD: push esi
+  loc_005C10BE: push edi
+  loc_005C10BF: mov var_C, esp
+  loc_005C10C2: mov var_8, 004016F8h
+  loc_005C10C9: mov edi, Me
+  loc_005C10CC: mov eax, edi
+  loc_005C10CE: and eax, 00000001h
+  loc_005C10D1: mov var_4, eax
+  loc_005C10D4: and edi, FFFFFFFEh
+  loc_005C10D7: push edi
+  loc_005C10D8: mov Me, edi
+  loc_005C10DB: mov ecx, [edi]
+  loc_005C10DD: call [ecx+00000004h]
+  loc_005C10E0: mov eax, [0073C818h]
+  loc_005C10E5: xor ebx, ebx
+  loc_005C10E7: cmp eax, ebx
+  loc_005C10E9: mov var_18, ebx
+  loc_005C10EC: jnz 005C10FEh
+  loc_005C10EE: push 0073C818h
+  loc_005C10F3: push 00441F00h
+  loc_005C10F8: call [004012FCh] ; __vbaNew2
+  loc_005C10FE: mov esi, [0073C818h]
+  loc_005C1104: lea eax, var_18
+  loc_005C1107: push edi
+  loc_005C1108: push eax
+  loc_005C1109: mov edx, [esi]
+  loc_005C110B: mov var_2C, edx
+  loc_005C110E: call [00401130h] ; __vbaObjSetAddref
+  loc_005C1114: mov ecx, var_2C
+  loc_005C1117: push eax
+  loc_005C1118: push esi
+  loc_005C1119: call [ecx+00000010h]
+  loc_005C111C: cmp eax, ebx
+  loc_005C111E: fnclex
+  loc_005C1120: jge 005C1131h
+  loc_005C1122: push 00000010h
+  loc_005C1124: push 00441EF0h
+  loc_005C1129: push esi
+  loc_005C112A: push eax
+  loc_005C112B: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005C1131: lea ecx, var_18
+  loc_005C1134: call [0040142Ch] ; __vbaFreeObj
+  loc_005C113A: mov var_4, ebx
+  loc_005C113D: push 005C114Fh
+  loc_005C1142: jmp 005C114Eh
+  loc_005C1144: lea ecx, var_18
+  loc_005C1147: call [0040142Ch] ; __vbaFreeObj
+  loc_005C114D: ret
+  loc_005C114E: ret
+  loc_005C114F: mov eax, Me
+  loc_005C1152: push eax
+  loc_005C1153: mov edx, [eax]
+  loc_005C1155: call [edx+00000008h]
+  loc_005C1158: mov eax, var_4
+  loc_005C115B: mov ecx, var_14
+  loc_005C115E: pop edi
+  loc_005C115F: pop esi
+  loc_005C1160: mov fs:[00000000h], ecx
+  loc_005C1167: pop ebx
+  loc_005C1168: mov esp, ebp
+  loc_005C116A: pop ebp
+  loc_005C116B: retn 0004h
+End Sub
+
+Public Property Get Editing(Index As Integer) '5C1740
+  loc_005C1740: push ebp
+  loc_005C1741: mov ebp, esp
+  loc_005C1743: sub esp, 0000000Ch
+  loc_005C1746: push 00412856h ; __vbaExceptHandler
+  loc_005C174B: mov eax, fs:[00000000h]
+  loc_005C1751: push eax
+  loc_005C1752: mov fs:[00000000h], esp
+  loc_005C1759: sub esp, 0000000Ch
+  loc_005C175C: push ebx
+  loc_005C175D: push esi
+  loc_005C175E: push edi
+  loc_005C175F: mov var_C, esp
+  loc_005C1762: mov var_8, 00401730h
+  loc_005C1769: xor edi, edi
+  loc_005C176B: mov var_4, edi
+  loc_005C176E: mov esi, Me
+  loc_005C1771: push esi
+  loc_005C1772: mov eax, [esi]
+  loc_005C1774: call [eax+00000004h]
+  loc_005C1777: mov cx, [esi+00000034h]
+  loc_005C177B: mov var_18, edi
+  loc_005C177E: mov var_18, ecx
+  loc_005C1781: mov eax, Me
+  loc_005C1784: push eax
+  loc_005C1785: mov edx, [eax]
+  loc_005C1787: call [edx+00000008h]
+  loc_005C178A: mov eax, Index
+  loc_005C178D: mov cx, var_18
+  loc_005C1791: mov [eax], cx
+  loc_005C1794: mov eax, var_4
+  loc_005C1797: mov ecx, var_14
+  loc_005C179A: pop edi
+  loc_005C179B: pop esi
+  loc_005C179C: mov fs:[00000000h], ecx
+  loc_005C17A3: pop ebx
+  loc_005C17A4: mov esp, ebp
+  loc_005C17A6: pop ebp
+  loc_005C17A7: retn 0008h
+End Sub
+
+Public Property Let Editing(blnNewValue) '5C17B0
+  loc_005C17B0: push ebp
+  loc_005C17B1: mov ebp, esp
+  loc_005C17B3: sub esp, 0000000Ch
+  loc_005C17B6: push 00412856h ; __vbaExceptHandler
+  loc_005C17BB: mov eax, fs:[00000000h]
+  loc_005C17C1: push eax
+  loc_005C17C2: mov fs:[00000000h], esp
+  loc_005C17C9: sub esp, 00000008h
+  loc_005C17CC: push ebx
+  loc_005C17CD: push esi
+  loc_005C17CE: push edi
+  loc_005C17CF: mov var_C, esp
+  loc_005C17D2: mov var_8, 00401738h
+  loc_005C17D9: mov var_4, 00000000h
+  loc_005C17E0: mov esi, Me
+  loc_005C17E3: push esi
+  loc_005C17E4: mov eax, [esi]
+  loc_005C17E6: call [eax+00000004h]
+  loc_005C17E9: mov cx, blnNewValue
+  loc_005C17ED: mov [esi+00000034h], cx
+  loc_005C17F1: mov eax, Me
+  loc_005C17F4: push eax
+  loc_005C17F5: mov edx, [eax]
+  loc_005C17F7: call [edx+00000008h]
+  loc_005C17FA: mov eax, var_4
+  loc_005C17FD: mov ecx, var_14
+  loc_005C1800: pop edi
+  loc_005C1801: pop esi
+  loc_005C1802: mov fs:[00000000h], ecx
+  loc_005C1809: pop ebx
+  loc_005C180A: mov esp, ebp
+  loc_005C180C: pop ebp
+  loc_005C180D: retn 0008h
+End Sub
+
+Public Property Get EditingIndex(arg_C) '5C1810
+  loc_005C1810: push ebp
+  loc_005C1811: mov ebp, esp
+  loc_005C1813: sub esp, 0000000Ch
+  loc_005C1816: push 00412856h ; __vbaExceptHandler
+  loc_005C181B: mov eax, fs:[00000000h]
+  loc_005C1821: push eax
+  loc_005C1822: mov fs:[00000000h], esp
+  loc_005C1829: sub esp, 0000000Ch
+  loc_005C182C: push ebx
+  loc_005C182D: push esi
+  loc_005C182E: push edi
+  loc_005C182F: mov var_C, esp
+  loc_005C1832: mov var_8, 00401740h
+  loc_005C1839: xor edi, edi
+  loc_005C183B: mov var_4, edi
+  loc_005C183E: mov esi, Me
+  loc_005C1841: push esi
+  loc_005C1842: mov eax, [esi]
+  loc_005C1844: call [eax+00000004h]
+  loc_005C1847: mov ecx, [esi+00000038h]
+  loc_005C184A: mov var_18, edi
+  loc_005C184D: mov var_18, ecx
+  loc_005C1850: mov eax, Me
+  loc_005C1853: push eax
+  loc_005C1854: mov edx, [eax]
+  loc_005C1856: call [edx+00000008h]
+  loc_005C1859: mov eax, arg_C
+  loc_005C185C: mov ecx, var_18
+  loc_005C185F: mov [eax], ecx
+  loc_005C1861: mov eax, var_4
+  loc_005C1864: mov ecx, var_14
+  loc_005C1867: pop edi
+  loc_005C1868: pop esi
+  loc_005C1869: mov fs:[00000000h], ecx
+  loc_005C1870: pop ebx
+  loc_005C1871: mov esp, ebp
+  loc_005C1873: pop ebp
+  loc_005C1874: retn 0008h
+End Sub
+
+Public Property Let EditingIndex(lngNewValue) '5C1880
+  loc_005C1880: push ebp
+  loc_005C1881: mov ebp, esp
+  loc_005C1883: sub esp, 0000000Ch
+  loc_005C1886: push 00412856h ; __vbaExceptHandler
+  loc_005C188B: mov eax, fs:[00000000h]
+  loc_005C1891: push eax
+  loc_005C1892: mov fs:[00000000h], esp
+  loc_005C1899: sub esp, 00000008h
+  loc_005C189C: push ebx
+  loc_005C189D: push esi
+  loc_005C189E: push edi
+  loc_005C189F: mov var_C, esp
+  loc_005C18A2: mov var_8, 00401748h
+  loc_005C18A9: mov var_4, 00000000h
+  loc_005C18B0: mov esi, Me
+  loc_005C18B3: push esi
+  loc_005C18B4: mov eax, [esi]
+  loc_005C18B6: call [eax+00000004h]
+  loc_005C18B9: mov ecx, lngNewValue
+  loc_005C18BC: mov [esi+00000038h], ecx
+  loc_005C18BF: mov eax, Me
+  loc_005C18C2: push eax
+  loc_005C18C3: mov edx, [eax]
+  loc_005C18C5: call [edx+00000008h]
+  loc_005C18C8: mov eax, var_4
+  loc_005C18CB: mov ecx, var_14
+  loc_005C18CE: pop edi
+  loc_005C18CF: pop esi
+  loc_005C18D0: mov fs:[00000000h], ecx
+  loc_005C18D7: pop ebx
+  loc_005C18D8: mov esp, ebp
+  loc_005C18DA: pop ebp
+  loc_005C18DB: retn 0008h
+End Sub

Src Code/frmAddressProperties.frm

@@ -0,0 +1,929 @@
+VERSION 5.00
+Begin VB.Form frmAddressProperties
+  Caption = "Address Book Entry"
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 1 'Fixed Single
+  'Icon = n/a
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  ControlBox = 0   'False
+  ClientLeft = 45
+  ClientTop = 330
+  ClientWidth = 5040
+  ClientHeight = 1350
+  LockControls = -1  'True
+  StartUpPosition = 1 'CenterOwner
+  Begin VB.CommandButton cmdOK
+    Caption = "&OK"
+    Left = 2820
+    Top = 900
+    Width = 975
+    Height = 375
+    TabIndex = 5
+    Default = -1  'True
+  End
+  Begin VB.CommandButton cmdCancel
+    Caption = "&Cancel"
+    Left = 3930
+    Top = 900
+    Width = 975
+    Height = 375
+    TabIndex = 4
+    Cancel = -1  'True
+  End
+  Begin VB.TextBox txtAddress
+    Left = 1290
+    Top = 510
+    Width = 3615
+    Height = 285
+    TabIndex = 3
+  End
+  Begin VB.TextBox txtName
+    Left = 1290
+    Top = 90
+    Width = 3615
+    Height = 285
+    TabIndex = 0
+  End
+  Begin VB.Label Label2
+    Caption = "E-Mail Address:"
+    Left = 120
+    Top = 540
+    Width = 1095
+    Height = 195
+    TabIndex = 2
+    AutoSize = -1  'True
+  End
+  Begin VB.Label Label1
+    Caption = "Name:"
+    Left = 750
+    Top = 120
+    Width = 465
+    Height = 195
+    TabIndex = 1
+    AutoSize = -1  'True
+  End
+End
+
+Attribute VB_Name = "frmAddressProperties"
+
+
+Private Sub cmdCancel_Click() '601BD0
+  loc_00601BD0: push ebp
+  loc_00601BD1: mov ebp, esp
+  loc_00601BD3: sub esp, 0000000Ch
+  loc_00601BD6: push 00412856h ; __vbaExceptHandler
+  loc_00601BDB: mov eax, fs:[00000000h]
+  loc_00601BE1: push eax
+  loc_00601BE2: mov fs:[00000000h], esp
+  loc_00601BE9: sub esp, 0000000Ch
+  loc_00601BEC: push ebx
+  loc_00601BED: push esi
+  loc_00601BEE: push edi
+  loc_00601BEF: mov var_C, esp
+  loc_00601BF2: mov var_8, 00404148h
+  loc_00601BF9: mov esi, Me
+  loc_00601BFC: mov eax, esi
+  loc_00601BFE: and eax, 00000001h
+  loc_00601C01: mov var_4, eax
+  loc_00601C04: and esi, FFFFFFFEh
+  loc_00601C07: push esi
+  loc_00601C08: mov Me, esi
+  loc_00601C0B: mov ecx, [esi]
+  loc_00601C0D: call [ecx+00000004h]
+  loc_00601C10: mov edx, [esi]
+  loc_00601C12: push esi
+  loc_00601C13: mov [esi+0000003Ch], FFFFFFh
+  loc_00601C19: call [edx+000002B4h]
+  loc_00601C1F: test eax, eax
+  loc_00601C21: fnclex
+  loc_00601C23: jge 00601C37h
+  loc_00601C25: push 000002B4h
+  loc_00601C2A: push 00448044h
+  loc_00601C2F: push esi
+  loc_00601C30: push eax
+  loc_00601C31: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00601C37: mov var_4, 00000000h
+  loc_00601C3E: mov eax, Me
+  loc_00601C41: push eax
+  loc_00601C42: mov ecx, [eax]
+  loc_00601C44: call [ecx+00000008h]
+  loc_00601C47: mov eax, var_4
+  loc_00601C4A: mov ecx, var_14
+  loc_00601C4D: pop edi
+  loc_00601C4E: pop esi
+  loc_00601C4F: mov fs:[00000000h], ecx
+  loc_00601C56: pop ebx
+  loc_00601C57: mov esp, ebp
+  loc_00601C59: pop ebp
+  loc_00601C5A: retn 0004h
+End Sub
+
+Private Sub cmdOK_Click() '601C60
+  loc_00601C60: push ebp
+  loc_00601C61: mov ebp, esp
+  loc_00601C63: sub esp, 0000000Ch
+  loc_00601C66: push 00412856h ; __vbaExceptHandler
+  loc_00601C6B: mov eax, fs:[00000000h]
+  loc_00601C71: push eax
+  loc_00601C72: mov fs:[00000000h], esp
+  loc_00601C79: sub esp, 000001A4h
+  loc_00601C7F: push ebx
+  loc_00601C80: push esi
+  loc_00601C81: push edi
+  loc_00601C82: mov var_C, esp
+  loc_00601C85: mov var_8, 00404150h
+  loc_00601C8C: mov esi, Me
+  loc_00601C8F: mov eax, esi
+  loc_00601C91: and eax, 00000001h
+  loc_00601C94: mov var_4, eax
+  loc_00601C97: and esi, FFFFFFFEh
+  loc_00601C9A: push esi
+  loc_00601C9B: mov Me, esi
+  loc_00601C9E: mov ecx, [esi]
+  loc_00601CA0: call [ecx+00000004h]
+  loc_00601CA3: mov edx, [esi]
+  loc_00601CA5: xor edi, edi
+  loc_00601CA7: push esi
+  loc_00601CA8: mov var_18, edi
+  loc_00601CAB: mov var_1C, edi
+  loc_00601CAE: mov var_20, edi
+  loc_00601CB1: mov var_24, edi
+  loc_00601CB4: mov var_34, edi
+  loc_00601CB7: mov var_44, edi
+  loc_00601CBA: mov var_54, edi
+  loc_00601CBD: mov var_64, edi
+  loc_00601CC0: mov var_74, edi
+  loc_00601CC3: mov var_84, edi
+  loc_00601CC9: mov var_94, edi
+  loc_00601CCF: mov var_A4, edi
+  loc_00601CD5: mov var_B4, edi
+  loc_00601CDB: mov var_C4, edi
+  loc_00601CE1: mov var_D4, edi
+  loc_00601CE7: mov var_E4, edi
+  loc_00601CED: mov var_F4, edi
+  loc_00601CF3: mov var_104, edi
+  loc_00601CF9: mov var_114, edi
+  loc_00601CFF: mov var_124, edi
+  loc_00601D05: mov var_134, edi
+  loc_00601D0B: mov var_144, edi
+  loc_00601D11: mov var_154, edi
+  loc_00601D17: mov var_164, edi
+  loc_00601D1D: mov var_174, edi
+  loc_00601D23: mov var_184, edi
+  loc_00601D29: mov var_194, edi
+  loc_00601D2F: call [edx+00000308h]
+  loc_00601D35: push eax
+  loc_00601D36: lea eax, var_20
+  loc_00601D39: push eax
+  loc_00601D3A: call [00401128h] ; __vbaObjSet
+  loc_00601D40: mov ebx, eax
+  loc_00601D42: lea edx, var_18
+  loc_00601D45: push edx
+  loc_00601D46: push ebx
+  loc_00601D47: mov ecx, [ebx]
+  loc_00601D49: call [ecx+000000A0h]
+  loc_00601D4F: cmp eax, edi
+  loc_00601D51: fnclex
+  loc_00601D53: jge 00601D67h
+  loc_00601D55: push 000000A0h
+  loc_00601D5A: push 0043F42Ch
+  loc_00601D5F: push ebx
+  loc_00601D60: push eax
+  loc_00601D61: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00601D67: mov eax, [esi]
+  loc_00601D69: push esi
+  loc_00601D6A: call [eax+00000308h]
+  loc_00601D70: lea ecx, var_24
+  loc_00601D73: push eax
+  loc_00601D74: push ecx
+  loc_00601D75: call [00401128h] ; __vbaObjSet
+  loc_00601D7B: mov edx, var_18
+  loc_00601D7E: mov ebx, [eax]
+  loc_00601D80: push edi
+  loc_00601D81: push FFFFFFFFh
+  loc_00601D83: push 00000001h
+  loc_00601D85: push 00448370h
+  loc_00601D8A: push 00448570h ; " ("
+  loc_00601D8F: push edx
+  loc_00601D90: mov var_1A4, eax
+  loc_00601D96: call [00401258h] ; rtcReplace
+  loc_00601D9C: mov edx, eax
+  loc_00601D9E: lea ecx, var_1C
+  loc_00601DA1: call [004013C0h] ; __vbaStrMove
+  loc_00601DA7: mov var_1B8, ebx
+  loc_00601DAD: mov ebx, var_1A4
+  loc_00601DB3: push eax
+  loc_00601DB4: mov eax, var_1B8
+  loc_00601DBA: push ebx
+  loc_00601DBB: call [eax+000000A4h]
+  loc_00601DC1: cmp eax, edi
+  loc_00601DC3: fnclex
+  loc_00601DC5: jge 00601DD9h
+  loc_00601DC7: push 000000A4h
+  loc_00601DCC: push 0043F42Ch
+  loc_00601DD1: push ebx
+  loc_00601DD2: push eax
+  loc_00601DD3: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00601DD9: lea ecx, var_1C
+  loc_00601DDC: lea edx, var_18
+  loc_00601DDF: push ecx
+  loc_00601DE0: push edx
+  loc_00601DE1: push 00000002h
+  loc_00601DE3: call [00401324h] ; __vbaFreeStrList
+  loc_00601DE9: lea eax, var_24
+  loc_00601DEC: lea ecx, var_20
+  loc_00601DEF: push eax
+  loc_00601DF0: push ecx
+  loc_00601DF1: push 00000002h
+  loc_00601DF3: call [00401068h] ; __vbaFreeObjList
+  loc_00601DF9: mov edx, [esi]
+  loc_00601DFB: add esp, 00000018h
+  loc_00601DFE: push esi
+  loc_00601DFF: call [edx+00000304h]
+  loc_00601E05: mov var_2C, eax
+  loc_00601E08: lea eax, var_34
+  loc_00601E0B: lea ecx, var_44
+  loc_00601E0E: mov ebx, 00000009h
+  loc_00601E13: push eax
+  loc_00601E14: push ecx
+  loc_00601E15: mov var_34, ebx
+  loc_00601E18: call [00401154h] ; rtcTrimVar
+  loc_00601E1E: mov edx, [esi]
+  loc_00601E20: push esi
+  loc_00601E21: mov var_12C, edi
+  loc_00601E27: mov var_134, 00008002h
+  loc_00601E31: call [edx+00000304h]
+  loc_00601E37: mov var_6C, eax
+  loc_00601E3A: mov eax, [esi]
+  loc_00601E3C: push esi
+  loc_00601E3D: mov var_74, ebx
+  loc_00601E40: mov var_13C, 00444D98h ; "."
+  loc_00601E4A: mov var_144, 00000008h
+  loc_00601E54: mov var_14C, edi
+  loc_00601E5A: mov var_154, 00008002h
+  loc_00601E64: call [eax+00000304h]
+  loc_00601E6A: mov ecx, [esi]
+  loc_00601E6C: push esi
+  loc_00601E6D: mov var_AC, eax
+  loc_00601E73: mov var_B4, ebx
+  loc_00601E79: mov var_15C, 00448378h ; "@"
+  loc_00601E83: mov var_164, 00000008h
+  loc_00601E8D: mov var_16C, edi
+  loc_00601E93: mov var_174, 00008002h
+  loc_00601E9D: call [ecx+00000304h]
+  loc_00601EA3: mov var_EC, eax
+  loc_00601EA9: lea edx, var_44
+  loc_00601EAC: lea eax, var_54
+  loc_00601EAF: push edx
+  loc_00601EB0: push eax
+  loc_00601EB1: mov var_F4, ebx
+  loc_00601EB7: mov var_17C, 00448570h ; " ("
+  loc_00601EC1: mov var_184, 00000008h
+  loc_00601ECB: mov var_18C, edi
+  loc_00601ED1: mov var_194, 00008002h
+  loc_00601EDB: call [004010D4h] ; __vbaLenVar
+  loc_00601EE1: mov ebx, [00401094h] ; __vbaVarCmpNe
+  loc_00601EE7: lea ecx, var_134
+  loc_00601EED: push eax
+  loc_00601EEE: lea edx, var_64
+  loc_00601EF1: push ecx
+  loc_00601EF2: push edx
+  loc_00601EF3: call ebx
+  loc_00601EF5: push eax
+  loc_00601EF6: lea eax, var_74
+  loc_00601EF9: push 00000001h
+  loc_00601EFB: lea ecx, var_144
+  loc_00601F01: push eax
+  loc_00601F02: push ecx
+  loc_00601F03: lea edx, var_84
+  loc_00601F09: push edi
+  loc_00601F0A: push edx
+  loc_00601F0B: call [0040129Ch] ; __vbaInStrVar
+  loc_00601F11: push eax
+  loc_00601F12: lea eax, var_154
+  loc_00601F18: lea ecx, var_94
+  loc_00601F1E: push eax
+  loc_00601F1F: push ecx
+  loc_00601F20: call ebx
+  loc_00601F22: lea edx, var_A4
+  loc_00601F28: push eax
+  loc_00601F29: push edx
+  loc_00601F2A: call [00401240h] ; __vbaVarAnd
+  loc_00601F30: push eax
+  loc_00601F31: lea eax, var_B4
+  loc_00601F37: push 00000001h
+  loc_00601F39: lea ecx, var_164
+  loc_00601F3F: push eax
+  loc_00601F40: push ecx
+  loc_00601F41: lea edx, var_C4
+  loc_00601F47: push edi
+  loc_00601F48: push edx
+  loc_00601F49: call [0040129Ch] ; __vbaInStrVar
+  loc_00601F4F: push eax
+  loc_00601F50: lea eax, var_174
+  loc_00601F56: lea ecx, var_D4
+  loc_00601F5C: push eax
+  loc_00601F5D: push ecx
+  loc_00601F5E: call ebx
+  loc_00601F60: mov ebx, [00401240h] ; __vbaVarAnd
+  loc_00601F66: lea edx, var_E4
+  loc_00601F6C: push eax
+  loc_00601F6D: push edx
+  loc_00601F6E: call ebx
+  loc_00601F70: push eax
+  loc_00601F71: lea eax, var_F4
+  loc_00601F77: push 00000001h
+  loc_00601F79: lea ecx, var_184
+  loc_00601F7F: push eax
+  loc_00601F80: push ecx
+  loc_00601F81: lea edx, var_104
+  loc_00601F87: push edi
+  loc_00601F88: push edx
+  loc_00601F89: call [0040129Ch] ; __vbaInStrVar
+  loc_00601F8F: push eax
+  loc_00601F90: lea eax, var_194
+  loc_00601F96: lea ecx, var_114
+  loc_00601F9C: push eax
+  loc_00601F9D: push ecx
+  loc_00601F9E: call [00401350h] ; __vbaVarCmpEq
+  loc_00601FA4: lea edx, var_124
+  loc_00601FAA: push eax
+  loc_00601FAB: push edx
+  loc_00601FAC: call ebx
+  loc_00601FAE: push eax
+  loc_00601FAF: call [00401164h] ; __vbaBoolVarNull
+  loc_00601FB5: mov bx, ax
+  loc_00601FB8: lea eax, var_104
+  loc_00601FBE: lea ecx, var_F4
+  loc_00601FC4: push eax
+  loc_00601FC5: lea edx, var_C4
+  loc_00601FCB: push ecx
+  loc_00601FCC: lea eax, var_B4
+  loc_00601FD2: push edx
+  loc_00601FD3: lea ecx, var_84
+  loc_00601FD9: push eax
+  loc_00601FDA: lea edx, var_74
+  loc_00601FDD: push ecx
+  loc_00601FDE: lea eax, var_44
+  loc_00601FE1: push edx
+  loc_00601FE2: lea ecx, var_34
+  loc_00601FE5: push eax
+  loc_00601FE6: push ecx
+  loc_00601FE7: push 00000008h
+  loc_00601FE9: call [00401050h] ; __vbaFreeVarList
+  loc_00601FEF: add esp, 00000024h
+  loc_00601FF2: cmp bx, di
+  loc_00601FF5: jz 00602025h
+  loc_00601FF7: mov edx, [esi]
+  loc_00601FF9: push esi
+  loc_00601FFA: mov [esi+0000003Ch], di
+  loc_00601FFE: call [edx+000002B4h]
+  loc_00602004: cmp eax, edi
+  loc_00602006: fnclex
+  loc_00602008: jge 0060224Bh
+  loc_0060200E: push 000002B4h
+  loc_00602013: push 00448044h
+  loc_00602018: push esi
+  loc_00602019: push eax
+  loc_0060201A: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00602020: jmp 0060224Bh
+  loc_00602025: mov eax, [esi]
+  loc_00602027: push esi
+  loc_00602028: call [eax+00000304h]
+  loc_0060202E: lea ecx, var_34
+  loc_00602031: lea edx, var_44
+  loc_00602034: push ecx
+  loc_00602035: push edx
+  loc_00602036: mov var_2C, eax
+  loc_00602039: mov var_34, 00000009h
+  loc_00602040: call [00401154h] ; rtcTrimVar
+  loc_00602046: lea eax, var_44
+  loc_00602049: lea ecx, var_54
+  loc_0060204C: push eax
+  loc_0060204D: push ecx
+  loc_0060204E: mov var_12C, edi
+  loc_00602054: mov var_134, 00008002h
+  loc_0060205E: call [004010D4h] ; __vbaLenVar
+  loc_00602064: push eax
+  loc_00602065: lea edx, var_134
+  loc_0060206B: lea eax, var_64
+  loc_0060206E: push edx
+  loc_0060206F: push eax
+  loc_00602070: call [00401350h] ; __vbaVarCmpEq
+  loc_00602076: push eax
+  loc_00602077: call [00401150h] ; __vbaBoolVar
+  loc_0060207D: xor ecx, ecx
+  loc_0060207F: cmp ax, FFFFFFh
+  loc_00602083: lea edx, var_44
+  loc_00602086: lea eax, var_34
+  loc_00602089: setz cl
+  loc_0060208C: push edx
+  loc_0060208D: push eax
+  loc_0060208E: neg ecx
+  loc_00602090: push 00000002h
+  loc_00602092: mov esi, ecx
+  loc_00602094: call [00401050h] ; __vbaFreeVarList
+  loc_0060209A: mov eax, [0073A08Ch]
+  loc_0060209F: add esp, 0000000Ch
+  loc_006020A2: lea edx, var_20
+  loc_006020A5: cmp si, di
+  loc_006020A8: mov ecx, [eax]
+  loc_006020AA: push edx
+  loc_006020AB: push 00448380h ; "Decline"
+  loc_006020B0: push eax
+  loc_006020B1: jz 00602172h
+  loc_006020B7: call [ecx+00000064h]
+  loc_006020BA: cmp eax, edi
+  loc_006020BC: fnclex
+  loc_006020BE: jge 006020D5h
+  loc_006020C0: mov ecx, [0073A08Ch]
+  loc_006020C6: push 00000064h
+  loc_006020C8: push 004419ACh
+  loc_006020CD: push ecx
+  loc_006020CE: push eax
+  loc_006020CF: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006020D5: lea ecx, var_20
+  loc_006020D8: call [0040142Ch] ; __vbaFreeObj
+  loc_006020DE: mov edx, [0073A040h]
+  loc_006020E4: mov var_12C, 80020004h
+  loc_006020EE: push edx
+  loc_006020EF: push 0044857Ch
+  loc_006020F4: mov var_134, 0000000Ah
+  loc_006020FE: call [00401098h] ; __vbaStrCat
+  loc_00602104: mov ebx, var_134
+  loc_0060210A: lea esi, var_20
+  loc_0060210D: push esi
+  loc_0060210E: mov edx, [0073A08Ch]
+  loc_00602114: sub esp, 00000010h
+  loc_00602117: mov ecx, 00000008h
+  loc_0060211C: mov esi, esp
+  loc_0060211E: sub esp, 00000010h
+  loc_00602121: mov var_34, ecx
+  loc_00602124: mov var_2C, eax
+  loc_00602127: mov [esi], ebx
+  loc_00602129: mov ebx, var_130
+  loc_0060212F: mov edx, [edx]
+  loc_00602131: mov [esi+00000004h], ebx
+  loc_00602134: mov ebx, var_12C
+  loc_0060213A: mov [esi+00000008h], ebx
+  loc_0060213D: mov ebx, var_128
+  loc_00602143: mov [esi+0000000Ch], ebx
+  loc_00602146: mov esi, esp
+  loc_00602148: mov [esi], ecx
+  loc_0060214A: mov ecx, var_30
+  loc_0060214D: mov [esi+00000004h], ecx
+  loc_00602150: mov ecx, [0073A08Ch]
+  loc_00602156: push ecx
+  loc_00602157: mov [esi+00000008h], eax
+  loc_0060215A: mov eax, var_28
+  loc_0060215D: mov [esi+0000000Ch], eax
+  loc_00602160: call [edx+00000078h]
+  loc_00602163: cmp eax, edi
+  loc_00602165: fnclex
+  loc_00602167: jge 00602239h
+  loc_0060216D: jmp 00602224h
+  loc_00602172: call [ecx+00000064h]
+  loc_00602175: cmp eax, edi
+  loc_00602177: fnclex
+  loc_00602179: jge 00602190h
+  loc_0060217B: mov ecx, [0073A08Ch]
+  loc_00602181: push 00000064h
+  loc_00602183: push 004419ACh
+  loc_00602188: push ecx
+  loc_00602189: push eax
+  loc_0060218A: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00602190: lea ecx, var_20
+  loc_00602193: call [0040142Ch] ; __vbaFreeObj
+  loc_00602199: mov edx, [0073A040h]
+  loc_0060219F: mov var_12C, 80020004h
+  loc_006021A9: push edx
+  loc_006021AA: push 004485FCh
+  loc_006021AF: mov var_134, 0000000Ah
+  loc_006021B9: call [00401098h] ; __vbaStrCat
+  loc_006021BF: mov ebx, var_134
+  loc_006021C5: lea esi, var_20
+  loc_006021C8: push esi
+  loc_006021C9: mov edx, [0073A08Ch]
+  loc_006021CF: sub esp, 00000010h
+  loc_006021D2: mov ecx, 00000008h
+  loc_006021D7: mov esi, esp
+  loc_006021D9: sub esp, 00000010h
+  loc_006021DC: mov var_34, ecx
+  loc_006021DF: mov var_2C, eax
+  loc_006021E2: mov [esi], ebx
+  loc_006021E4: mov ebx, var_130
+  loc_006021EA: mov edx, [edx]
+  loc_006021EC: mov [esi+00000004h], ebx
+  loc_006021EF: mov ebx, var_12C
+  loc_006021F5: mov [esi+00000008h], ebx
+  loc_006021F8: mov ebx, var_128
+  loc_006021FE: mov [esi+0000000Ch], ebx
+  loc_00602201: mov esi, esp
+  loc_00602203: mov [esi], ecx
+  loc_00602205: mov ecx, var_30
+  loc_00602208: mov [esi+00000004h], ecx
+  loc_0060220B: mov ecx, [0073A08Ch]
+  loc_00602211: push ecx
+  loc_00602212: mov [esi+00000008h], eax
+  loc_00602215: mov eax, var_28
+  loc_00602218: mov [esi+0000000Ch], eax
+  loc_0060221B: call [edx+00000078h]
+  loc_0060221E: cmp eax, edi
+  loc_00602220: fnclex
+  loc_00602222: jge 00602239h
+  loc_00602224: mov edx, [0073A08Ch]
+  loc_0060222A: push 00000078h
+  loc_0060222C: push 004419ACh
+  loc_00602231: push edx
+  loc_00602232: push eax
+  loc_00602233: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00602239: lea ecx, var_20
+  loc_0060223C: call [0040142Ch] ; __vbaFreeObj
+  loc_00602242: lea ecx, var_34
+  loc_00602245: call [00401030h] ; __vbaFreeVar
+  loc_0060224B: mov var_4, edi
+  loc_0060224E: push 006022E6h
+  loc_00602253: jmp 006022E5h
+  loc_00602258: lea eax, var_1C
+  loc_0060225B: lea ecx, var_18
+  loc_0060225E: push eax
+  loc_0060225F: push ecx
+  loc_00602260: push 00000002h
+  loc_00602262: call [00401324h] ; __vbaFreeStrList
+  loc_00602268: lea edx, var_24
+  loc_0060226B: lea eax, var_20
+  loc_0060226E: push edx
+  loc_0060226F: push eax
+  loc_00602270: push 00000002h
+  loc_00602272: call [00401068h] ; __vbaFreeObjList
+  loc_00602278: lea ecx, var_124
+  loc_0060227E: lea edx, var_114
+  loc_00602284: push ecx
+  loc_00602285: lea eax, var_104
+  loc_0060228B: push edx
+  loc_0060228C: lea ecx, var_F4
+  loc_00602292: push eax
+  loc_00602293: lea edx, var_E4
+  loc_00602299: push ecx
+  loc_0060229A: lea eax, var_D4
+  loc_006022A0: push edx
+  loc_006022A1: lea ecx, var_C4
+  loc_006022A7: push eax
+  loc_006022A8: lea edx, var_B4
+  loc_006022AE: push ecx
+  loc_006022AF: lea eax, var_A4
+  loc_006022B5: push edx
+  loc_006022B6: lea ecx, var_94
+  loc_006022BC: push eax
+  loc_006022BD: lea edx, var_84
+  loc_006022C3: push ecx
+  loc_006022C4: lea eax, var_74
+  loc_006022C7: push edx
+  loc_006022C8: lea ecx, var_64
+  loc_006022CB: push eax
+  loc_006022CC: lea edx, var_54
+  loc_006022CF: push ecx
+  loc_006022D0: lea eax, var_44
+  loc_006022D3: push edx
+  loc_006022D4: lea ecx, var_34
+  loc_006022D7: push eax
+  loc_006022D8: push ecx
+  loc_006022D9: push 00000010h
+  loc_006022DB: call [00401050h] ; __vbaFreeVarList
+  loc_006022E1: add esp, 0000005Ch
+  loc_006022E4: ret
+  loc_006022E5: ret
+  loc_006022E6: mov eax, Me
+  loc_006022E9: push eax
+  loc_006022EA: mov edx, [eax]
+  loc_006022EC: call [edx+00000008h]
+  loc_006022EF: mov eax, var_4
+  loc_006022F2: mov ecx, var_14
+  loc_006022F5: pop edi
+  loc_006022F6: pop esi
+  loc_006022F7: mov fs:[00000000h], ecx
+  loc_006022FE: pop ebx
+  loc_006022FF: mov esp, ebp
+  loc_00602301: pop ebp
+  loc_00602302: retn 0004h
+End Sub
+
+Private Sub Form_Load() '6023D0
+  loc_006023D0: push ebp
+  loc_006023D1: mov ebp, esp
+  loc_006023D3: sub esp, 0000000Ch
+  loc_006023D6: push 00412856h ; __vbaExceptHandler
+  loc_006023DB: mov eax, fs:[00000000h]
+  loc_006023E1: push eax
+  loc_006023E2: mov fs:[00000000h], esp
+  loc_006023E9: sub esp, 00000008h
+  loc_006023EC: push ebx
+  loc_006023ED: push esi
+  loc_006023EE: push edi
+  loc_006023EF: mov var_C, esp
+  loc_006023F2: mov var_8, 00404170h
+  loc_006023F9: mov esi, Me
+  loc_006023FC: mov eax, esi
+  loc_006023FE: and eax, 00000001h
+  loc_00602401: mov var_4, eax
+  loc_00602404: and esi, FFFFFFFEh
+  loc_00602407: push esi
+  loc_00602408: mov Me, esi
+  loc_0060240B: mov ecx, [esi]
+  loc_0060240D: call [ecx+00000004h]
+  loc_00602410: mov [esi+0000003Ch], FFFFFFh
+  loc_00602416: mov var_4, 00000000h
+  loc_0060241D: mov eax, Me
+  loc_00602420: push eax
+  loc_00602421: mov edx, [eax]
+  loc_00602423: call [edx+00000008h]
+  loc_00602426: mov eax, var_4
+  loc_00602429: mov ecx, var_14
+  loc_0060242C: pop edi
+  loc_0060242D: pop esi
+  loc_0060242E: mov fs:[00000000h], ecx
+  loc_00602435: pop ebx
+  loc_00602436: mov esp, ebp
+  loc_00602438: pop ebp
+  loc_00602439: retn 0004h
+End Sub
+
+Private Sub Form_Activate() '602310
+  loc_00602310: push ebp
+  loc_00602311: mov ebp, esp
+  loc_00602313: sub esp, 0000000Ch
+  loc_00602316: push 00412856h ; __vbaExceptHandler
+  loc_0060231B: mov eax, fs:[00000000h]
+  loc_00602321: push eax
+  loc_00602322: mov fs:[00000000h], esp
+  loc_00602329: sub esp, 00000014h
+  loc_0060232C: push ebx
+  loc_0060232D: push esi
+  loc_0060232E: push edi
+  loc_0060232F: mov var_C, esp
+  loc_00602332: mov var_8, 00404160h
+  loc_00602339: mov esi, Me
+  loc_0060233C: mov eax, esi
+  loc_0060233E: and eax, 00000001h
+  loc_00602341: mov var_4, eax
+  loc_00602344: and esi, FFFFFFFEh
+  loc_00602347: push esi
+  loc_00602348: mov Me, esi
+  loc_0060234B: mov ecx, [esi]
+  loc_0060234D: call [ecx+00000004h]
+  loc_00602350: mov edx, [esi]
+  loc_00602352: xor edi, edi
+  loc_00602354: push esi
+  loc_00602355: mov var_18, edi
+  loc_00602358: mov [esi+0000003Ch], FFFFFFh
+  loc_0060235E: call [edx+00000308h]
+  loc_00602364: push eax
+  loc_00602365: lea eax, var_18
+  loc_00602368: push eax
+  loc_00602369: call [00401128h] ; __vbaObjSet
+  loc_0060236F: mov esi, eax
+  loc_00602371: push esi
+  loc_00602372: mov ecx, [esi]
+  loc_00602374: call [ecx+00000204h]
+  loc_0060237A: cmp eax, edi
+  loc_0060237C: fnclex
+  loc_0060237E: jge 00602392h
+  loc_00602380: push 00000204h
+  loc_00602385: push 0043F42Ch
+  loc_0060238A: push esi
+  loc_0060238B: push eax
+  loc_0060238C: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00602392: lea ecx, var_18
+  loc_00602395: call [0040142Ch] ; __vbaFreeObj
+  loc_0060239B: mov var_4, edi
+  loc_0060239E: push 006023B0h
+  loc_006023A3: jmp 006023AFh
+  loc_006023A5: lea ecx, var_18
+  loc_006023A8: call [0040142Ch] ; __vbaFreeObj
+  loc_006023AE: ret
+  loc_006023AF: ret
+  loc_006023B0: mov eax, Me
+  loc_006023B3: push eax
+  loc_006023B4: mov edx, [eax]
+  loc_006023B6: call [edx+00000008h]
+  loc_006023B9: mov eax, var_4
+  loc_006023BC: mov ecx, var_14
+  loc_006023BF: pop edi
+  loc_006023C0: pop esi
+  loc_006023C1: mov fs:[00000000h], ecx
+  loc_006023C8: pop ebx
+  loc_006023C9: mov esp, ebp
+  loc_006023CB: pop ebp
+  loc_006023CC: retn 0004h
+End Sub
+
+Public Property Get Cancelled(Index As Integer) '601980
+  loc_00601980: push ebp
+  loc_00601981: mov ebp, esp
+  loc_00601983: sub esp, 0000000Ch
+  loc_00601986: push 00412856h ; __vbaExceptHandler
+  loc_0060198B: mov eax, fs:[00000000h]
+  loc_00601991: push eax
+  loc_00601992: mov fs:[00000000h], esp
+  loc_00601999: sub esp, 0000000Ch
+  loc_0060199C: push ebx
+  loc_0060199D: push esi
+  loc_0060199E: push edi
+  loc_0060199F: mov var_C, esp
+  loc_006019A2: mov var_8, 00404118h
+  loc_006019A9: xor edi, edi
+  loc_006019AB: mov var_4, edi
+  loc_006019AE: mov esi, Me
+  loc_006019B1: push esi
+  loc_006019B2: mov eax, [esi]
+  loc_006019B4: call [eax+00000004h]
+  loc_006019B7: mov cx, [esi+0000003Ch]
+  loc_006019BB: mov var_18, edi
+  loc_006019BE: mov var_18, ecx
+  loc_006019C1: mov eax, Me
+  loc_006019C4: push eax
+  loc_006019C5: mov edx, [eax]
+  loc_006019C7: call [edx+00000008h]
+  loc_006019CA: mov eax, Index
+  loc_006019CD: mov cx, var_18
+  loc_006019D1: mov [eax], cx
+  loc_006019D4: mov eax, var_4
+  loc_006019D7: mov ecx, var_14
+  loc_006019DA: pop edi
+  loc_006019DB: pop esi
+  loc_006019DC: mov fs:[00000000h], ecx
+  loc_006019E3: pop ebx
+  loc_006019E4: mov esp, ebp
+  loc_006019E6: pop ebp
+  loc_006019E7: retn 0008h
+End Sub
+
+Public Property Let EditMode(blnEditMode) '6019F0
+  loc_006019F0: push ebp
+  loc_006019F1: mov ebp, esp
+  loc_006019F3: sub esp, 0000000Ch
+  loc_006019F6: push 00412856h ; __vbaExceptHandler
+  loc_006019FB: mov eax, fs:[00000000h]
+  loc_00601A01: push eax
+  loc_00601A02: mov fs:[00000000h], esp
+  loc_00601A09: sub esp, 00000008h
+  loc_00601A0C: push ebx
+  loc_00601A0D: push esi
+  loc_00601A0E: push edi
+  loc_00601A0F: mov var_C, esp
+  loc_00601A12: mov var_8, 00404120h
+  loc_00601A19: mov var_4, 00000000h
+  loc_00601A20: mov esi, Me
+  loc_00601A23: push esi
+  loc_00601A24: mov eax, [esi]
+  loc_00601A26: call [eax+00000004h]
+  loc_00601A29: mov ecx, blnEditMode
+  loc_00601A2C: mov dx, [ecx]
+  loc_00601A2F: mov [esi+00000034h], dx
+  loc_00601A33: mov eax, Me
+  loc_00601A36: push eax
+  loc_00601A37: mov ecx, [eax]
+  loc_00601A39: call [ecx+00000008h]
+  loc_00601A3C: mov eax, var_4
+  loc_00601A3F: mov ecx, var_14
+  loc_00601A42: pop edi
+  loc_00601A43: pop esi
+  loc_00601A44: mov fs:[00000000h], ecx
+  loc_00601A4B: pop ebx
+  loc_00601A4C: mov esp, ebp
+  loc_00601A4E: pop ebp
+  loc_00601A4F: retn 0008h
+End Sub
+
+Public Property Get EditMode(arg_C) '601A60
+  loc_00601A60: push ebp
+  loc_00601A61: mov ebp, esp
+  loc_00601A63: sub esp, 0000000Ch
+  loc_00601A66: push 00412856h ; __vbaExceptHandler
+  loc_00601A6B: mov eax, fs:[00000000h]
+  loc_00601A71: push eax
+  loc_00601A72: mov fs:[00000000h], esp
+  loc_00601A79: sub esp, 0000000Ch
+  loc_00601A7C: push ebx
+  loc_00601A7D: push esi
+  loc_00601A7E: push edi
+  loc_00601A7F: mov var_C, esp
+  loc_00601A82: mov var_8, 00404128h
+  loc_00601A89: xor edi, edi
+  loc_00601A8B: mov var_4, edi
+  loc_00601A8E: mov esi, Me
+  loc_00601A91: push esi
+  loc_00601A92: mov eax, [esi]
+  loc_00601A94: call [eax+00000004h]
+  loc_00601A97: mov cx, [esi+00000034h]
+  loc_00601A9B: mov var_18, edi
+  loc_00601A9E: mov var_18, ecx
+  loc_00601AA1: mov eax, Me
+  loc_00601AA4: push eax
+  loc_00601AA5: mov edx, [eax]
+  loc_00601AA7: call [edx+00000008h]
+  loc_00601AAA: mov eax, arg_C
+  loc_00601AAD: mov cx, var_18
+  loc_00601AB1: mov [eax], cx
+  loc_00601AB4: mov eax, var_4
+  loc_00601AB7: mov ecx, var_14
+  loc_00601ABA: pop edi
+  loc_00601ABB: pop esi
+  loc_00601ABC: mov fs:[00000000h], ecx
+  loc_00601AC3: pop ebx
+  loc_00601AC4: mov esp, ebp
+  loc_00601AC6: pop ebp
+  loc_00601AC7: retn 0008h
+End Sub
+
+Public Property Let OriginalAddressName(strOriginalAddressName) '601AD0
+  loc_00601AD0: push ebp
+  loc_00601AD1: mov ebp, esp
+  loc_00601AD3: sub esp, 0000000Ch
+  loc_00601AD6: push 00412856h ; __vbaExceptHandler
+  loc_00601ADB: mov eax, fs:[00000000h]
+  loc_00601AE1: push eax
+  loc_00601AE2: mov fs:[00000000h], esp
+  loc_00601AE9: sub esp, 00000008h
+  loc_00601AEC: push ebx
+  loc_00601AED: push esi
+  loc_00601AEE: push edi
+  loc_00601AEF: mov var_C, esp
+  loc_00601AF2: mov var_8, 00404130h
+  loc_00601AF9: mov var_4, 00000000h
+  loc_00601B00: mov esi, Me
+  loc_00601B03: push esi
+  loc_00601B04: mov eax, [esi]
+  loc_00601B06: call [eax+00000004h]
+  loc_00601B09: mov ecx, strOriginalAddressName
+  loc_00601B0C: mov edx, [ecx]
+  loc_00601B0E: lea ecx, [esi+00000038h]
+  loc_00601B11: call [00401310h] ; __vbaStrCopy
+  loc_00601B17: mov eax, Me
+  loc_00601B1A: push eax
+  loc_00601B1B: mov edx, [eax]
+  loc_00601B1D: call [edx+00000008h]
+  loc_00601B20: mov eax, var_4
+  loc_00601B23: mov ecx, var_14
+  loc_00601B26: pop edi
+  loc_00601B27: pop esi
+  loc_00601B28: mov fs:[00000000h], ecx
+  loc_00601B2F: pop ebx
+  loc_00601B30: mov esp, ebp
+  loc_00601B32: pop ebp
+  loc_00601B33: retn 0008h
+End Sub
+
+Public Property Get OriginalAddressName(arg_C) '601B40
+  loc_00601B40: push ebp
+  loc_00601B41: mov ebp, esp
+  loc_00601B43: sub esp, 0000000Ch
+  loc_00601B46: push 00412856h ; __vbaExceptHandler
+  loc_00601B4B: mov eax, fs:[00000000h]
+  loc_00601B51: push eax
+  loc_00601B52: mov fs:[00000000h], esp
+  loc_00601B59: sub esp, 0000000Ch
+  loc_00601B5C: push ebx
+  loc_00601B5D: push esi
+  loc_00601B5E: push edi
+  loc_00601B5F: mov var_C, esp
+  loc_00601B62: mov var_8, 00404138h
+  loc_00601B69: xor edi, edi
+  loc_00601B6B: mov var_4, edi
+  loc_00601B6E: mov esi, Me
+  loc_00601B71: push esi
+  loc_00601B72: mov eax, [esi]
+  loc_00601B74: call [eax+00000004h]
+  loc_00601B77: mov ecx, arg_C
+  loc_00601B7A: mov var_18, edi
+  loc_00601B7D: mov [ecx], edi
+  loc_00601B7F: mov edx, [esi+00000038h]
+  loc_00601B82: lea ecx, var_18
+  loc_00601B85: call [00401310h] ; __vbaStrCopy
+  loc_00601B8B: push 00601B9Dh
+  loc_00601B90: jmp 00601B9Ch
+  loc_00601B92: lea ecx, var_18
+  loc_00601B95: call [00401430h] ; __vbaFreeStr
+  loc_00601B9B: ret
+  loc_00601B9C: ret
+  loc_00601B9D: mov eax, Me
+  loc_00601BA0: push eax
+  loc_00601BA1: mov edx, [eax]
+  loc_00601BA3: call [edx+00000008h]
+  loc_00601BA6: mov eax, arg_C
+  loc_00601BA9: mov ecx, var_18
+  loc_00601BAC: mov [eax], ecx
+  loc_00601BAE: mov eax, var_4
+  loc_00601BB1: mov ecx, var_14
+  loc_00601BB4: pop edi
+  loc_00601BB5: pop esi
+  loc_00601BB6: mov fs:[00000000h], ecx
+  loc_00601BBD: pop ebx
+  loc_00601BBE: mov esp, ebp
+  loc_00601BC0: pop ebp
+  loc_00601BC1: retn 0008h
+End Sub

Src Code/frmBBIMDialog.frm

@@ -0,0 +1,330 @@
+VERSION 5.00
+Begin VB.Form frmBBIMDialog
+  Caption = "BonziWORLD™ Logon Password Required"
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 3 'Fixed Dialog
+  Icon = "frmBBIMDialog.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  ClientLeft = 2760
+  ClientTop = 3750
+  ClientWidth = 5160
+  ClientHeight = 1110
+  LockControls = -1  'True
+  ShowInTaskbar = 0   'False
+  StartUpPosition = 1 'CenterOwner
+  Begin VB.TextBox txtPass
+    Left = 180
+    Top = 480
+    Width = 3075
+    Height = 315
+    TabIndex = 0
+    PasswordChar = "*"
+  End
+  Begin VB.CommandButton CancelButton
+    Caption = "Cancel"
+    Left = 3720
+    Top = 600
+    Width = 1215
+    Height = 375
+    TabIndex = 2
+    Cancel = -1  'True
+  End
+  Begin VB.CommandButton OKButton
+    Caption = "OK"
+    Left = 3720
+    Top = 120
+    Width = 1215
+    Height = 375
+    TabIndex = 1
+    Default = -1  'True
+  End
+  Begin VB.Label lblEnterPassword
+    Caption = "Please enter your logon password."
+    Left = 210
+    Top = 270
+    Width = 2430
+    Height = 195
+    TabIndex = 3
+    AutoSize = -1  'True
+  End
+End
+
+Attribute VB_Name = "frmBBIMDialog"
+
+
+Private Sub OKButton_Click() '6E54B0
+  loc_006E54B0: push ebp
+  loc_006E54B1: mov ebp, esp
+  loc_006E54B3: sub esp, 0000000Ch
+  loc_006E54B6: push 00412856h ; __vbaExceptHandler
+  loc_006E54BB: mov eax, fs:[00000000h]
+  loc_006E54C1: push eax
+  loc_006E54C2: mov fs:[00000000h], esp
+  loc_006E54C9: sub esp, 00000024h
+  loc_006E54CC: push ebx
+  loc_006E54CD: push esi
+  loc_006E54CE: push edi
+  loc_006E54CF: mov var_C, esp
+  loc_006E54D2: mov var_8, 0040E768h
+  loc_006E54D9: mov edi, Me
+  loc_006E54DC: mov eax, edi
+  loc_006E54DE: and eax, 00000001h
+  loc_006E54E1: mov var_4, eax
+  loc_006E54E4: and edi, FFFFFFFEh
+  loc_006E54E7: push edi
+  loc_006E54E8: mov Me, edi
+  loc_006E54EB: mov ecx, [edi]
+  loc_006E54ED: call [ecx+00000004h]
+  loc_006E54F0: mov ecx, [0073A614h]
+  loc_006E54F6: xor eax, eax
+  loc_006E54F8: cmp ecx, eax
+  loc_006E54FA: mov var_18, eax
+  loc_006E54FD: mov var_1C, eax
+  loc_006E5500: jnz 006E5512h
+  loc_006E5502: push 0073A614h
+  loc_006E5507: push 004283E0h
+  loc_006E550C: call [004012FCh] ; __vbaNew2
+  loc_006E5512: mov edx, [edi]
+  loc_006E5514: mov ebx, [0073A614h]
+  loc_006E551A: push edi
+  loc_006E551B: call [edx+000002FCh]
+  loc_006E5521: push eax
+  loc_006E5522: lea eax, var_1C
+  loc_006E5525: push eax
+  loc_006E5526: call [00401128h] ; __vbaObjSet
+  loc_006E552C: mov esi, eax
+  loc_006E552E: lea edx, var_18
+  loc_006E5531: push edx
+  loc_006E5532: push esi
+  loc_006E5533: mov ecx, [esi]
+  loc_006E5535: call [ecx+000000A0h]
+  loc_006E553B: test eax, eax
+  loc_006E553D: fnclex
+  loc_006E553F: jge 006E5553h
+  loc_006E5541: push 000000A0h
+  loc_006E5546: push 0043F42Ch
+  loc_006E554B: push esi
+  loc_006E554C: push eax
+  loc_006E554D: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006E5553: mov ecx, var_18
+  loc_006E5556: mov eax, [ebx]
+  loc_006E5558: push ecx
+  loc_006E5559: push ebx
+  loc_006E555A: call [eax+00000728h]
+  loc_006E5560: test eax, eax
+  loc_006E5562: fnclex
+  loc_006E5564: jge 006E5578h
+  loc_006E5566: push 00000728h
+  loc_006E556B: push 00455054h
+  loc_006E5570: push ebx
+  loc_006E5571: push eax
+  loc_006E5572: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006E5578: lea ecx, var_18
+  loc_006E557B: call [00401430h] ; __vbaFreeStr
+  loc_006E5581: mov ebx, [0040142Ch] ; __vbaFreeObj
+  loc_006E5587: lea ecx, var_1C
+  loc_006E558A: call ebx
+  loc_006E558C: mov eax, [0073C818h]
+  loc_006E5591: test eax, eax
+  loc_006E5593: jnz 006E55A5h
+  loc_006E5595: push 0073C818h
+  loc_006E559A: push 00441F00h
+  loc_006E559F: call [004012FCh] ; __vbaNew2
+  loc_006E55A5: mov esi, [0073C818h]
+  loc_006E55AB: lea eax, var_1C
+  loc_006E55AE: push edi
+  loc_006E55AF: push eax
+  loc_006E55B0: mov edx, [esi]
+  loc_006E55B2: mov var_38, edx
+  loc_006E55B5: call [00401130h] ; __vbaObjSetAddref
+  loc_006E55BB: mov ecx, var_38
+  loc_006E55BE: push eax
+  loc_006E55BF: push esi
+  loc_006E55C0: call [ecx+00000010h]
+  loc_006E55C3: test eax, eax
+  loc_006E55C5: fnclex
+  loc_006E55C7: jge 006E55D8h
+  loc_006E55C9: push 00000010h
+  loc_006E55CB: push 00441EF0h
+  loc_006E55D0: push esi
+  loc_006E55D1: push eax
+  loc_006E55D2: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006E55D8: lea ecx, var_1C
+  loc_006E55DB: call ebx
+  loc_006E55DD: mov var_4, 00000000h
+  loc_006E55E4: push 006E55FFh
+  loc_006E55E9: jmp 006E55FEh
+  loc_006E55EB: lea ecx, var_18
+  loc_006E55EE: call [00401430h] ; __vbaFreeStr
+  loc_006E55F4: lea ecx, var_1C
+  loc_006E55F7: call [0040142Ch] ; __vbaFreeObj
+  loc_006E55FD: ret
+  loc_006E55FE: ret
+  loc_006E55FF: mov eax, Me
+  loc_006E5602: push eax
+  loc_006E5603: mov edx, [eax]
+  loc_006E5605: call [edx+00000008h]
+  loc_006E5608: mov eax, var_4
+  loc_006E560B: mov ecx, var_14
+  loc_006E560E: pop edi
+  loc_006E560F: pop esi
+  loc_006E5610: mov fs:[00000000h], ecx
+  loc_006E5617: pop ebx
+  loc_006E5618: mov esp, ebp
+  loc_006E561A: pop ebp
+  loc_006E561B: retn 0004h
+End Sub
+
+Private Sub CancelButton_Click() '6E52E0
+  loc_006E52E0: push ebp
+  loc_006E52E1: mov ebp, esp
+  loc_006E52E3: sub esp, 0000000Ch
+  loc_006E52E6: push 00412856h ; __vbaExceptHandler
+  loc_006E52EB: mov eax, fs:[00000000h]
+  loc_006E52F1: push eax
+  loc_006E52F2: mov fs:[00000000h], esp
+  loc_006E52F9: sub esp, 00000018h
+  loc_006E52FC: push ebx
+  loc_006E52FD: push esi
+  loc_006E52FE: push edi
+  loc_006E52FF: mov var_C, esp
+  loc_006E5302: mov var_8, 0040E750h
+  loc_006E5309: mov edi, Me
+  loc_006E530C: mov eax, edi
+  loc_006E530E: and eax, 00000001h
+  loc_006E5311: mov var_4, eax
+  loc_006E5314: and edi, FFFFFFFEh
+  loc_006E5317: push edi
+  loc_006E5318: mov Me, edi
+  loc_006E531B: mov ecx, [edi]
+  loc_006E531D: call [ecx+00000004h]
+  loc_006E5320: mov eax, [0073A614h]
+  loc_006E5325: xor ebx, ebx
+  loc_006E5327: cmp eax, ebx
+  loc_006E5329: mov var_18, ebx
+  loc_006E532C: jnz 006E533Eh
+  loc_006E532E: push 0073A614h
+  loc_006E5333: push 004283E0h
+  loc_006E5338: call [004012FCh] ; __vbaNew2
+  loc_006E533E: mov esi, [0073A614h]
+  loc_006E5344: push 0047167Ch ; "This is what is returned when the user clicks cancel!"
+  loc_006E5349: push esi
+  loc_006E534A: mov edx, [esi]
+  loc_006E534C: call [edx+00000728h]
+  loc_006E5352: cmp eax, ebx
+  loc_006E5354: fnclex
+  loc_006E5356: jge 006E536Ah
+  loc_006E5358: push 00000728h
+  loc_006E535D: push 00455054h
+  loc_006E5362: push esi
+  loc_006E5363: push eax
+  loc_006E5364: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006E536A: cmp [0073C818h], ebx
+  loc_006E5370: jnz 006E5382h
+  loc_006E5372: push 0073C818h
+  loc_006E5377: push 00441F00h
+  loc_006E537C: call [004012FCh] ; __vbaNew2
+  loc_006E5382: mov esi, [0073C818h]
+  loc_006E5388: lea eax, var_18
+  loc_006E538B: push edi
+  loc_006E538C: push eax
+  loc_006E538D: mov edx, [esi]
+  loc_006E538F: mov var_2C, edx
+  loc_006E5392: call [00401130h] ; __vbaObjSetAddref
+  loc_006E5398: mov ecx, var_2C
+  loc_006E539B: push eax
+  loc_006E539C: push esi
+  loc_006E539D: call [ecx+00000010h]
+  loc_006E53A0: cmp eax, ebx
+  loc_006E53A2: fnclex
+  loc_006E53A4: jge 006E53B5h
+  loc_006E53A6: push 00000010h
+  loc_006E53A8: push 00441EF0h
+  loc_006E53AD: push esi
+  loc_006E53AE: push eax
+  loc_006E53AF: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006E53B5: lea ecx, var_18
+  loc_006E53B8: call [0040142Ch] ; __vbaFreeObj
+  loc_006E53BE: mov var_4, ebx
+  loc_006E53C1: push 006E53D3h
+  loc_006E53C6: jmp 006E53D2h
+  loc_006E53C8: lea ecx, var_18
+  loc_006E53CB: call [0040142Ch] ; __vbaFreeObj
+  loc_006E53D1: ret
+  loc_006E53D2: ret
+  loc_006E53D3: mov eax, Me
+  loc_006E53D6: push eax
+  loc_006E53D7: mov edx, [eax]
+  loc_006E53D9: call [edx+00000008h]
+  loc_006E53DC: mov eax, var_4
+  loc_006E53DF: mov ecx, var_14
+  loc_006E53E2: pop edi
+  loc_006E53E3: pop esi
+  loc_006E53E4: mov fs:[00000000h], ecx
+  loc_006E53EB: pop ebx
+  loc_006E53EC: mov esp, ebp
+  loc_006E53EE: pop ebp
+  loc_006E53EF: retn 0004h
+End Sub
+
+Private Sub Form_Load() '6E5400
+  loc_006E5400: push ebp
+  loc_006E5401: mov ebp, esp
+  loc_006E5403: sub esp, 0000000Ch
+  loc_006E5406: push 00412856h ; __vbaExceptHandler
+  loc_006E540B: mov eax, fs:[00000000h]
+  loc_006E5411: push eax
+  loc_006E5412: mov fs:[00000000h], esp
+  loc_006E5419: sub esp, 00000010h
+  loc_006E541C: push ebx
+  loc_006E541D: push esi
+  loc_006E541E: push edi
+  loc_006E541F: mov var_C, esp
+  loc_006E5422: mov var_8, 0040E760h
+  loc_006E5429: mov eax, Me
+  loc_006E542C: mov ecx, eax
+  loc_006E542E: and ecx, 00000001h
+  loc_006E5431: mov var_4, ecx
+  loc_006E5434: and al, FEh
+  loc_006E5436: push eax
+  loc_006E5437: mov Me, eax
+  loc_006E543A: mov edx, [eax]
+  loc_006E543C: call [edx+00000004h]
+  loc_006E543F: mov eax, [0073A614h]
+  loc_006E5444: test eax, eax
+  loc_006E5446: jnz 006E5458h
+  loc_006E5448: push 0073A614h
+  loc_006E544D: push 004283E0h
+  loc_006E5452: call [004012FCh] ; __vbaNew2
+  loc_006E5458: mov esi, [0073A614h]
+  loc_006E545E: push 0043C9F4h
+  loc_006E5463: push esi
+  loc_006E5464: mov eax, [esi]
+  loc_006E5466: call [eax+00000728h]
+  loc_006E546C: test eax, eax
+  loc_006E546E: fnclex
+  loc_006E5470: jge 006E5484h
+  loc_006E5472: push 00000728h
+  loc_006E5477: push 00455054h
+  loc_006E547C: push esi
+  loc_006E547D: push eax
+  loc_006E547E: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006E5484: mov var_4, 00000000h
+  loc_006E548B: mov eax, Me
+  loc_006E548E: push eax
+  loc_006E548F: mov ecx, [eax]
+  loc_006E5491: call [ecx+00000008h]
+  loc_006E5494: mov eax, var_4
+  loc_006E5497: mov ecx, var_14
+  loc_006E549A: pop edi
+  loc_006E549B: pop esi
+  loc_006E549C: mov fs:[00000000h], ecx
+  loc_006E54A3: pop ebx
+  loc_006E54A4: mov esp, ebp
+  loc_006E54A6: pop ebp
+  loc_006E54A7: retn 0004h
+End Sub

Src Code/frmBBIMUserProperties.frm

@@ -0,0 +1,174 @@
+VERSION 5.00
+Begin VB.Form frmBBIMUserProperties
+  Caption = "BonziWORLD™ User Properties"
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 3 'Fixed Dialog
+  Icon = "frmBBIMUserProperties.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  Visible = 0   'False
+  ClientLeft = 2760
+  ClientTop = 3750
+  ClientWidth = 4875
+  ClientHeight = 2880
+  LockControls = -1  'True
+  ShowInTaskbar = 0   'False
+  StartUpPosition = 1 'CenterOwner
+  Begin VB.PictureBox Picture1
+    Left = 90
+    Top = 120
+    Width = 4695
+    Height = 2115
+    TabIndex = 1
+    ScaleMode = 1
+    AutoRedraw = False
+    FontTransparent = True
+    Begin VB.Frame fraProperties
+      Caption = "About the selected user"
+      Left = 120
+      Top = 60
+      Width = 4425
+      Height = 1875
+      TabIndex = 2
+      Begin VB.Label lbltxtName
+        Left = 1380
+        Top = 420
+        Width = 45
+        Height = 195
+        TabIndex = 8
+        AutoSize = -1  'True
+      End
+      Begin VB.Label lbltxtEmail
+        Left = 1380
+        Top = 900
+        Width = 45
+        Height = 195
+        TabIndex = 7
+        AutoSize = -1  'True
+      End
+      Begin VB.Label lbltxtStatus
+        Left = 1380
+        Top = 1380
+        Width = 45
+        Height = 195
+        TabIndex = 6
+        AutoSize = -1  'True
+      End
+      Begin VB.Label lblName
+        Caption = "Name:"
+        Left = 180
+        Top = 420
+        Width = 465
+        Height = 195
+        TabIndex = 5
+        AutoSize = -1  'True
+      End
+      Begin VB.Label lblEmail
+        Caption = "Email Address:"
+        Left = 180
+        Top = 900
+        Width = 1035
+        Height = 195
+        TabIndex = 4
+        AutoSize = -1  'True
+      End
+      Begin VB.Label lblStatus
+        Caption = "Status:"
+        Left = 180
+        Top = 1380
+        Width = 495
+        Height = 195
+        TabIndex = 3
+        AutoSize = -1  'True
+      End
+    End
+  End
+  Begin VB.CommandButton cmdClose
+    Caption = "&Close"
+    Left = 1860
+    Top = 2400
+    Width = 1215
+    Height = 375
+    TabIndex = 0
+  End
+End
+
+Attribute VB_Name = "frmBBIMUserProperties"
+
+
+Private Sub cmdClose_Click() '6F05F0
+  loc_006F05F0: push ebp
+  loc_006F05F1: mov ebp, esp
+  loc_006F05F3: sub esp, 0000000Ch
+  loc_006F05F6: push 00412856h ; __vbaExceptHandler
+  loc_006F05FB: mov eax, fs:[00000000h]
+  loc_006F0601: push eax
+  loc_006F0602: mov fs:[00000000h], esp
+  loc_006F0609: sub esp, 00000018h
+  loc_006F060C: push ebx
+  loc_006F060D: push esi
+  loc_006F060E: push edi
+  loc_006F060F: mov var_C, esp
+  loc_006F0612: mov var_8, 0040F290h
+  loc_006F0619: mov edi, Me
+  loc_006F061C: mov eax, edi
+  loc_006F061E: and eax, 00000001h
+  loc_006F0621: mov var_4, eax
+  loc_006F0624: and edi, FFFFFFFEh
+  loc_006F0627: push edi
+  loc_006F0628: mov Me, edi
+  loc_006F062B: mov ecx, [edi]
+  loc_006F062D: call [ecx+00000004h]
+  loc_006F0630: mov eax, [0073C818h]
+  loc_006F0635: xor ebx, ebx
+  loc_006F0637: cmp eax, ebx
+  loc_006F0639: mov var_18, ebx
+  loc_006F063C: jnz 006F064Eh
+  loc_006F063E: push 0073C818h
+  loc_006F0643: push 00441F00h
+  loc_006F0648: call [004012FCh] ; __vbaNew2
+  loc_006F064E: mov esi, [0073C818h]
+  loc_006F0654: lea eax, var_18
+  loc_006F0657: push edi
+  loc_006F0658: push eax
+  loc_006F0659: mov edx, [esi]
+  loc_006F065B: mov var_2C, edx
+  loc_006F065E: call [00401130h] ; __vbaObjSetAddref
+  loc_006F0664: mov ecx, var_2C
+  loc_006F0667: push eax
+  loc_006F0668: push esi
+  loc_006F0669: call [ecx+00000010h]
+  loc_006F066C: cmp eax, ebx
+  loc_006F066E: fnclex
+  loc_006F0670: jge 006F0681h
+  loc_006F0672: push 00000010h
+  loc_006F0674: push 00441EF0h
+  loc_006F0679: push esi
+  loc_006F067A: push eax
+  loc_006F067B: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006F0681: lea ecx, var_18
+  loc_006F0684: call [0040142Ch] ; __vbaFreeObj
+  loc_006F068A: mov var_4, ebx
+  loc_006F068D: push 006F069Fh
+  loc_006F0692: jmp 006F069Eh
+  loc_006F0694: lea ecx, var_18
+  loc_006F0697: call [0040142Ch] ; __vbaFreeObj
+  loc_006F069D: ret
+  loc_006F069E: ret
+  loc_006F069F: mov eax, Me
+  loc_006F06A2: push eax
+  loc_006F06A3: mov edx, [eax]
+  loc_006F06A5: call [edx+00000008h]
+  loc_006F06A8: mov eax, var_4
+  loc_006F06AB: mov ecx, var_14
+  loc_006F06AE: pop edi
+  loc_006F06AF: pop esi
+  loc_006F06B0: mov fs:[00000000h], ecx
+  loc_006F06B7: pop ebx
+  loc_006F06B8: mov esp, ebp
+  loc_006F06BA: pop ebp
+  loc_006F06BB: retn 0004h
+End Sub

Src Code/frmCTBMsgBox.frm

@@ -0,0 +1,580 @@
+VERSION 5.00
+Begin VB.Form frmCTBMsgBox
+  Caption = "BonziBUDDY Bargain Hunter - Save Money!"
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 3 'Fixed Dialog
+  Icon = "frmCTBMsgBox.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  Visible = 0   'False
+  ClientLeft = 2760
+  ClientTop = 3750
+  ClientWidth = 6030
+  ClientHeight = 1815
+  LockControls = -1  'True
+  StartUpPosition = 2 'CenterScreen
+  Begin VB.CheckBox chkStopIt
+    Caption = "Don't Prompt Me Again"
+    Left = 210
+    Top = 1830
+    Width = 2655
+    Height = 225
+    Visible = 0   'False
+    TabIndex = 3
+  End
+  Begin VB.CommandButton cmdYes
+    Caption = "&Yes"
+    Left = 4680
+    Top = 120
+    Width = 1215
+    Height = 375
+    TabIndex = 0
+    Default = -1  'True
+  End
+  Begin VB.CommandButton cmdNo
+    Caption = "&No"
+    Left = 4680
+    Top = 600
+    Width = 1215
+    Height = 375
+    TabIndex = 1
+    Cancel = -1  'True
+  End
+  Begin VB.Label lblPrompt
+    Left = 1110
+    Top = 150
+    Width = 3405
+    Height = 1575
+    TabIndex = 2
+  End
+  Begin VB.Image Image1
+    Picture = "frmCTBMsgBox.frx":08CA
+    Left = -360
+    Top = -120
+    Width = 1950
+    Height = 1560
+  End
+End
+
+Attribute VB_Name = "frmCTBMsgBox"
+
+
+Private Sub cmdNo_Click() '6DA9E0
+  loc_006DA9E0: push ebp
+  loc_006DA9E1: mov ebp, esp
+  loc_006DA9E3: sub esp, 0000000Ch
+  loc_006DA9E6: push 00412856h ; __vbaExceptHandler
+  loc_006DA9EB: mov eax, fs:[00000000h]
+  loc_006DA9F1: push eax
+  loc_006DA9F2: mov fs:[00000000h], esp
+  loc_006DA9F9: sub esp, 0000000Ch
+  loc_006DA9FC: push ebx
+  loc_006DA9FD: push esi
+  loc_006DA9FE: push edi
+  loc_006DA9FF: mov var_C, esp
+  loc_006DAA02: mov var_8, 0040DDE8h
+  loc_006DAA09: mov esi, Me
+  loc_006DAA0C: mov eax, esi
+  loc_006DAA0E: and eax, 00000001h
+  loc_006DAA11: mov var_4, eax
+  loc_006DAA14: and esi, FFFFFFFEh
+  loc_006DAA17: push esi
+  loc_006DAA18: mov Me, esi
+  loc_006DAA1B: mov ecx, [esi]
+  loc_006DAA1D: call [ecx+00000004h]
+  loc_006DAA20: mov edx, [esi]
+  loc_006DAA22: push esi
+  loc_006DAA23: call [edx+000002B4h]
+  loc_006DAA29: test eax, eax
+  loc_006DAA2B: fnclex
+  loc_006DAA2D: jge 006DAA41h
+  loc_006DAA2F: push 000002B4h
+  loc_006DAA34: push 004565C8h
+  loc_006DAA39: push esi
+  loc_006DAA3A: push eax
+  loc_006DAA3B: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006DAA41: mov eax, [esi]
+  loc_006DAA43: push esi
+  loc_006DAA44: call [eax+00000704h]
+  loc_006DAA4A: mov var_4, 00000000h
+  loc_006DAA51: mov eax, Me
+  loc_006DAA54: push eax
+  loc_006DAA55: mov ecx, [eax]
+  loc_006DAA57: call [ecx+00000008h]
+  loc_006DAA5A: mov eax, var_4
+  loc_006DAA5D: mov ecx, var_14
+  loc_006DAA60: pop edi
+  loc_006DAA61: pop esi
+  loc_006DAA62: mov fs:[00000000h], ecx
+  loc_006DAA69: pop ebx
+  loc_006DAA6A: mov esp, ebp
+  loc_006DAA6C: pop ebp
+  loc_006DAA6D: retn 0004h
+End Sub
+
+Private Sub cmdYes_Click() '6DAA70
+  loc_006DAA70: push ebp
+  loc_006DAA71: mov ebp, esp
+  loc_006DAA73: sub esp, 00000018h
+  loc_006DAA76: push 00412856h ; __vbaExceptHandler
+  loc_006DAA7B: mov eax, fs:[00000000h]
+  loc_006DAA81: push eax
+  loc_006DAA82: mov fs:[00000000h], esp
+  loc_006DAA89: mov eax, 0000003Ch
+  loc_006DAA8E: call 00412850h ; __vbaChkstk
+  loc_006DAA93: push ebx
+  loc_006DAA94: push esi
+  loc_006DAA95: push edi
+  loc_006DAA96: mov var_18, esp
+  loc_006DAA99: mov var_14, 0040DDF0h ; Chr(37)
+  loc_006DAAA0: mov eax, Me
+  loc_006DAAA3: and eax, 00000001h
+  loc_006DAAA6: mov var_10, eax
+  loc_006DAAA9: mov ecx, Me
+  loc_006DAAAC: and ecx, FFFFFFFEh
+  loc_006DAAAF: mov Me, ecx
+  loc_006DAAB2: mov var_C, 00000000h
+  loc_006DAAB9: mov edx, Me
+  loc_006DAABC: mov eax, [edx]
+  loc_006DAABE: mov ecx, Me
+  loc_006DAAC1: push ecx
+  loc_006DAAC2: call [eax+00000004h]
+  loc_006DAAC5: mov var_4, 00000001h
+  loc_006DAACC: mov var_4, 00000002h
+  loc_006DAAD3: push FFFFFFFFh
+  loc_006DAAD5: call [00401124h] ; __vbaOnError
+  loc_006DAADB: mov var_4, 00000003h
+  loc_006DAAE2: mov edx, Me
+  loc_006DAAE5: mov eax, [edx]
+  loc_006DAAE7: mov ecx, Me
+  loc_006DAAEA: push ecx
+  loc_006DAAEB: call [eax+00000704h]
+  loc_006DAAF1: mov var_4, 00000004h
+  loc_006DAAF8: mov edx, Me
+  loc_006DAAFB: mov eax, [edx]
+  loc_006DAAFD: mov ecx, Me
+  loc_006DAB00: push ecx
+  loc_006DAB01: call [eax+000002B4h]
+  loc_006DAB07: fnclex
+  loc_006DAB09: mov var_40, eax
+  loc_006DAB0C: cmp var_40, 00000000h
+  loc_006DAB10: jge 006DAB2Fh
+  loc_006DAB12: push 000002B4h
+  loc_006DAB17: push 004565C8h
+  loc_006DAB1C: mov edx, Me
+  loc_006DAB1F: push edx
+  loc_006DAB20: mov eax, var_40
+  loc_006DAB23: push eax
+  loc_006DAB24: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006DAB2A: mov var_58, eax
+  loc_006DAB2D: jmp 006DAB36h
+  loc_006DAB2F: mov var_58, 00000000h
+  loc_006DAB36: mov var_4, 00000005h
+  loc_006DAB3D: lea ecx, var_24
+  loc_006DAB40: push ecx
+  loc_006DAB41: push 0044946Ch ; "Search"
+  loc_006DAB46: mov edx, [0073A08Ch]
+  loc_006DAB4C: mov eax, [edx]
+  loc_006DAB4E: mov ecx, [0073A08Ch]
+  loc_006DAB54: push ecx
+  loc_006DAB55: call [eax+00000064h]
+  loc_006DAB58: fnclex
+  loc_006DAB5A: mov var_40, eax
+  loc_006DAB5D: cmp var_40, 00000000h
+  loc_006DAB61: jge 006DAB80h
+  loc_006DAB63: push 00000064h
+  loc_006DAB65: push 004419ACh
+  loc_006DAB6A: mov edx, [0073A08Ch]
+  loc_006DAB70: push edx
+  loc_006DAB71: mov eax, var_40
+  loc_006DAB74: push eax
+  loc_006DAB75: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006DAB7B: mov var_5C, eax
+  loc_006DAB7E: jmp 006DAB87h
+  loc_006DAB80: mov var_5C, 00000000h
+  loc_006DAB87: lea ecx, var_24
+  loc_006DAB8A: call [0040142Ch] ; __vbaFreeObj
+  loc_006DAB90: mov var_4, 00000006h
+  loc_006DAB97: push 0046F978h ; "C:\Program Files\Internet Explorer\IEXPLORE.EXE "
+  loc_006DAB9C: mov ecx, Me
+  loc_006DAB9F: mov edx, [ecx+00000034h]
+  loc_006DABA2: push edx
+  loc_006DABA3: call [00401098h] ; __vbaStrCat
+  loc_006DABA9: mov var_2C, eax
+  loc_006DABAC: mov var_34, 00000008h
+  loc_006DABB3: push 00000001h
+  loc_006DABB5: lea eax, var_34
+  loc_006DABB8: push eax
+  loc_006DABB9: call [00401230h] ; rtcShell
+  loc_006DABBF: fstp real8 ptr var_3C
+  loc_006DABC2: lea ecx, var_34
+  loc_006DABC5: call [00401030h] ; __vbaFreeVar
+  loc_006DABCB: mov var_10, 00000000h
+  loc_006DABD2: fwait
+  loc_006DABD3: push 006DABEEh
+  loc_006DABD8: jmp 006DABEDh
+  loc_006DABDA: lea ecx, var_24
+  loc_006DABDD: call [0040142Ch] ; __vbaFreeObj
+  loc_006DABE3: lea ecx, var_34
+  loc_006DABE6: call [00401030h] ; __vbaFreeVar
+  loc_006DABEC: ret
+  loc_006DABED: ret
+  loc_006DABEE: mov ecx, Me
+  loc_006DABF1: mov edx, [ecx]
+  loc_006DABF3: mov eax, Me
+  loc_006DABF6: push eax
+  loc_006DABF7: call [edx+00000008h]
+  loc_006DABFA: mov eax, var_10
+  loc_006DABFD: mov ecx, var_20
+  loc_006DAC00: mov fs:[00000000h], ecx
+  loc_006DAC07: pop edi
+  loc_006DAC08: pop esi
+  loc_006DAC09: pop ebx
+  loc_006DAC0A: mov esp, ebp
+  loc_006DAC0C: pop ebp
+  loc_006DAC0D: retn 0004h
+End Sub
+
+Public Sub DisplayYaSelfAndIfYesGoHere(strPrompt, strURL) '6DAC10
+  loc_006DAC10: push ebp
+  loc_006DAC11: mov ebp, esp
+  loc_006DAC13: sub esp, 00000018h
+  loc_006DAC16: push 00412856h ; __vbaExceptHandler
+  loc_006DAC1B: mov eax, fs:[00000000h]
+  loc_006DAC21: push eax
+  loc_006DAC22: mov fs:[00000000h], esp
+  loc_006DAC29: mov eax, 00000054h
+  loc_006DAC2E: call 00412850h ; __vbaChkstk
+  loc_006DAC33: push ebx
+  loc_006DAC34: push esi
+  loc_006DAC35: push edi
+  loc_006DAC36: mov var_18, esp
+  loc_006DAC39: mov var_14, 0040DE30h ; Chr(37)
+  loc_006DAC40: mov var_10, 00000000h
+  loc_006DAC47: mov var_C, 00000000h
+  loc_006DAC4E: mov eax, Me
+  loc_006DAC51: mov ecx, [eax]
+  loc_006DAC53: mov edx, Me
+  loc_006DAC56: push edx
+  loc_006DAC57: call [ecx+00000004h]
+  loc_006DAC5A: mov var_4, 00000001h
+  loc_006DAC61: mov var_4, 00000002h
+  loc_006DAC68: push FFFFFFFFh
+  loc_006DAC6A: call [00401124h] ; __vbaOnError
+  loc_006DAC70: mov var_4, 00000003h
+  loc_006DAC77: mov eax, strURL
+  loc_006DAC7A: mov edx, [eax]
+  loc_006DAC7C: mov ecx, Me
+  loc_006DAC7F: add ecx, 00000034h
+  loc_006DAC82: call [00401310h] ; __vbaStrCopy
+  loc_006DAC88: mov var_4, 00000004h
+  loc_006DAC8F: mov ecx, Me
+  loc_006DAC92: mov edx, [ecx]
+  loc_006DAC94: mov eax, Me
+  loc_006DAC97: push eax
+  loc_006DAC98: call [edx+00000308h]
+  loc_006DAC9E: push eax
+  loc_006DAC9F: lea ecx, var_24
+  loc_006DACA2: push ecx
+  loc_006DACA3: call [00401128h] ; __vbaObjSet
+  loc_006DACA9: mov var_4C, eax
+  loc_006DACAC: mov edx, strPrompt
+  loc_006DACAF: mov eax, [edx]
+  loc_006DACB1: push eax
+  loc_006DACB2: mov ecx, var_4C
+  loc_006DACB5: mov edx, [ecx]
+  loc_006DACB7: mov eax, var_4C
+  loc_006DACBA: push eax
+  loc_006DACBB: call [edx+00000054h]
+  loc_006DACBE: fnclex
+  loc_006DACC0: mov var_50, eax
+  loc_006DACC3: cmp var_50, 00000000h
+  loc_006DACC7: jge 006DACE3h
+  loc_006DACC9: push 00000054h
+  loc_006DACCB: push 00441988h
+  loc_006DACD0: mov ecx, var_4C
+  loc_006DACD3: push ecx
+  loc_006DACD4: mov edx, var_50
+  loc_006DACD7: push edx
+  loc_006DACD8: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006DACDE: mov var_68, eax
+  loc_006DACE1: jmp 006DACEAh
+  loc_006DACE3: mov var_68, 00000000h
+  loc_006DACEA: lea ecx, var_24
+  loc_006DACED: call [0040142Ch] ; __vbaFreeObj
+  loc_006DACF3: mov var_4, 00000005h
+  loc_006DACFA: mov var_3C, 80020004h
+  loc_006DAD01: mov var_44, 0000000Ah
+  loc_006DAD08: mov var_2C, 80020004h
+  loc_006DAD0F: mov var_34, 0000000Ah
+  loc_006DAD16: mov eax, 00000010h
+  loc_006DAD1B: call 00412850h ; __vbaChkstk
+  loc_006DAD20: mov eax, esp
+  loc_006DAD22: mov ecx, var_44
+  loc_006DAD25: mov [eax], ecx
+  loc_006DAD27: mov edx, var_40
+  loc_006DAD2A: mov [eax+00000004h], edx
+  loc_006DAD2D: mov ecx, var_3C
+  loc_006DAD30: mov [eax+00000008h], ecx
+  loc_006DAD33: mov edx, var_38
+  loc_006DAD36: mov [eax+0000000Ch], edx
+  loc_006DAD39: mov eax, 00000010h
+  loc_006DAD3E: call 00412850h ; __vbaChkstk
+  loc_006DAD43: mov eax, esp
+  loc_006DAD45: mov ecx, var_34
+  loc_006DAD48: mov [eax], ecx
+  loc_006DAD4A: mov edx, var_30
+  loc_006DAD4D: mov [eax+00000004h], edx
+  loc_006DAD50: mov ecx, var_2C
+  loc_006DAD53: mov [eax+00000008h], ecx
+  loc_006DAD56: mov edx, var_28
+  loc_006DAD59: mov [eax+0000000Ch], edx
+  loc_006DAD5C: mov eax, Me
+  loc_006DAD5F: mov ecx, [eax]
+  loc_006DAD61: mov edx, Me
+  loc_006DAD64: push edx
+  loc_006DAD65: call [ecx+000002B0h]
+  loc_006DAD6B: fnclex
+  loc_006DAD6D: mov var_4C, eax
+  loc_006DAD70: cmp var_4C, 00000000h
+  loc_006DAD74: jge 006DAD93h
+  loc_006DAD76: push 000002B0h
+  loc_006DAD7B: push 004565C8h
+  loc_006DAD80: mov eax, Me
+  loc_006DAD83: push eax
+  loc_006DAD84: mov ecx, var_4C
+  loc_006DAD87: push ecx
+  loc_006DAD88: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006DAD8E: mov var_6C, eax
+  loc_006DAD91: jmp 006DAD9Ah
+  loc_006DAD93: mov var_6C, 00000000h
+  loc_006DAD9A: mov var_4, 00000006h
+  loc_006DADA1: lea edx, var_48
+  loc_006DADA4: push edx
+  loc_006DADA5: mov eax, Me
+  loc_006DADA8: mov ecx, [eax]
+  loc_006DADAA: mov edx, Me
+  loc_006DADAD: push edx
+  loc_006DADAE: call [ecx+00000058h]
+  loc_006DADB1: fnclex
+  loc_006DADB3: mov var_4C, eax
+  loc_006DADB6: cmp var_4C, 00000000h
+  loc_006DADBA: jge 006DADD6h
+  loc_006DADBC: push 00000058h
+  loc_006DADBE: push 004565C8h
+  loc_006DADC3: mov eax, Me
+  loc_006DADC6: push eax
+  loc_006DADC7: mov ecx, var_4C
+  loc_006DADCA: push ecx
+  loc_006DADCB: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006DADD1: mov var_70, eax
+  loc_006DADD4: jmp 006DADDDh
+  loc_006DADD6: mov var_70, 00000000h
+  loc_006DADDD: mov edx, var_48
+  loc_006DADE0: push edx
+  loc_006DADE1: AllowSetForegroundWindow(%x1v)
+  loc_006DADE6: call [004010BCh] ; __vbaSetSystemError
+  loc_006DADEC: mov var_4, 00000007h
+  loc_006DADF3: mov eax, Me
+  loc_006DADF6: mov ecx, [eax]
+  loc_006DADF8: mov edx, Me
+  loc_006DADFB: push edx
+  loc_006DADFC: call [ecx+00000300h]
+  loc_006DAE02: push eax
+  loc_006DAE03: lea eax, var_24
+  loc_006DAE06: push eax
+  loc_006DAE07: call [00401128h] ; __vbaObjSet
+  loc_006DAE0D: mov var_4C, eax
+  loc_006DAE10: mov ecx, var_4C
+  loc_006DAE13: mov edx, [ecx]
+  loc_006DAE15: mov eax, var_4C
+  loc_006DAE18: push eax
+  loc_006DAE19: call [edx+000001A4h]
+  loc_006DAE1F: fnclex
+  loc_006DAE21: mov var_50, eax
+  loc_006DAE24: cmp var_50, 00000000h
+  loc_006DAE28: jge 006DAE47h
+  loc_006DAE2A: push 000001A4h
+  loc_006DAE2F: push 004431B8h
+  loc_006DAE34: mov ecx, var_4C
+  loc_006DAE37: push ecx
+  loc_006DAE38: mov edx, var_50
+  loc_006DAE3B: push edx
+  loc_006DAE3C: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006DAE42: mov var_74, eax
+  loc_006DAE45: jmp 006DAE4Eh
+  loc_006DAE47: mov var_74, 00000000h
+  loc_006DAE4E: lea ecx, var_24
+  loc_006DAE51: call [0040142Ch] ; __vbaFreeObj
+  loc_006DAE57: push 006DAE69h
+  loc_006DAE5C: jmp 006DAE68h
+  loc_006DAE5E: lea ecx, var_24
+  loc_006DAE61: call [0040142Ch] ; __vbaFreeObj
+  loc_006DAE67: ret
+  loc_006DAE68: ret
+  loc_006DAE69: mov eax, Me
+  loc_006DAE6C: mov ecx, [eax]
+  loc_006DAE6E: mov edx, Me
+  loc_006DAE71: push edx
+  loc_006DAE72: call [ecx+00000008h]
+  loc_006DAE75: mov eax, var_10
+  loc_006DAE78: mov ecx, var_20
+  loc_006DAE7B: mov fs:[00000000h], ecx
+  loc_006DAE82: pop edi
+  loc_006DAE83: pop esi
+  loc_006DAE84: pop ebx
+  loc_006DAE85: mov esp, ebp
+  loc_006DAE87: pop ebp
+  loc_006DAE88: retn 000Ch
+End Sub
+
+Private Sub Proc_45_3_6DAE90
+  loc_006DAE90: push ebp
+  loc_006DAE91: mov ebp, esp
+  loc_006DAE93: sub esp, 00000008h
+  loc_006DAE96: push 00412856h ; __vbaExceptHandler
+  loc_006DAE9B: mov eax, fs:[00000000h]
+  loc_006DAEA1: push eax
+  loc_006DAEA2: mov fs:[00000000h], esp
+  loc_006DAEA9: sub esp, 00000020h
+  loc_006DAEAC: push ebx
+  loc_006DAEAD: push esi
+  loc_006DAEAE: push edi
+  loc_006DAEAF: mov var_8, esp
+  loc_006DAEB2: mov var_4, 0040DE70h
+  loc_006DAEB9: mov eax, Me
+  loc_006DAEBC: xor ebx, ebx
+  loc_006DAEBE: push eax
+  loc_006DAEBF: mov var_14, ebx
+  loc_006DAEC2: mov ecx, [eax]
+  loc_006DAEC4: mov var_18, ebx
+  loc_006DAEC7: mov var_1C, ebx
+  loc_006DAECA: call [ecx+000002FCh]
+  loc_006DAED0: lea edx, var_18
+  loc_006DAED3: push eax
+  loc_006DAED4: push edx
+  loc_006DAED5: call [00401128h] ; __vbaObjSet
+  loc_006DAEDB: mov esi, eax
+  loc_006DAEDD: lea ecx, var_1C
+  loc_006DAEE0: push ecx
+  loc_006DAEE1: push esi
+  loc_006DAEE2: mov eax, [esi]
+  loc_006DAEE4: call [eax+000000E0h]
+  loc_006DAEEA: cmp eax, ebx
+  loc_006DAEEC: fnclex
+  loc_006DAEEE: jge 006DAF06h
+  loc_006DAEF0: mov edi, [004010CCh] ; __vbaHresultCheckObj
+  loc_006DAEF6: push 000000E0h
+  loc_006DAEFB: push 00446678h
+  loc_006DAF00: push esi
+  loc_006DAF01: push eax
+  loc_006DAF02: call edi
+  loc_006DAF04: jmp 006DAF0Ch
+  loc_006DAF06: mov edi, [004010CCh] ; __vbaHresultCheckObj
+  loc_006DAF0C: mov si, var_1C
+  loc_006DAF10: lea ecx, var_18
+  loc_006DAF13: call [0040142Ch] ; __vbaFreeObj
+  loc_006DAF19: mov eax, [0073C818h]
+  loc_006DAF1E: cmp si, bx
+  loc_006DAF21: jz 006DAF7Fh
+  loc_006DAF23: cmp eax, ebx
+  loc_006DAF25: jnz 006DAF37h
+  loc_006DAF27: push 0073C818h
+  loc_006DAF2C: push 00441F00h
+  loc_006DAF31: call [004012FCh] ; __vbaNew2
+  loc_006DAF37: mov esi, [0073C818h]
+  loc_006DAF3D: lea eax, var_18
+  loc_006DAF40: push eax
+  loc_006DAF41: push esi
+  loc_006DAF42: mov edx, [esi]
+  loc_006DAF44: call [edx+00000014h]
+  loc_006DAF47: cmp eax, ebx
+  loc_006DAF49: fnclex
+  loc_006DAF4B: jge 006DAF58h
+  loc_006DAF4D: push 00000014h
+  loc_006DAF4F: push 00441EF0h
+  loc_006DAF54: push esi
+  loc_006DAF55: push eax
+  loc_006DAF56: call edi
+  loc_006DAF58: mov eax, var_18
+  loc_006DAF5B: lea edx, var_14
+  loc_006DAF5E: push edx
+  loc_006DAF5F: push eax
+  loc_006DAF60: mov ecx, [eax]
+  loc_006DAF62: mov esi, eax
+  loc_006DAF64: call [ecx+00000060h]
+  loc_006DAF67: cmp eax, ebx
+  loc_006DAF69: fnclex
+  loc_006DAF6B: jge 006DAF78h
+  loc_006DAF6D: push 00000060h
+  loc_006DAF6F: push 004437B4h
+  loc_006DAF74: push esi
+  loc_006DAF75: push eax
+  loc_006DAF76: call edi
+  loc_006DAF78: push 00443ED0h ; "TRUE"
+  loc_006DAF7D: jmp 006DAFD9h
+  loc_006DAF7F: cmp eax, ebx
+  loc_006DAF81: jnz 006DAF93h
+  loc_006DAF83: push 0073C818h
+  loc_006DAF88: push 00441F00h
+  loc_006DAF8D: call [004012FCh] ; __vbaNew2
+  loc_006DAF93: mov esi, [0073C818h]
+  loc_006DAF99: lea edx, var_18
+  loc_006DAF9C: push edx
+  loc_006DAF9D: push esi
+  loc_006DAF9E: mov ecx, [esi]
+  loc_006DAFA0: call [ecx+00000014h]
+  loc_006DAFA3: cmp eax, ebx
+  loc_006DAFA5: fnclex
+  loc_006DAFA7: jge 006DAFB4h
+  loc_006DAFA9: push 00000014h
+  loc_006DAFAB: push 00441EF0h
+  loc_006DAFB0: push esi
+  loc_006DAFB1: push eax
+  loc_006DAFB2: call edi
+  loc_006DAFB4: mov eax, var_18
+  loc_006DAFB7: lea edx, var_14
+  loc_006DAFBA: push edx
+  loc_006DAFBB: push eax
+  loc_006DAFBC: mov ecx, [eax]
+  loc_006DAFBE: mov esi, eax
+  loc_006DAFC0: call [ecx+00000060h]
+  loc_006DAFC3: cmp eax, ebx
+  loc_006DAFC5: fnclex
+  loc_006DAFC7: jge 006DAFD4h
+  loc_006DAFC9: push 00000060h
+  loc_006DAFCB: push 004437B4h
+  loc_006DAFD0: push esi
+  loc_006DAFD1: push eax
+  loc_006DAFD2: call edi
+  loc_006DAFD4: push 00446EC0h ; "FALSE"
+  loc_006DAFD9: mov eax, var_14
+  loc_006DAFDC: push 0044C57Ch ; "Disabled"
+  loc_006DAFE1: push 0044B54Ch ; "CTB"
+  loc_006DAFE6: push eax
+  loc_006DAFE7: call [00401010h] ; rtcSaveSetting
+  loc_006DAFED: lea ecx, var_14
+  loc_006DAFF0: call [00401430h] ; __vbaFreeStr
+  loc_006DAFF6: lea ecx, var_18
+  loc_006DAFF9: call [0040142Ch] ; __vbaFreeObj
+  loc_006DAFFF: push 006DB01Ah
+  loc_006DB004: jmp 006DB019h
+  loc_006DB006: lea ecx, var_14
+  loc_006DB009: call [00401430h] ; __vbaFreeStr
+  loc_006DB00F: lea ecx, var_18
+  loc_006DB012: call [0040142Ch] ; __vbaFreeObj
+  loc_006DB018: ret
+  loc_006DB019: ret
+  loc_006DB01A: mov ecx, var_10
+  loc_006DB01D: pop edi
+  loc_006DB01E: pop esi
+  loc_006DB01F: xor eax, eax
+  loc_006DB021: mov fs:[00000000h], ecx
+  loc_006DB028: pop ebx
+  loc_006DB029: mov esp, ebp
+  loc_006DB02B: pop ebp
+  loc_006DB02C: retn 0004h
+End Sub

Src Code/frmCalendarReminder.frm

@@ -0,0 +1,128 @@
+VERSION 5.00
+Begin VB.Form frmCalendarReminder
+  Caption = "BonziBUDDY Scheduled Reminder! "
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 1 'Fixed Single
+  Icon = "frmCalendarReminder.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  ClientLeft = 45
+  ClientTop = 330
+  ClientWidth = 6165
+  ClientHeight = 1875
+  LockControls = -1  'True
+  StartUpPosition = 3 'Windows Default
+  Begin VB.CommandButton cmdYes
+    Caption = "&Dismiss"
+    Left = 2460
+    Top = 1410
+    Width = 1215
+    Height = 375
+    TabIndex = 0
+    Default = -1  'True
+  End
+  Begin VB.Frame fraMain
+    Left = 780
+    Top = 120
+    Width = 5175
+    Height = 1125
+    TabIndex = 1
+    Begin VB.Label lblReminder
+      BackColor = &H8000000E&
+      Left = 120
+      Top = 240
+      Width = 4935
+      Height = 735
+      TabIndex = 2
+      BorderStyle = 1 'Fixed Single
+      WordWrap = -1  'True
+    End
+  End
+  Begin VB.Image Image1
+    Picture = "frmCalendarReminder.frx":0742
+    Left = 150
+    Top = 300
+    Width = 480
+    Height = 480
+  End
+End
+
+Attribute VB_Name = "frmCalendarReminder"
+
+
+Private Sub cmdYes_Click() '6DB030
+  loc_006DB030: push ebp
+  loc_006DB031: mov ebp, esp
+  loc_006DB033: sub esp, 0000000Ch
+  loc_006DB036: push 00412856h ; __vbaExceptHandler
+  loc_006DB03B: mov eax, fs:[00000000h]
+  loc_006DB041: push eax
+  loc_006DB042: mov fs:[00000000h], esp
+  loc_006DB049: sub esp, 00000018h
+  loc_006DB04C: push ebx
+  loc_006DB04D: push esi
+  loc_006DB04E: push edi
+  loc_006DB04F: mov var_C, esp
+  loc_006DB052: mov var_8, 0040DE80h
+  loc_006DB059: mov edi, Me
+  loc_006DB05C: mov eax, edi
+  loc_006DB05E: and eax, 00000001h
+  loc_006DB061: mov var_4, eax
+  loc_006DB064: and edi, FFFFFFFEh
+  loc_006DB067: push edi
+  loc_006DB068: mov Me, edi
+  loc_006DB06B: mov ecx, [edi]
+  loc_006DB06D: call [ecx+00000004h]
+  loc_006DB070: mov eax, [0073C818h]
+  loc_006DB075: xor ebx, ebx
+  loc_006DB077: cmp eax, ebx
+  loc_006DB079: mov var_18, ebx
+  loc_006DB07C: jnz 006DB08Eh
+  loc_006DB07E: push 0073C818h
+  loc_006DB083: push 00441F00h
+  loc_006DB088: call [004012FCh] ; __vbaNew2
+  loc_006DB08E: mov esi, [0073C818h]
+  loc_006DB094: lea eax, var_18
+  loc_006DB097: push edi
+  loc_006DB098: push eax
+  loc_006DB099: mov edx, [esi]
+  loc_006DB09B: mov var_2C, edx
+  loc_006DB09E: call [00401130h] ; __vbaObjSetAddref
+  loc_006DB0A4: mov ecx, var_2C
+  loc_006DB0A7: push eax
+  loc_006DB0A8: push esi
+  loc_006DB0A9: call [ecx+00000010h]
+  loc_006DB0AC: cmp eax, ebx
+  loc_006DB0AE: fnclex
+  loc_006DB0B0: jge 006DB0C1h
+  loc_006DB0B2: push 00000010h
+  loc_006DB0B4: push 00441EF0h
+  loc_006DB0B9: push esi
+  loc_006DB0BA: push eax
+  loc_006DB0BB: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006DB0C1: lea ecx, var_18
+  loc_006DB0C4: call [0040142Ch] ; __vbaFreeObj
+  loc_006DB0CA: mov var_4, ebx
+  loc_006DB0CD: push 006DB0DFh
+  loc_006DB0D2: jmp 006DB0DEh
+  loc_006DB0D4: lea ecx, var_18
+  loc_006DB0D7: call [0040142Ch] ; __vbaFreeObj
+  loc_006DB0DD: ret
+  loc_006DB0DE: ret
+  loc_006DB0DF: mov eax, Me
+  loc_006DB0E2: push eax
+  loc_006DB0E3: mov edx, [eax]
+  loc_006DB0E5: call [edx+00000008h]
+  loc_006DB0E8: mov eax, var_4
+  loc_006DB0EB: mov ecx, var_14
+  loc_006DB0EE: pop edi
+  loc_006DB0EF: pop esi
+  loc_006DB0F0: mov fs:[00000000h], ecx
+  loc_006DB0F7: pop ebx
+  loc_006DB0F8: mov esp, ebp
+  loc_006DB0FA: pop ebp
+  loc_006DB0FB: retn 0004h
+End Sub

Src Code/frmConnectionType.frm

@@ -0,0 +1,735 @@
+VERSION 5.00
+Begin VB.Form frmConnectionType
+  Caption = "How should we connect to the Internet?"
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 1 'Fixed Single
+  Icon = "frmConnectionType.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  ClientLeft = 45
+  ClientTop = 330
+  ClientWidth = 4680
+  ClientHeight = 3735
+  LockControls = -1  'True
+  StartUpPosition = 2 'CenterScreen
+  Begin VB.CommandButton cmdOK
+    Caption = "&Done"
+    Left = 1740
+    Top = 3150
+    Width = 1185
+    Height = 405
+    TabIndex = 1
+    Default = -1  'True
+  End
+  Begin VB.Frame fraConnectType
+    Caption = "Select Our Internet Connection Type:"
+    Left = 240
+    Top = 1110
+    Width = 4155
+    Height = 1815
+    TabIndex = 0
+    Begin VB.OptionButton optLAN
+      Caption = "Always connected to the Internet (LAN, T1, ISDN, Cable Modem, etc.)"
+      Left = 330
+      Top = 1170
+      Width = 3585
+      Height = 525
+      TabIndex = 4
+    End
+    Begin VB.OptionButton optAOL
+      Caption = "Using America Online (AOL)"
+      Left = 330
+      Top = 810
+      Width = 3645
+      Height = 285
+      TabIndex = 3
+    End
+    Begin VB.OptionButton optModem
+      Caption = "Using a dial-up modem"
+      Left = 330
+      Top = 390
+      Width = 3345
+      Height = 225
+      TabIndex = 2
+      Value = 255
+    End
+  End
+  Begin VB.Label lblDesc
+    Caption = "frmConnectionType.frx":0442
+    Left = 240
+    Top = 150
+    Width = 4215
+    Height = 825
+    TabIndex = 5
+  End
+End
+
+Attribute VB_Name = "frmConnectionType"
+
+
+Private Sub cmdOK_Click() '6C3E20
+  loc_006C3E20: push ebp
+  loc_006C3E21: mov ebp, esp
+  loc_006C3E23: sub esp, 00000018h
+  loc_006C3E26: push 00412856h ; __vbaExceptHandler
+  loc_006C3E2B: mov eax, fs:[00000000h]
+  loc_006C3E31: push eax
+  loc_006C3E32: mov fs:[00000000h], esp
+  loc_006C3E39: mov eax, 00000064h
+  loc_006C3E3E: call 00412850h ; __vbaChkstk
+  loc_006C3E43: push ebx
+  loc_006C3E44: push esi
+  loc_006C3E45: push edi
+  loc_006C3E46: mov var_18, esp
+  loc_006C3E49: mov var_14, 0040CFB8h ; Chr(37)
+  loc_006C3E50: mov eax, Me
+  loc_006C3E53: and eax, 00000001h
+  loc_006C3E56: mov var_10, eax
+  loc_006C3E59: mov ecx, Me
+  loc_006C3E5C: and ecx, FFFFFFFEh
+  loc_006C3E5F: mov Me, ecx
+  loc_006C3E62: mov var_C, 00000000h
+  loc_006C3E69: mov edx, Me
+  loc_006C3E6C: mov eax, [edx]
+  loc_006C3E6E: mov ecx, Me
+  loc_006C3E71: push ecx
+  loc_006C3E72: call [eax+00000004h]
+  loc_006C3E75: mov var_4, 00000001h
+  loc_006C3E7C: mov var_4, 00000002h
+  loc_006C3E83: push FFFFFFFFh
+  loc_006C3E85: call [00401124h] ; __vbaOnError
+  loc_006C3E8B: mov var_4, 00000003h
+  loc_006C3E92: mov edx, Me
+  loc_006C3E95: mov eax, [edx]
+  loc_006C3E97: mov ecx, Me
+  loc_006C3E9A: push ecx
+  loc_006C3E9B: call [eax+0000030Ch]
+  loc_006C3EA1: mov var_30, eax
+  loc_006C3EA4: mov var_38, 00000009h
+  loc_006C3EAB: lea edx, var_38
+  loc_006C3EAE: push edx
+  loc_006C3EAF: call [00401164h] ; __vbaBoolVarNull
+  loc_006C3EB5: mov var_4C, ax
+  loc_006C3EB9: lea ecx, var_38
+  loc_006C3EBC: call [00401030h] ; __vbaFreeVar
+  loc_006C3EC2: movsx eax, var_4C
+  loc_006C3EC6: test eax, eax
+  loc_006C3EC8: jz 006C3EF0h
+  loc_006C3ECA: mov var_4, 00000004h
+  loc_006C3ED1: push 004519E8h ; "Modem"
+  loc_006C3ED6: push 00448C4Ch ; "ConnectionType"
+  loc_006C3EDB: push 0044317Ch ; "UserInfo"
+  loc_006C3EE0: push 0043B010h ; "BONZIBUDDY"
+  loc_006C3EE5: call [00401010h] ; rtcSaveSetting
+  loc_006C3EEB: jmp 006C3FB2h
+  loc_006C3EF0: mov var_4, 00000005h
+  loc_006C3EF7: mov ecx, Me
+  loc_006C3EFA: mov edx, [ecx]
+  loc_006C3EFC: mov eax, Me
+  loc_006C3EFF: push eax
+  loc_006C3F00: call [edx+00000308h]
+  loc_006C3F06: mov var_30, eax
+  loc_006C3F09: mov var_38, 00000009h
+  loc_006C3F10: lea ecx, var_38
+  loc_006C3F13: push ecx
+  loc_006C3F14: call [00401164h] ; __vbaBoolVarNull
+  loc_006C3F1A: mov var_4C, ax
+  loc_006C3F1E: lea ecx, var_38
+  loc_006C3F21: call [00401030h] ; __vbaFreeVar
+  loc_006C3F27: movsx edx, var_4C
+  loc_006C3F2B: test edx, edx
+  loc_006C3F2D: jz 006C3F52h
+  loc_006C3F2F: mov var_4, 00000006h
+  loc_006C3F36: push 00448C70h ; "AOL"
+  loc_006C3F3B: push 00448C4Ch ; "ConnectionType"
+  loc_006C3F40: push 0044317Ch ; "UserInfo"
+  loc_006C3F45: push 0043B010h ; "BONZIBUDDY"
+  loc_006C3F4A: call [00401010h] ; rtcSaveSetting
+  loc_006C3F50: jmp 006C3FB2h
+  loc_006C3F52: mov var_4, 00000007h
+  loc_006C3F59: mov eax, Me
+  loc_006C3F5C: mov ecx, [eax]
+  loc_006C3F5E: mov edx, Me
+  loc_006C3F61: push edx
+  loc_006C3F62: call [ecx+00000304h]
+  loc_006C3F68: mov var_30, eax
+  loc_006C3F6B: mov var_38, 00000009h
+  loc_006C3F72: lea eax, var_38
+  loc_006C3F75: push eax
+  loc_006C3F76: call [00401164h] ; __vbaBoolVarNull
+  loc_006C3F7C: mov var_4C, ax
+  loc_006C3F80: lea ecx, var_38
+  loc_006C3F83: call [00401030h] ; __vbaFreeVar
+  loc_006C3F89: movsx ecx, var_4C
+  loc_006C3F8D: test ecx, ecx
+  loc_006C3F8F: jz 006C3FB2h
+  loc_006C3F91: mov var_4, 00000008h
+  loc_006C3F98: push 004519F8h ; "LAN"
+  loc_006C3F9D: push 00448C4Ch ; "ConnectionType"
+  loc_006C3FA2: push 0044317Ch ; "UserInfo"
+  loc_006C3FA7: push 0043B010h ; "BONZIBUDDY"
+  loc_006C3FAC: call [00401010h] ; rtcSaveSetting
+  loc_006C3FB2: mov var_4, 0000000Ah
+  loc_006C3FB9: mov edx, Me
+  loc_006C3FBC: mov eax, [edx]
+  loc_006C3FBE: mov ecx, Me
+  loc_006C3FC1: push ecx
+  loc_006C3FC2: call [eax+0000030Ch]
+  loc_006C3FC8: mov var_30, eax
+  loc_006C3FCB: mov var_38, 00000009h
+  loc_006C3FD2: lea edx, var_38
+  loc_006C3FD5: push edx
+  loc_006C3FD6: call [00401164h] ; __vbaBoolVarNull
+  loc_006C3FDC: mov var_4C, ax
+  loc_006C3FE0: lea ecx, var_38
+  loc_006C3FE3: call [00401030h] ; __vbaFreeVar
+  loc_006C3FE9: movsx eax, var_4C
+  loc_006C3FED: test eax, eax
+  loc_006C3FEF: jz 006C4030h
+  loc_006C3FF1: mov var_4, 0000000Bh
+  loc_006C3FF8: cmp [0073A254h], 00000000h
+  loc_006C3FFF: jnz 006C401Ah
+  loc_006C4001: push 0073A254h
+  loc_006C4006: push 00431838h
+  loc_006C400B: call [004012FCh] ; __vbaNew2
+  loc_006C4011: mov var_68, 0073A254h
+  loc_006C4018: jmp 006C4021h
+  loc_006C401A: mov var_68, 0073A254h
+  loc_006C4021: push FFFFFFFFh
+  loc_006C4023: mov ecx, var_68
+  loc_006C4026: mov edx, [ecx]
+  loc_006C4028: push edx
+  loc_006C4029: call 006A8030h
+  loc_006C402E: jmp 006C406Dh
+  loc_006C4030: mov var_4, 0000000Dh
+  loc_006C4037: cmp [0073A254h], 00000000h
+  loc_006C403E: jnz 006C4059h
+  loc_006C4040: push 0073A254h
+  loc_006C4045: push 00431838h
+  loc_006C404A: call [004012FCh] ; __vbaNew2
+  loc_006C4050: mov var_6C, 0073A254h
+  loc_006C4057: jmp 006C4060h
+  loc_006C4059: mov var_6C, 0073A254h
+  loc_006C4060: push 00000000h
+  loc_006C4062: mov eax, var_6C
+  loc_006C4065: mov ecx, [eax]
+  loc_006C4067: push ecx
+  loc_006C4068: call 006A8030h
+  loc_006C406D: mov var_4, 0000000Fh
+  loc_006C4074: cmp [0073A254h], 00000000h
+  loc_006C407B: jnz 006C4096h
+  loc_006C407D: push 0073A254h
+  loc_006C4082: push 00431838h
+  loc_006C4087: call [004012FCh] ; __vbaNew2
+  loc_006C408D: mov var_70, 0073A254h
+  loc_006C4094: jmp 006C409Dh
+  loc_006C4096: mov var_70, 0073A254h
+  loc_006C409D: mov edx, var_70
+  loc_006C40A0: mov eax, [edx]
+  loc_006C40A2: push eax
+  loc_006C40A3: call 006A8890h
+  loc_006C40A8: mov var_4, 00000010h
+  loc_006C40AF: cmp [0073A254h], 00000000h
+  loc_006C40B6: jnz 006C40D1h
+  loc_006C40B8: push 0073A254h
+  loc_006C40BD: push 00431838h
+  loc_006C40C2: call [004012FCh] ; __vbaNew2
+  loc_006C40C8: mov var_74, 0073A254h
+  loc_006C40CF: jmp 006C40D8h
+  loc_006C40D1: mov var_74, 0073A254h
+  loc_006C40D8: mov ecx, var_74
+  loc_006C40DB: mov edx, [ecx]
+  loc_006C40DD: push edx
+  loc_006C40DE: call 006A8D20h
+  loc_006C40E3: mov var_4, 00000011h
+  loc_006C40EA: lea eax, var_28
+  loc_006C40ED: push eax
+  loc_006C40EE: push 004519CCh ; "Acknowledge"
+  loc_006C40F3: mov ecx, [0073A08Ch]
+  loc_006C40F9: mov edx, [ecx]
+  loc_006C40FB: mov eax, [0073A08Ch]
+  loc_006C4100: push eax
+  loc_006C4101: call [edx+00000064h]
+  loc_006C4104: fnclex
+  loc_006C4106: mov var_4C, eax
+  loc_006C4109: cmp var_4C, 00000000h
+  loc_006C410D: jge 006C412Ch
+  loc_006C410F: push 00000064h
+  loc_006C4111: push 004419ACh
+  loc_006C4116: mov ecx, [0073A08Ch]
+  loc_006C411C: push ecx
+  loc_006C411D: mov edx, var_4C
+  loc_006C4120: push edx
+  loc_006C4121: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006C4127: mov var_78, eax
+  loc_006C412A: jmp 006C4133h
+  loc_006C412C: mov var_78, 00000000h
+  loc_006C4133: lea ecx, var_28
+  loc_006C4136: call [0040142Ch] ; __vbaFreeObj
+  loc_006C413C: mov var_4, 00000012h
+  loc_006C4143: mov var_40, 80020004h
+  loc_006C414A: mov var_48, 0000000Ah
+  loc_006C4151: push 0046D314h ; "Thanks "
+  loc_006C4156: mov eax, [0073A040h]
+  loc_006C415B: push eax
+  loc_006C415C: call [00401098h] ; __vbaStrCat
+  loc_006C4162: mov edx, eax
+  loc_006C4164: lea ecx, var_24
+  loc_006C4167: call [004013C0h] ; __vbaStrMove
+  loc_006C416D: push eax
+  loc_006C416E: push 00442684h
+  loc_006C4173: call [00401098h] ; __vbaStrCat
+  loc_006C4179: mov var_30, eax
+  loc_006C417C: mov var_38, 00000008h
+  loc_006C4183: lea ecx, var_28
+  loc_006C4186: push ecx
+  loc_006C4187: mov eax, 00000010h
+  loc_006C418C: call 00412850h ; __vbaChkstk
+  loc_006C4191: mov edx, esp
+  loc_006C4193: mov eax, var_48
+  loc_006C4196: mov [edx], eax
+  loc_006C4198: mov ecx, var_44
+  loc_006C419B: mov [edx+00000004h], ecx
+  loc_006C419E: mov eax, var_40
+  loc_006C41A1: mov [edx+00000008h], eax
+  loc_006C41A4: mov ecx, var_3C
+  loc_006C41A7: mov [edx+0000000Ch], ecx
+  loc_006C41AA: mov eax, 00000010h
+  loc_006C41AF: call 00412850h ; __vbaChkstk
+  loc_006C41B4: mov edx, esp
+  loc_006C41B6: mov eax, var_38
+  loc_006C41B9: mov [edx], eax
+  loc_006C41BB: mov ecx, var_34
+  loc_006C41BE: mov [edx+00000004h], ecx
+  loc_006C41C1: mov eax, var_30
+  loc_006C41C4: mov [edx+00000008h], eax
+  loc_006C41C7: mov ecx, var_2C
+  loc_006C41CA: mov [edx+0000000Ch], ecx
+  loc_006C41CD: mov edx, [0073A08Ch]
+  loc_006C41D3: mov eax, [edx]
+  loc_006C41D5: mov ecx, [0073A08Ch]
+  loc_006C41DB: push ecx
+  loc_006C41DC: call [eax+00000078h]
+  loc_006C41DF: fnclex
+  loc_006C41E1: mov var_4C, eax
+  loc_006C41E4: cmp var_4C, 00000000h
+  loc_006C41E8: jge 006C4207h
+  loc_006C41EA: push 00000078h
+  loc_006C41EC: push 004419ACh
+  loc_006C41F1: mov edx, [0073A08Ch]
+  loc_006C41F7: push edx
+  loc_006C41F8: mov eax, var_4C
+  loc_006C41FB: push eax
+  loc_006C41FC: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006C4202: mov var_7C, eax
+  loc_006C4205: jmp 006C420Eh
+  loc_006C4207: mov var_7C, 00000000h
+  loc_006C420E: lea ecx, var_24
+  loc_006C4211: call [00401430h] ; __vbaFreeStr
+  loc_006C4217: lea ecx, var_28
+  loc_006C421A: call [0040142Ch] ; __vbaFreeObj
+  loc_006C4220: lea ecx, var_38
+  loc_006C4223: call [00401030h] ; __vbaFreeVar
+  loc_006C4229: mov var_4, 00000013h
+  loc_006C4230: cmp [0073C818h], 00000000h
+  loc_006C4237: jnz 006C4252h
+  loc_006C4239: push 0073C818h
+  loc_006C423E: push 00441F00h
+  loc_006C4243: call [004012FCh] ; __vbaNew2
+  loc_006C4249: mov var_80, 0073C818h
+  loc_006C4250: jmp 006C4259h
+  loc_006C4252: mov var_80, 0073C818h
+  loc_006C4259: mov ecx, var_80
+  loc_006C425C: mov edx, [ecx]
+  loc_006C425E: mov var_4C, edx
+  loc_006C4261: mov eax, Me
+  loc_006C4264: push eax
+  loc_006C4265: lea ecx, var_28
+  loc_006C4268: push ecx
+  loc_006C4269: call [00401130h] ; __vbaObjSetAddref
+  loc_006C426F: push eax
+  loc_006C4270: mov edx, var_4C
+  loc_006C4273: mov eax, [edx]
+  loc_006C4275: mov ecx, var_4C
+  loc_006C4278: push ecx
+  loc_006C4279: call [eax+00000010h]
+  loc_006C427C: fnclex
+  loc_006C427E: mov var_50, eax
+  loc_006C4281: cmp var_50, 00000000h
+  loc_006C4285: jge 006C42A4h
+  loc_006C4287: push 00000010h
+  loc_006C4289: push 00441EF0h
+  loc_006C428E: mov edx, var_4C
+  loc_006C4291: push edx
+  loc_006C4292: mov eax, var_50
+  loc_006C4295: push eax
+  loc_006C4296: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006C429C: mov var_84, eax
+  loc_006C42A2: jmp 006C42AEh
+  loc_006C42A4: mov var_84, 00000000h
+  loc_006C42AE: lea ecx, var_28
+  loc_006C42B1: call [0040142Ch] ; __vbaFreeObj
+  loc_006C42B7: mov var_10, 00000000h
+  loc_006C42BE: push 006C42E2h
+  loc_006C42C3: jmp 006C42E1h
+  loc_006C42C5: lea ecx, var_24
+  loc_006C42C8: call [00401430h] ; __vbaFreeStr
+  loc_006C42CE: lea ecx, var_28
+  loc_006C42D1: call [0040142Ch] ; __vbaFreeObj
+  loc_006C42D7: lea ecx, var_38
+  loc_006C42DA: call [00401030h] ; __vbaFreeVar
+  loc_006C42E0: ret
+  loc_006C42E1: ret
+  loc_006C42E2: mov ecx, Me
+  loc_006C42E5: mov edx, [ecx]
+  loc_006C42E7: mov eax, Me
+  loc_006C42EA: push eax
+  loc_006C42EB: call [edx+00000008h]
+  loc_006C42EE: mov eax, var_10
+  loc_006C42F1: mov ecx, var_20
+  loc_006C42F4: mov fs:[00000000h], ecx
+  loc_006C42FB: pop edi
+  loc_006C42FC: pop esi
+  loc_006C42FD: pop ebx
+  loc_006C42FE: mov esp, ebp
+  loc_006C4300: pop ebp
+  loc_006C4301: retn 0004h
+End Sub
+
+Private Sub Form_Load() '6C43E0
+  loc_006C43E0: push ebp
+  loc_006C43E1: mov ebp, esp
+  loc_006C43E3: sub esp, 00000018h
+  loc_006C43E6: push 00412856h ; __vbaExceptHandler
+  loc_006C43EB: mov eax, fs:[00000000h]
+  loc_006C43F1: push eax
+  loc_006C43F2: mov fs:[00000000h], esp
+  loc_006C43F9: mov eax, 00000054h
+  loc_006C43FE: call 00412850h ; __vbaChkstk
+  loc_006C4403: push ebx
+  loc_006C4404: push esi
+  loc_006C4405: push edi
+  loc_006C4406: mov var_18, esp
+  loc_006C4409: mov var_14, 0040D038h ; "'"
+  loc_006C4410: mov eax, Me
+  loc_006C4413: and eax, 00000001h
+  loc_006C4416: mov var_10, eax
+  loc_006C4419: mov ecx, Me
+  loc_006C441C: and ecx, FFFFFFFEh
+  loc_006C441F: mov Me, ecx
+  loc_006C4422: mov var_C, 00000000h
+  loc_006C4429: mov edx, Me
+  loc_006C442C: mov eax, [edx]
+  loc_006C442E: mov ecx, Me
+  loc_006C4431: push ecx
+  loc_006C4432: call [eax+00000004h]
+  loc_006C4435: mov var_4, 00000001h
+  loc_006C443C: mov var_4, 00000002h
+  loc_006C4443: push FFFFFFFFh
+  loc_006C4445: call [00401124h] ; __vbaOnError
+  loc_006C444B: mov var_4, 00000003h
+  loc_006C4452: mov var_30, 0043C9F4h
+  loc_006C4459: mov var_38, 00000008h
+  loc_006C4460: mov eax, 00000010h
+  loc_006C4465: call 00412850h ; __vbaChkstk
+  loc_006C446A: mov edx, esp
+  loc_006C446C: mov eax, var_38
+  loc_006C446F: mov [edx], eax
+  loc_006C4471: mov ecx, var_34
+  loc_006C4474: mov [edx+00000004h], ecx
+  loc_006C4477: mov eax, var_30
+  loc_006C447A: mov [edx+00000008h], eax
+  loc_006C447D: mov ecx, var_2C
+  loc_006C4480: mov [edx+0000000Ch], ecx
+  loc_006C4483: push 00448C4Ch ; "ConnectionType"
+  loc_006C4488: push 0044317Ch ; "UserInfo"
+  loc_006C448D: push 0043B010h ; "BONZIBUDDY"
+  loc_006C4492: call [00401354h] ; rtcGetSetting
+  loc_006C4498: mov edx, eax
+  loc_006C449A: lea ecx, var_24
+  loc_006C449D: call [004013C0h] ; __vbaStrMove
+  loc_006C44A3: mov var_4, 00000004h
+  loc_006C44AA: mov edx, var_24
+  loc_006C44AD: push edx
+  loc_006C44AE: call [00401044h] ; __vbaLenBstr
+  loc_006C44B4: mov esi, eax
+  loc_006C44B6: neg esi
+  loc_006C44B8: sbb esi, esi
+  loc_006C44BA: neg esi
+  loc_006C44BC: mov eax, var_24
+  loc_006C44BF: push eax
+  loc_006C44C0: push 004519E8h ; "Modem"
+  loc_006C44C5: call [004011B8h] ; __vbaStrCmp
+  loc_006C44CB: neg eax
+  loc_006C44CD: sbb eax, eax
+  loc_006C44CF: neg eax
+  loc_006C44D1: and esi, eax
+  loc_006C44D3: test esi, esi
+  loc_006C44D5: jnz 006C4549h
+  loc_006C44D7: mov var_4, 00000005h
+  loc_006C44DE: mov ecx, Me
+  loc_006C44E1: mov edx, [ecx]
+  loc_006C44E3: mov eax, Me
+  loc_006C44E6: push eax
+  loc_006C44E7: call [edx+0000030Ch]
+  loc_006C44ED: push eax
+  loc_006C44EE: lea ecx, var_28
+  loc_006C44F1: push ecx
+  loc_006C44F2: call [00401128h] ; __vbaObjSet
+  loc_006C44F8: mov var_4C, eax
+  loc_006C44FB: push FFFFFFFFh
+  loc_006C44FD: mov edx, var_4C
+  loc_006C4500: mov eax, [edx]
+  loc_006C4502: mov ecx, var_4C
+  loc_006C4505: push ecx
+  loc_006C4506: call [eax+000000E4h]
+  loc_006C450C: fnclex
+  loc_006C450E: mov var_50, eax
+  loc_006C4511: cmp var_50, 00000000h
+  loc_006C4515: jge 006C4534h
+  loc_006C4517: push 000000E4h
+  loc_006C451C: push 00451A20h
+  loc_006C4521: mov edx, var_4C
+  loc_006C4524: push edx
+  loc_006C4525: mov eax, var_50
+  loc_006C4528: push eax
+  loc_006C4529: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006C452F: mov var_68, eax
+  loc_006C4532: jmp 006C453Bh
+  loc_006C4534: mov var_68, 00000000h
+  loc_006C453B: lea ecx, var_28
+  loc_006C453E: call [0040142Ch] ; __vbaFreeObj
+  loc_006C4544: jmp 006C465Ch
+  loc_006C4549: mov var_4, 00000006h
+  loc_006C4550: mov ecx, var_24
+  loc_006C4553: push ecx
+  loc_006C4554: push 00448C70h ; "AOL"
+  loc_006C4559: call [004011B8h] ; __vbaStrCmp
+  loc_006C455F: test eax, eax
+  loc_006C4561: jnz 006C45D5h
+  loc_006C4563: mov var_4, 00000007h
+  loc_006C456A: mov edx, Me
+  loc_006C456D: mov eax, [edx]
+  loc_006C456F: mov ecx, Me
+  loc_006C4572: push ecx
+  loc_006C4573: call [eax+00000308h]
+  loc_006C4579: push eax
+  loc_006C457A: lea edx, var_28
+  loc_006C457D: push edx
+  loc_006C457E: call [00401128h] ; __vbaObjSet
+  loc_006C4584: mov var_4C, eax
+  loc_006C4587: push FFFFFFFFh
+  loc_006C4589: mov eax, var_4C
+  loc_006C458C: mov ecx, [eax]
+  loc_006C458E: mov edx, var_4C
+  loc_006C4591: push edx
+  loc_006C4592: call [ecx+000000E4h]
+  loc_006C4598: fnclex
+  loc_006C459A: mov var_50, eax
+  loc_006C459D: cmp var_50, 00000000h
+  loc_006C45A1: jge 006C45C0h
+  loc_006C45A3: push 000000E4h
+  loc_006C45A8: push 00451A20h
+  loc_006C45AD: mov eax, var_4C
+  loc_006C45B0: push eax
+  loc_006C45B1: mov ecx, var_50
+  loc_006C45B4: push ecx
+  loc_006C45B5: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006C45BB: mov var_6C, eax
+  loc_006C45BE: jmp 006C45C7h
+  loc_006C45C0: mov var_6C, 00000000h
+  loc_006C45C7: lea ecx, var_28
+  loc_006C45CA: call [0040142Ch] ; __vbaFreeObj
+  loc_006C45D0: jmp 006C465Ch
+  loc_006C45D5: mov var_4, 00000008h
+  loc_006C45DC: mov edx, var_24
+  loc_006C45DF: push edx
+  loc_006C45E0: push 004519F8h ; "LAN"
+  loc_006C45E5: call [004011B8h] ; __vbaStrCmp
+  loc_006C45EB: test eax, eax
+  loc_006C45ED: jnz 006C465Ch
+  loc_006C45EF: mov var_4, 00000009h
+  loc_006C45F6: mov eax, Me
+  loc_006C45F9: mov ecx, [eax]
+  loc_006C45FB: mov edx, Me
+  loc_006C45FE: push edx
+  loc_006C45FF: call [ecx+00000304h]
+  loc_006C4605: push eax
+  loc_006C4606: lea eax, var_28
+  loc_006C4609: push eax
+  loc_006C460A: call [00401128h] ; __vbaObjSet
+  loc_006C4610: mov var_4C, eax
+  loc_006C4613: push FFFFFFFFh
+  loc_006C4615: mov ecx, var_4C
+  loc_006C4618: mov edx, [ecx]
+  loc_006C461A: mov eax, var_4C
+  loc_006C461D: push eax
+  loc_006C461E: call [edx+000000E4h]
+  loc_006C4624: fnclex
+  loc_006C4626: mov var_50, eax
+  loc_006C4629: cmp var_50, 00000000h
+  loc_006C462D: jge 006C464Ch
+  loc_006C462F: push 000000E4h
+  loc_006C4634: push 00451A20h
+  loc_006C4639: mov ecx, var_4C
+  loc_006C463C: push ecx
+  loc_006C463D: mov edx, var_50
+  loc_006C4640: push edx
+  loc_006C4641: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006C4647: mov var_70, eax
+  loc_006C464A: jmp 006C4653h
+  loc_006C464C: mov var_70, 00000000h
+  loc_006C4653: lea ecx, var_28
+  loc_006C4656: call [0040142Ch] ; __vbaFreeObj
+  loc_006C465C: mov var_4, 0000000Bh
+  loc_006C4663: mov var_40, 80020004h
+  loc_006C466A: mov var_48, 0000000Ah
+  loc_006C4671: mov var_30, 0046D328h ; "Now let's select the option from my Internet Connection Screen which best describes how we will be connecting to the Internet!"
+  loc_006C4678: mov var_38, 00000008h
+  loc_006C467F: lea eax, var_28
+  loc_006C4682: push eax
+  loc_006C4683: mov eax, 00000010h
+  loc_006C4688: call 00412850h ; __vbaChkstk
+  loc_006C468D: mov ecx, esp
+  loc_006C468F: mov edx, var_48
+  loc_006C4692: mov [ecx], edx
+  loc_006C4694: mov eax, var_44
+  loc_006C4697: mov [ecx+00000004h], eax
+  loc_006C469A: mov edx, var_40
+  loc_006C469D: mov [ecx+00000008h], edx
+  loc_006C46A0: mov eax, var_3C
+  loc_006C46A3: mov [ecx+0000000Ch], eax
+  loc_006C46A6: mov eax, 00000010h
+  loc_006C46AB: call 00412850h ; __vbaChkstk
+  loc_006C46B0: mov ecx, esp
+  loc_006C46B2: mov edx, var_38
+  loc_006C46B5: mov [ecx], edx
+  loc_006C46B7: mov eax, var_34
+  loc_006C46BA: mov [ecx+00000004h], eax
+  loc_006C46BD: mov edx, var_30
+  loc_006C46C0: mov [ecx+00000008h], edx
+  loc_006C46C3: mov eax, var_2C
+  loc_006C46C6: mov [ecx+0000000Ch], eax
+  loc_006C46C9: mov ecx, [0073A08Ch]
+  loc_006C46CF: mov edx, [ecx]
+  loc_006C46D1: mov eax, [0073A08Ch]
+  loc_006C46D6: push eax
+  loc_006C46D7: call [edx+00000078h]
+  loc_006C46DA: fnclex
+  loc_006C46DC: mov var_4C, eax
+  loc_006C46DF: cmp var_4C, 00000000h
+  loc_006C46E3: jge 006C4702h
+  loc_006C46E5: push 00000078h
+  loc_006C46E7: push 004419ACh
+  loc_006C46EC: mov ecx, [0073A08Ch]
+  loc_006C46F2: push ecx
+  loc_006C46F3: mov edx, var_4C
+  loc_006C46F6: push edx
+  loc_006C46F7: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006C46FD: mov var_74, eax
+  loc_006C4700: jmp 006C4709h
+  loc_006C4702: mov var_74, 00000000h
+  loc_006C4709: lea ecx, var_28
+  loc_006C470C: call [0040142Ch] ; __vbaFreeObj
+  loc_006C4712: mov var_10, 00000000h
+  loc_006C4719: push 006C4734h
+  loc_006C471E: jmp 006C472Ah
+  loc_006C4720: lea ecx, var_28
+  loc_006C4723: call [0040142Ch] ; __vbaFreeObj
+  loc_006C4729: ret
+  loc_006C472A: lea ecx, var_24
+  loc_006C472D: call [00401430h] ; __vbaFreeStr
+  loc_006C4733: ret
+  loc_006C4734: mov eax, Me
+  loc_006C4737: mov ecx, [eax]
+  loc_006C4739: mov edx, Me
+  loc_006C473C: push edx
+  loc_006C473D: call [ecx+00000008h]
+  loc_006C4740: mov eax, var_10
+  loc_006C4743: mov ecx, var_20
+  loc_006C4746: mov fs:[00000000h], ecx
+  loc_006C474D: pop edi
+  loc_006C474E: pop esi
+  loc_006C474F: pop ebx
+  loc_006C4750: mov esp, ebp
+  loc_006C4752: pop ebp
+  loc_006C4753: retn 0004h
+End Sub
+
+Private Sub Form_Activate() '6C4310
+  loc_006C4310: push ebp
+  loc_006C4311: mov ebp, esp
+  loc_006C4313: sub esp, 0000000Ch
+  loc_006C4316: push 00412856h ; __vbaExceptHandler
+  loc_006C431B: mov eax, fs:[00000000h]
+  loc_006C4321: push eax
+  loc_006C4322: mov fs:[00000000h], esp
+  loc_006C4329: sub esp, 00000014h
+  loc_006C432C: push ebx
+  loc_006C432D: push esi
+  loc_006C432E: push edi
+  loc_006C432F: mov var_C, esp
+  loc_006C4332: mov var_8, 0040D028h
+  loc_006C4339: mov esi, Me
+  loc_006C433C: mov eax, esi
+  loc_006C433E: and eax, 00000001h
+  loc_006C4341: mov var_4, eax
+  loc_006C4344: and esi, FFFFFFFEh
+  loc_006C4347: push esi
+  loc_006C4348: mov Me, esi
+  loc_006C434B: mov ecx, [esi]
+  loc_006C434D: call [ecx+00000004h]
+  loc_006C4350: xor edi, edi
+  loc_006C4352: push 00440B00h
+  loc_006C4357: mov var_1C, edi
+  loc_006C435A: push esi
+  loc_006C435B: mov var_18, edi
+  loc_006C435E: mov var_1C, edi
+  loc_006C4361: call [004013C4h] ; __vbaCastObj
+  loc_006C4367: lea edx, var_18
+  loc_006C436A: push eax
+  loc_006C436B: push edx
+  loc_006C436C: call [00401128h] ; __vbaObjSet
+  loc_006C4372: mov eax, [0073A218h]
+  loc_006C4377: lea edx, var_1C
+  loc_006C437A: push edx
+  loc_006C437B: lea edx, var_18
+  loc_006C437E: mov ecx, [eax]
+  loc_006C4380: push edx
+  loc_006C4381: push eax
+  loc_006C4382: call [ecx+00000020h]
+  loc_006C4385: cmp eax, edi
+  loc_006C4387: fnclex
+  loc_006C4389: jge 006C43A0h
+  loc_006C438B: mov ecx, [0073A218h]
+  loc_006C4391: push 00000020h
+  loc_006C4393: push 00440B10h
+  loc_006C4398: push ecx
+  loc_006C4399: push eax
+  loc_006C439A: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006C43A0: lea ecx, var_18
+  loc_006C43A3: call [0040142Ch] ; __vbaFreeObj
+  loc_006C43A9: mov var_4, edi
+  loc_006C43AC: push 006C43BEh
+  loc_006C43B1: jmp 006C43BDh
+  loc_006C43B3: lea ecx, var_18
+  loc_006C43B6: call [0040142Ch] ; __vbaFreeObj
+  loc_006C43BC: ret
+  loc_006C43BD: ret
+  loc_006C43BE: mov eax, Me
+  loc_006C43C1: push eax
+  loc_006C43C2: mov edx, [eax]
+  loc_006C43C4: call [edx+00000008h]
+  loc_006C43C7: mov eax, var_4
+  loc_006C43CA: mov ecx, var_14
+  loc_006C43CD: pop edi
+  loc_006C43CE: pop esi
+  loc_006C43CF: mov fs:[00000000h], ecx
+  loc_006C43D6: pop ebx
+  loc_006C43D7: mov esp, ebp
+  loc_006C43D9: pop ebp
+  loc_006C43DA: retn 0004h
+End Sub

Src Code/frmGoldLogin.frm

@@ -0,0 +1,974 @@
+VERSION 5.00
+Begin VB.Form frmGoldLogin
+  Caption = "Gold Membership Login"
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 3 'Fixed Dialog
+  'Icon = n/a
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  ControlBox = 0   'False
+  Visible = 0   'False
+  ClientLeft = 45
+  ClientTop = 330
+  ClientWidth = 5685
+  ClientHeight = 2550
+  ShowInTaskbar = 0   'False
+  StartUpPosition = 3 'Windows Default
+  Begin VB.Frame Frame1
+    Caption = "Gold Member Logon Information"
+    Left = 120
+    Top = 120
+    Width = 5445
+    Height = 2295
+    TabIndex = 5
+    Begin VB.CommandButton cmdCancel
+      Caption = "&Cancel"
+      Left = 2962
+      Top = 1695
+      Width = 1095
+      Height = 375
+      TabIndex = 4
+      Cancel = -1  'True
+    End
+    Begin VB.CheckBox chkSavePassword
+      Caption = "Remember my password when logging in."
+      Left = 360
+      Top = 1230
+      Width = 3315
+      Height = 195
+      TabIndex = 2
+      Value = 1
+    End
+    Begin VB.CommandButton cmdLogin
+      Caption = "&Login"
+      Left = 1627
+      Top = 1695
+      Width = 1095
+      Height = 375
+      TabIndex = 3
+      Default = -1  'True
+    End
+    Begin VB.TextBox txtEmail
+      Left = 2550
+      Top = 330
+      Width = 2475
+      Height = 315
+      TabIndex = 0
+    End
+    Begin VB.TextBox txtPassword
+      Left = 2550
+      Top = 750
+      Width = 2475
+      Height = 315
+      TabIndex = 1
+      PasswordChar = "*"
+    End
+    Begin VB.Label Label9
+      Caption = "Password:"
+      Left = 360
+      Top = 810
+      Width = 735
+      Height = 195
+      TabIndex = 7
+      AutoSize = -1  'True
+    End
+    Begin VB.Label Label8
+      Caption = "Email Address:"
+      Left = 360
+      Top = 390
+      Width = 1035
+      Height = 195
+      TabIndex = 6
+      AutoSize = -1  'True
+    End
+  End
+End
+
+Attribute VB_Name = "frmGoldLogin"
+
+
+Private Sub cmdLogin_Click() '725AC0
+  loc_00725AC0: push ebp
+  loc_00725AC1: mov ebp, esp
+  loc_00725AC3: sub esp, 0000000Ch
+  loc_00725AC6: push 00412856h ; __vbaExceptHandler
+  loc_00725ACB: mov eax, fs:[00000000h]
+  loc_00725AD1: push eax
+  loc_00725AD2: mov fs:[00000000h], esp
+  loc_00725AD9: sub esp, 00000060h
+  loc_00725ADC: push ebx
+  loc_00725ADD: push esi
+  loc_00725ADE: push edi
+  loc_00725ADF: mov var_C, esp
+  loc_00725AE2: mov var_8, 00411FE0h
+  loc_00725AE9: mov esi, Me
+  loc_00725AEC: mov eax, esi
+  loc_00725AEE: and eax, 00000001h
+  loc_00725AF1: mov var_4, eax
+  loc_00725AF4: and esi, FFFFFFFEh
+  loc_00725AF7: push esi
+  loc_00725AF8: mov Me, esi
+  loc_00725AFB: mov ecx, [esi]
+  loc_00725AFD: call [ecx+00000004h]
+  loc_00725B00: mov edx, [esi]
+  loc_00725B02: xor eax, eax
+  loc_00725B04: push esi
+  loc_00725B05: mov var_18, eax
+  loc_00725B08: mov var_1C, eax
+  loc_00725B0B: mov var_20, eax
+  loc_00725B0E: mov var_24, eax
+  loc_00725B11: mov var_28, eax
+  loc_00725B14: mov var_2C, eax
+  loc_00725B17: call [edx+00000308h]
+  loc_00725B1D: mov ebx, [00401128h] ; __vbaObjSet
+  loc_00725B23: push eax
+  loc_00725B24: lea eax, var_28
+  loc_00725B27: push eax
+  loc_00725B28: call ebx
+  loc_00725B2A: mov edi, eax
+  loc_00725B2C: push 00000000h
+  loc_00725B2E: push edi
+  loc_00725B2F: mov ecx, [edi]
+  loc_00725B31: call [ecx+0000008Ch]
+  loc_00725B37: test eax, eax
+  loc_00725B39: fnclex
+  loc_00725B3B: jge 00725B4Fh
+  loc_00725B3D: push 0000008Ch
+  loc_00725B42: push 004431B8h
+  loc_00725B47: push edi
+  loc_00725B48: push eax
+  loc_00725B49: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725B4F: lea ecx, var_28
+  loc_00725B52: call [0040142Ch] ; __vbaFreeObj
+  loc_00725B58: mov edx, [esi]
+  loc_00725B5A: push esi
+  loc_00725B5B: call [edx+00000300h]
+  loc_00725B61: push eax
+  loc_00725B62: lea eax, var_28
+  loc_00725B65: push eax
+  loc_00725B66: call ebx
+  loc_00725B68: mov edi, eax
+  loc_00725B6A: push 00000000h
+  loc_00725B6C: push edi
+  loc_00725B6D: mov ecx, [edi]
+  loc_00725B6F: call [ecx+0000008Ch]
+  loc_00725B75: test eax, eax
+  loc_00725B77: fnclex
+  loc_00725B79: jge 00725B8Dh
+  loc_00725B7B: push 0000008Ch
+  loc_00725B80: push 004431B8h
+  loc_00725B85: push edi
+  loc_00725B86: push eax
+  loc_00725B87: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725B8D: lea ecx, var_28
+  loc_00725B90: call [0040142Ch] ; __vbaFreeObj
+  loc_00725B96: mov edx, [esi]
+  loc_00725B98: push esi
+  loc_00725B99: call [edx+0000030Ch]
+  loc_00725B9F: push eax
+  loc_00725BA0: lea eax, var_28
+  loc_00725BA3: push eax
+  loc_00725BA4: call ebx
+  loc_00725BA6: mov edi, eax
+  loc_00725BA8: lea edx, var_18
+  loc_00725BAB: push edx
+  loc_00725BAC: push edi
+  loc_00725BAD: mov ecx, [edi]
+  loc_00725BAF: call [ecx+000000A0h]
+  loc_00725BB5: test eax, eax
+  loc_00725BB7: fnclex
+  loc_00725BB9: jge 00725BCDh
+  loc_00725BBB: push 000000A0h
+  loc_00725BC0: push 0043F42Ch
+  loc_00725BC5: push edi
+  loc_00725BC6: push eax
+  loc_00725BC7: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725BCD: mov eax, [esi]
+  loc_00725BCF: push esi
+  loc_00725BD0: call [eax+00000310h]
+  loc_00725BD6: lea ecx, var_2C
+  loc_00725BD9: push eax
+  loc_00725BDA: push ecx
+  loc_00725BDB: call ebx
+  loc_00725BDD: mov edi, eax
+  loc_00725BDF: lea eax, var_20
+  loc_00725BE2: push eax
+  loc_00725BE3: push edi
+  loc_00725BE4: mov edx, [edi]
+  loc_00725BE6: call [edx+000000A0h]
+  loc_00725BEC: xor ebx, ebx
+  loc_00725BEE: cmp eax, ebx
+  loc_00725BF0: fnclex
+  loc_00725BF2: jge 00725C06h
+  loc_00725BF4: push 000000A0h
+  loc_00725BF9: push 0043F42Ch
+  loc_00725BFE: push edi
+  loc_00725BFF: push eax
+  loc_00725C00: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725C06: mov edx, var_20
+  loc_00725C09: mov edi, [004013C0h] ; __vbaStrMove
+  loc_00725C0F: lea ecx, var_24
+  loc_00725C12: mov var_20, ebx
+  loc_00725C15: call edi
+  loc_00725C17: mov edx, var_18
+  loc_00725C1A: lea ecx, var_1C
+  loc_00725C1D: mov var_18, ebx
+  loc_00725C20: call edi
+  loc_00725C22: lea ecx, var_24
+  loc_00725C25: lea edx, var_1C
+  loc_00725C28: push ecx
+  loc_00725C29: push edx
+  loc_00725C2A: call 0065C1A0h
+  loc_00725C2F: mov edi, eax
+  loc_00725C31: lea eax, var_24
+  loc_00725C34: lea ecx, var_1C
+  loc_00725C37: push eax
+  loc_00725C38: push ecx
+  loc_00725C39: push 00000002h
+  loc_00725C3B: call [00401324h] ; __vbaFreeStrList
+  loc_00725C41: lea edx, var_2C
+  loc_00725C44: lea eax, var_28
+  loc_00725C47: push edx
+  loc_00725C48: push eax
+  loc_00725C49: push 00000002h
+  loc_00725C4B: call [00401068h] ; __vbaFreeObjList
+  loc_00725C51: add esp, 00000018h
+  loc_00725C54: cmp di, bx
+  loc_00725C57: jz 00725D83h
+  loc_00725C5D: mov ecx, [esi]
+  loc_00725C5F: push esi
+  loc_00725C60: call [ecx+00000700h]
+  loc_00725C66: cmp [0073A6C8h], ebx
+  loc_00725C6C: jnz 00725C7Eh
+  loc_00725C6E: push 0073A6C8h
+  loc_00725C73: push 00426004h
+  loc_00725C78: call [004012FCh] ; __vbaNew2
+  loc_00725C7E: sub esp, 00000010h
+  loc_00725C81: mov ecx, 0000000Ah
+  loc_00725C86: mov ebx, esp
+  loc_00725C88: mov var_3C, ecx
+  loc_00725C8B: mov eax, 80020004h
+  loc_00725C90: sub esp, 00000010h
+  loc_00725C93: mov [ebx], ecx
+  loc_00725C95: mov ecx, var_48
+  loc_00725C98: mov var_34, eax
+  loc_00725C9B: mov edi, [0073A6C8h]
+  loc_00725CA1: mov [ebx+00000004h], ecx
+  loc_00725CA4: mov ecx, esp
+  loc_00725CA6: mov edx, [edi]
+  loc_00725CA8: push edi
+  loc_00725CA9: mov [ebx+00000008h], eax
+  loc_00725CAC: mov eax, var_40
+  loc_00725CAF: mov [ebx+0000000Ch], eax
+  loc_00725CB2: mov eax, var_3C
+  loc_00725CB5: mov [ecx], eax
+  loc_00725CB7: mov eax, var_38
+  loc_00725CBA: mov [ecx+00000004h], eax
+  loc_00725CBD: mov eax, var_34
+  loc_00725CC0: mov [ecx+00000008h], eax
+  loc_00725CC3: mov eax, var_30
+  loc_00725CC6: mov [ecx+0000000Ch], eax
+  loc_00725CC9: call [edx+000002B0h]
+  loc_00725CCF: test eax, eax
+  loc_00725CD1: fnclex
+  loc_00725CD3: jge 00725CEBh
+  loc_00725CD5: mov ebx, [004010CCh] ; __vbaHresultCheckObj
+  loc_00725CDB: push 000002B0h
+  loc_00725CE0: push 0045E798h
+  loc_00725CE5: push edi
+  loc_00725CE6: push eax
+  loc_00725CE7: call ebx
+  loc_00725CE9: jmp 00725CF1h
+  loc_00725CEB: mov ebx, [004010CCh] ; __vbaHresultCheckObj
+  loc_00725CF1: mov eax, [0073A6C8h]
+  loc_00725CF6: test eax, eax
+  loc_00725CF8: jnz 00725D0Ah
+  loc_00725CFA: push 0073A6C8h
+  loc_00725CFF: push 00426004h
+  loc_00725D04: call [004012FCh] ; __vbaNew2
+  loc_00725D0A: mov edi, [0073A6C8h]
+  loc_00725D10: push edi
+  loc_00725D11: mov ecx, [edi]
+  loc_00725D13: call [ecx+000006FCh]
+  loc_00725D19: test eax, eax
+  loc_00725D1B: fnclex
+  loc_00725D1D: jge 00725D2Dh
+  loc_00725D1F: push 000006FCh
+  loc_00725D24: push 0045E3A8h
+  loc_00725D29: push edi
+  loc_00725D2A: push eax
+  loc_00725D2B: call ebx
+  loc_00725D2D: mov eax, [0073C818h]
+  loc_00725D32: test eax, eax
+  loc_00725D34: jnz 00725D46h
+  loc_00725D36: push 0073C818h
+  loc_00725D3B: push 00441F00h
+  loc_00725D40: call [004012FCh] ; __vbaNew2
+  loc_00725D46: mov edi, [0073C818h]
+  loc_00725D4C: lea eax, var_28
+  loc_00725D4F: push esi
+  loc_00725D50: push eax
+  loc_00725D51: mov edx, [edi]
+  loc_00725D53: mov var_74, edx
+  loc_00725D56: call [00401130h] ; __vbaObjSetAddref
+  loc_00725D5C: mov ecx, var_74
+  loc_00725D5F: push eax
+  loc_00725D60: push edi
+  loc_00725D61: call [ecx+00000010h]
+  loc_00725D64: test eax, eax
+  loc_00725D66: fnclex
+  loc_00725D68: jge 00725D75h
+  loc_00725D6A: push 00000010h
+  loc_00725D6C: push 00441EF0h
+  loc_00725D71: push edi
+  loc_00725D72: push eax
+  loc_00725D73: call ebx
+  loc_00725D75: lea ecx, var_28
+  loc_00725D78: call [0040142Ch] ; __vbaFreeObj
+  loc_00725D7E: jmp 00725E9Eh
+  loc_00725D83: sub esp, 00000010h
+  loc_00725D86: mov ecx, 0000000Ah
+  loc_00725D8B: mov ebx, esp
+  loc_00725D8D: mov var_3C, ecx
+  loc_00725D90: mov eax, 80020004h
+  loc_00725D95: sub esp, 00000010h
+  loc_00725D98: mov [ebx], ecx
+  loc_00725D9A: mov ecx, var_48
+  loc_00725D9D: mov edx, eax
+  loc_00725D9F: mov edi, [esi]
+  loc_00725DA1: mov [ebx+00000004h], ecx
+  loc_00725DA4: mov ecx, esp
+  loc_00725DA6: push esi
+  loc_00725DA7: mov [ebx+00000008h], eax
+  loc_00725DAA: mov eax, var_40
+  loc_00725DAD: mov [ebx+0000000Ch], eax
+  loc_00725DB0: mov eax, var_3C
+  loc_00725DB3: mov [ecx], eax
+  loc_00725DB5: mov eax, var_38
+  loc_00725DB8: mov [ecx+00000004h], eax
+  loc_00725DBB: mov [ecx+00000008h], edx
+  loc_00725DBE: mov edx, var_30
+  loc_00725DC1: mov [ecx+0000000Ch], edx
+  loc_00725DC4: call [edi+000002B0h]
+  loc_00725DCA: test eax, eax
+  loc_00725DCC: fnclex
+  loc_00725DCE: jge 00725DE2h
+  loc_00725DD0: push 000002B0h
+  loc_00725DD5: push 004537E4h
+  loc_00725DDA: push esi
+  loc_00725DDB: push eax
+  loc_00725DDC: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725DE2: mov eax, [esi]
+  loc_00725DE4: push esi
+  loc_00725DE5: call [eax+00000310h]
+  loc_00725DEB: mov ebx, [00401128h] ; __vbaObjSet
+  loc_00725DF1: lea ecx, var_28
+  loc_00725DF4: push eax
+  loc_00725DF5: push ecx
+  loc_00725DF6: call ebx
+  loc_00725DF8: mov edi, eax
+  loc_00725DFA: push edi
+  loc_00725DFB: mov edx, [edi]
+  loc_00725DFD: call [edx+00000204h]
+  loc_00725E03: test eax, eax
+  loc_00725E05: fnclex
+  loc_00725E07: jge 00725E1Bh
+  loc_00725E09: push 00000204h
+  loc_00725E0E: push 0043F42Ch
+  loc_00725E13: push edi
+  loc_00725E14: push eax
+  loc_00725E15: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725E1B: lea ecx, var_28
+  loc_00725E1E: call [0040142Ch] ; __vbaFreeObj
+  loc_00725E24: mov eax, [esi]
+  loc_00725E26: push esi
+  loc_00725E27: call [eax+00000308h]
+  loc_00725E2D: lea ecx, var_28
+  loc_00725E30: push eax
+  loc_00725E31: push ecx
+  loc_00725E32: call ebx
+  loc_00725E34: mov edi, eax
+  loc_00725E36: push FFFFFFFFh
+  loc_00725E38: push edi
+  loc_00725E39: mov edx, [edi]
+  loc_00725E3B: call [edx+0000008Ch]
+  loc_00725E41: test eax, eax
+  loc_00725E43: fnclex
+  loc_00725E45: jge 00725E59h
+  loc_00725E47: push 0000008Ch
+  loc_00725E4C: push 004431B8h
+  loc_00725E51: push edi
+  loc_00725E52: push eax
+  loc_00725E53: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725E59: mov edi, [0040142Ch] ; __vbaFreeObj
+  loc_00725E5F: lea ecx, var_28
+  loc_00725E62: call edi
+  loc_00725E64: mov eax, [esi]
+  loc_00725E66: push esi
+  loc_00725E67: call [eax+00000300h]
+  loc_00725E6D: lea ecx, var_28
+  loc_00725E70: push eax
+  loc_00725E71: push ecx
+  loc_00725E72: call ebx
+  loc_00725E74: mov esi, eax
+  loc_00725E76: push FFFFFFFFh
+  loc_00725E78: push esi
+  loc_00725E79: mov edx, [esi]
+  loc_00725E7B: call [edx+0000008Ch]
+  loc_00725E81: test eax, eax
+  loc_00725E83: fnclex
+  loc_00725E85: jge 00725E99h
+  loc_00725E87: push 0000008Ch
+  loc_00725E8C: push 004431B8h
+  loc_00725E91: push esi
+  loc_00725E92: push eax
+  loc_00725E93: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725E99: lea ecx, var_28
+  loc_00725E9C: call edi
+  loc_00725E9E: mov var_4, 00000000h
+  loc_00725EA5: push 00725ED9h
+  loc_00725EAA: jmp 00725ED8h
+  loc_00725EAC: lea eax, var_24
+  loc_00725EAF: lea ecx, var_20
+  loc_00725EB2: push eax
+  loc_00725EB3: lea edx, var_1C
+  loc_00725EB6: push ecx
+  loc_00725EB7: lea eax, var_18
+  loc_00725EBA: push edx
+  loc_00725EBB: push eax
+  loc_00725EBC: push 00000004h
+  loc_00725EBE: call [00401324h] ; __vbaFreeStrList
+  loc_00725EC4: lea ecx, var_2C
+  loc_00725EC7: lea edx, var_28
+  loc_00725ECA: push ecx
+  loc_00725ECB: push edx
+  loc_00725ECC: push 00000002h
+  loc_00725ECE: call [00401068h] ; __vbaFreeObjList
+  loc_00725ED4: add esp, 00000020h
+  loc_00725ED7: ret
+  loc_00725ED8: ret
+  loc_00725ED9: mov eax, Me
+  loc_00725EDC: push eax
+  loc_00725EDD: mov ecx, [eax]
+  loc_00725EDF: call [ecx+00000008h]
+  loc_00725EE2: mov eax, var_4
+  loc_00725EE5: mov ecx, var_14
+  loc_00725EE8: pop edi
+  loc_00725EE9: pop esi
+  loc_00725EEA: mov fs:[00000000h], ecx
+  loc_00725EF1: pop ebx
+  loc_00725EF2: mov esp, ebp
+  loc_00725EF4: pop ebp
+  loc_00725EF5: retn 0004h
+End Sub
+
+Private Sub cmdCancel_Click() '7259F0
+  loc_007259F0: push ebp
+  loc_007259F1: mov ebp, esp
+  loc_007259F3: sub esp, 0000000Ch
+  loc_007259F6: push 00412856h ; __vbaExceptHandler
+  loc_007259FB: mov eax, fs:[00000000h]
+  loc_00725A01: push eax
+  loc_00725A02: mov fs:[00000000h], esp
+  loc_00725A09: sub esp, 00000018h
+  loc_00725A0C: push ebx
+  loc_00725A0D: push esi
+  loc_00725A0E: push edi
+  loc_00725A0F: mov var_C, esp
+  loc_00725A12: mov var_8, 00411FD0h
+  loc_00725A19: mov edi, Me
+  loc_00725A1C: mov eax, edi
+  loc_00725A1E: and eax, 00000001h
+  loc_00725A21: mov var_4, eax
+  loc_00725A24: and edi, FFFFFFFEh
+  loc_00725A27: push edi
+  loc_00725A28: mov Me, edi
+  loc_00725A2B: mov ecx, [edi]
+  loc_00725A2D: call [ecx+00000004h]
+  loc_00725A30: mov eax, [0073C818h]
+  loc_00725A35: xor ebx, ebx
+  loc_00725A37: cmp eax, ebx
+  loc_00725A39: mov var_18, ebx
+  loc_00725A3C: jnz 00725A4Eh
+  loc_00725A3E: push 0073C818h
+  loc_00725A43: push 00441F00h
+  loc_00725A48: call [004012FCh] ; __vbaNew2
+  loc_00725A4E: mov esi, [0073C818h]
+  loc_00725A54: lea eax, var_18
+  loc_00725A57: push edi
+  loc_00725A58: push eax
+  loc_00725A59: mov edx, [esi]
+  loc_00725A5B: mov var_2C, edx
+  loc_00725A5E: call [00401130h] ; __vbaObjSetAddref
+  loc_00725A64: mov ecx, var_2C
+  loc_00725A67: push eax
+  loc_00725A68: push esi
+  loc_00725A69: call [ecx+00000010h]
+  loc_00725A6C: cmp eax, ebx
+  loc_00725A6E: fnclex
+  loc_00725A70: jge 00725A81h
+  loc_00725A72: push 00000010h
+  loc_00725A74: push 00441EF0h
+  loc_00725A79: push esi
+  loc_00725A7A: push eax
+  loc_00725A7B: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725A81: lea ecx, var_18
+  loc_00725A84: call [0040142Ch] ; __vbaFreeObj
+  loc_00725A8A: mov var_4, ebx
+  loc_00725A8D: push 00725A9Fh
+  loc_00725A92: jmp 00725A9Eh
+  loc_00725A94: lea ecx, var_18
+  loc_00725A97: call [0040142Ch] ; __vbaFreeObj
+  loc_00725A9D: ret
+  loc_00725A9E: ret
+  loc_00725A9F: mov eax, Me
+  loc_00725AA2: push eax
+  loc_00725AA3: mov edx, [eax]
+  loc_00725AA5: call [edx+00000008h]
+  loc_00725AA8: mov eax, var_4
+  loc_00725AAB: mov ecx, var_14
+  loc_00725AAE: pop edi
+  loc_00725AAF: pop esi
+  loc_00725AB0: mov fs:[00000000h], ecx
+  loc_00725AB7: pop ebx
+  loc_00725AB8: mov esp, ebp
+  loc_00725ABA: pop ebp
+  loc_00725ABB: retn 0004h
+End Sub
+
+Private Sub Form_Load() '725F00
+  loc_00725F00: push ebp
+  loc_00725F01: mov ebp, esp
+  loc_00725F03: sub esp, 0000000Ch
+  loc_00725F06: push 00412856h ; __vbaExceptHandler
+  loc_00725F0B: mov eax, fs:[00000000h]
+  loc_00725F11: push eax
+  loc_00725F12: mov fs:[00000000h], esp
+  loc_00725F19: sub esp, 00000008h
+  loc_00725F1C: push ebx
+  loc_00725F1D: push esi
+  loc_00725F1E: push edi
+  loc_00725F1F: mov var_C, esp
+  loc_00725F22: mov var_8, 00411FF0h
+  loc_00725F29: mov esi, Me
+  loc_00725F2C: mov eax, esi
+  loc_00725F2E: and eax, 00000001h
+  loc_00725F31: mov var_4, eax
+  loc_00725F34: and esi, FFFFFFFEh
+  loc_00725F37: push esi
+  loc_00725F38: mov Me, esi
+  loc_00725F3B: mov ecx, [esi]
+  loc_00725F3D: call [ecx+00000004h]
+  loc_00725F40: mov edx, [esi]
+  loc_00725F42: push esi
+  loc_00725F43: call [edx+000006FCh]
+  loc_00725F49: mov var_4, 00000000h
+  loc_00725F50: mov eax, Me
+  loc_00725F53: push eax
+  loc_00725F54: mov ecx, [eax]
+  loc_00725F56: call [ecx+00000008h]
+  loc_00725F59: mov eax, var_4
+  loc_00725F5C: mov ecx, var_14
+  loc_00725F5F: pop edi
+  loc_00725F60: pop esi
+  loc_00725F61: mov fs:[00000000h], ecx
+  loc_00725F68: pop ebx
+  loc_00725F69: mov esp, ebp
+  loc_00725F6B: pop ebp
+  loc_00725F6C: retn 0004h
+End Sub
+
+Private Sub Proc_72_3_725520
+  loc_00725520: push ebp
+  loc_00725521: mov ebp, esp
+  loc_00725523: sub esp, 00000008h
+  loc_00725526: push 00412856h ; __vbaExceptHandler
+  loc_0072552B: mov eax, fs:[00000000h]
+  loc_00725531: push eax
+  loc_00725532: mov fs:[00000000h], esp
+  loc_00725539: sub esp, 00000024h
+  loc_0072553C: push ebx
+  loc_0072553D: push esi
+  loc_0072553E: push edi
+  loc_0072553F: mov var_8, esp
+  loc_00725542: mov var_4, 00411FB0h
+  loc_00725549: mov esi, Me
+  loc_0072554C: xor eax, eax
+  loc_0072554E: mov var_14, eax
+  loc_00725551: mov var_18, eax
+  loc_00725554: mov eax, [esi]
+  loc_00725556: push esi
+  loc_00725557: call [eax+0000030Ch]
+  loc_0072555D: lea ecx, var_18
+  loc_00725560: push eax
+  loc_00725561: push ecx
+  loc_00725562: call [00401128h] ; __vbaObjSet
+  loc_00725568: sub esp, 00000010h
+  loc_0072556B: mov ecx, 00000008h
+  loc_00725570: mov edx, esp
+  loc_00725572: mov edi, eax
+  loc_00725574: mov eax, 0043C9F4h
+  loc_00725579: push 00453860h ; "GoldEmail"
+  loc_0072557E: mov [edx], ecx
+  loc_00725580: mov ecx, var_24
+  loc_00725583: mov ebx, [edi]
+  loc_00725585: push 0044317Ch ; "UserInfo"
+  loc_0072558A: mov [edx+00000004h], ecx
+  loc_0072558D: push 004537A4h ; "BonziBUDDY"
+  loc_00725592: mov [edx+00000008h], eax
+  loc_00725595: mov eax, var_1C
+  loc_00725598: mov [edx+0000000Ch], eax
+  loc_0072559B: call [00401354h] ; rtcGetSetting
+  loc_007255A1: mov edx, eax
+  loc_007255A3: lea ecx, var_14
+  loc_007255A6: call [004013C0h] ; __vbaStrMove
+  loc_007255AC: push eax
+  loc_007255AD: push edi
+  loc_007255AE: call [ebx+000000A4h]
+  loc_007255B4: test eax, eax
+  loc_007255B6: fnclex
+  loc_007255B8: jge 007255CCh
+  loc_007255BA: push 000000A4h
+  loc_007255BF: push 0043F42Ch
+  loc_007255C4: push edi
+  loc_007255C5: push eax
+  loc_007255C6: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007255CC: mov ebx, [00401430h] ; __vbaFreeStr
+  loc_007255D2: lea ecx, var_14
+  loc_007255D5: call ebx
+  loc_007255D7: lea ecx, var_18
+  loc_007255DA: call [0040142Ch] ; __vbaFreeObj
+  loc_007255E0: sub esp, 00000010h
+  loc_007255E3: mov ecx, 00000008h
+  loc_007255E8: mov edx, esp
+  loc_007255EA: mov eax, 0044DDBCh ; "-1"
+  loc_007255EF: push 004537C0h ; "GoldPassRemember"
+  loc_007255F4: push 0044317Ch ; "UserInfo"
+  loc_007255F9: mov [edx], ecx
+  loc_007255FB: mov ecx, var_24
+  loc_007255FE: push 004537A4h ; "BonziBUDDY"
+  loc_00725603: mov [edx+00000004h], ecx
+  loc_00725606: mov [edx+00000008h], eax
+  loc_00725609: mov eax, var_1C
+  loc_0072560C: mov [edx+0000000Ch], eax
+  loc_0072560F: call [00401354h] ; rtcGetSetting
+  loc_00725615: mov edx, eax
+  loc_00725617: lea ecx, var_14
+  loc_0072561A: call [004013C0h] ; __vbaStrMove
+  loc_00725620: push eax
+  loc_00725621: call [00401434h] ; rtcR8ValFromBstr
+  loc_00725627: call [00401168h] ; __vbaFpR8
+  loc_0072562D: fcomp real8 ptr [004073C8h]
+  loc_00725633: fnstsw ax
+  loc_00725635: test ah, 40h
+  loc_00725638: jz 00725641h
+  loc_0072563A: mov edi, 00000001h
+  loc_0072563F: jmp 00725643h
+  loc_00725641: xor edi, edi
+  loc_00725643: lea ecx, var_14
+  loc_00725646: call ebx
+  loc_00725648: mov ecx, [esi]
+  loc_0072564A: push esi
+  loc_0072564B: neg edi
+  loc_0072564D: test di, di
+  loc_00725650: jz 00725732h
+  loc_00725656: call [ecx+00000304h]
+  loc_0072565C: lea edx, var_18
+  loc_0072565F: push eax
+  loc_00725660: push edx
+  loc_00725661: call [00401128h] ; __vbaObjSet
+  loc_00725667: mov edi, eax
+  loc_00725669: mov ecx, 00000001h
+  loc_0072566E: mov ebx, [edi]
+  loc_00725670: call [004011E4h] ; __vbaI2I4
+  loc_00725676: push eax
+  loc_00725677: push edi
+  loc_00725678: call [ebx+000000E4h]
+  loc_0072567E: test eax, eax
+  loc_00725680: fnclex
+  loc_00725682: jge 00725696h
+  loc_00725684: push 000000E4h
+  loc_00725689: push 00446678h
+  loc_0072568E: push edi
+  loc_0072568F: push eax
+  loc_00725690: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725696: mov edi, [0040142Ch] ; __vbaFreeObj
+  loc_0072569C: lea ecx, var_18
+  loc_0072569F: call edi
+  loc_007256A1: mov eax, [esi]
+  loc_007256A3: push esi
+  loc_007256A4: call [eax+00000310h]
+  loc_007256AA: lea ecx, var_18
+  loc_007256AD: push eax
+  loc_007256AE: push ecx
+  loc_007256AF: call [00401128h] ; __vbaObjSet
+  loc_007256B5: sub esp, 00000010h
+  loc_007256B8: mov ecx, 00000008h
+  loc_007256BD: mov edx, esp
+  loc_007256BF: mov esi, eax
+  loc_007256C1: mov eax, 0043C9F4h
+  loc_007256C6: push 00453878h ; "GoldPass"
+  loc_007256CB: mov [edx], ecx
+  loc_007256CD: mov ecx, var_24
+  loc_007256D0: mov ebx, [esi]
+  loc_007256D2: push 0044317Ch ; "UserInfo"
+  loc_007256D7: mov [edx+00000004h], ecx
+  loc_007256DA: push 004537A4h ; "BonziBUDDY"
+  loc_007256DF: mov [edx+00000008h], eax
+  loc_007256E2: mov eax, var_1C
+  loc_007256E5: mov [edx+0000000Ch], eax
+  loc_007256E8: call [00401354h] ; rtcGetSetting
+  loc_007256EE: mov edx, eax
+  loc_007256F0: lea ecx, var_14
+  loc_007256F3: call [004013C0h] ; __vbaStrMove
+  loc_007256F9: push eax
+  loc_007256FA: push esi
+  loc_007256FB: call [ebx+000000A4h]
+  loc_00725701: test eax, eax
+  loc_00725703: fnclex
+  loc_00725705: jge 00725719h
+  loc_00725707: push 000000A4h
+  loc_0072570C: push 0043F42Ch
+  loc_00725711: push esi
+  loc_00725712: push eax
+  loc_00725713: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725719: lea ecx, var_14
+  loc_0072571C: call [00401430h] ; __vbaFreeStr
+  loc_00725722: lea ecx, var_18
+  loc_00725725: call edi
+  loc_00725727: fwait
+  loc_00725728: push 007257D7h
+  loc_0072572D: jmp 007257D6h
+  loc_00725732: call [ecx+00000304h]
+  loc_00725738: lea edx, var_18
+  loc_0072573B: push eax
+  loc_0072573C: push edx
+  loc_0072573D: call [00401128h] ; __vbaObjSet
+  loc_00725743: mov edi, eax
+  loc_00725745: xor ecx, ecx
+  loc_00725747: mov ebx, [edi]
+  loc_00725749: call [004011E4h] ; __vbaI2I4
+  loc_0072574F: push eax
+  loc_00725750: push edi
+  loc_00725751: call [ebx+000000E4h]
+  loc_00725757: test eax, eax
+  loc_00725759: fnclex
+  loc_0072575B: jge 0072576Fh
+  loc_0072575D: push 000000E4h
+  loc_00725762: push 00446678h
+  loc_00725767: push edi
+  loc_00725768: push eax
+  loc_00725769: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0072576F: mov edi, [0040142Ch] ; __vbaFreeObj
+  loc_00725775: lea ecx, var_18
+  loc_00725778: call edi
+  loc_0072577A: mov eax, [esi]
+  loc_0072577C: push esi
+  loc_0072577D: call [eax+00000310h]
+  loc_00725783: lea ecx, var_18
+  loc_00725786: push eax
+  loc_00725787: push ecx
+  loc_00725788: call [00401128h] ; __vbaObjSet
+  loc_0072578E: mov esi, eax
+  loc_00725790: push 0043C9F4h
+  loc_00725795: push esi
+  loc_00725796: mov edx, [esi]
+  loc_00725798: call [edx+000000A4h]
+  loc_0072579E: test eax, eax
+  loc_007257A0: fnclex
+  loc_007257A2: jge 007257B6h
+  loc_007257A4: push 000000A4h
+  loc_007257A9: push 0043F42Ch
+  loc_007257AE: push esi
+  loc_007257AF: push eax
+  loc_007257B0: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007257B6: lea ecx, var_18
+  loc_007257B9: call edi
+  loc_007257BB: fwait
+  loc_007257BC: push 007257D7h
+  loc_007257C1: jmp 007257D6h
+  loc_007257C3: lea ecx, var_14
+  loc_007257C6: call [00401430h] ; __vbaFreeStr
+  loc_007257CC: lea ecx, var_18
+  loc_007257CF: call [0040142Ch] ; __vbaFreeObj
+  loc_007257D5: ret
+  loc_007257D6: ret
+  loc_007257D7: mov ecx, var_10
+  loc_007257DA: pop edi
+  loc_007257DB: pop esi
+  loc_007257DC: xor eax, eax
+  loc_007257DE: mov fs:[00000000h], ecx
+  loc_007257E5: pop ebx
+  loc_007257E6: mov esp, ebp
+  loc_007257E8: pop ebp
+  loc_007257E9: retn 0004h
+End Sub
+
+Private Sub Proc_72_4_7257F0
+  loc_007257F0: push ebp
+  loc_007257F1: mov ebp, esp
+  loc_007257F3: sub esp, 00000008h
+  loc_007257F6: push 00412856h ; __vbaExceptHandler
+  loc_007257FB: mov eax, fs:[00000000h]
+  loc_00725801: push eax
+  loc_00725802: mov fs:[00000000h], esp
+  loc_00725809: sub esp, 0000001Ch
+  loc_0072580C: push ebx
+  loc_0072580D: push esi
+  loc_0072580E: push edi
+  loc_0072580F: mov var_8, esp
+  loc_00725812: mov var_4, 00411FC0h
+  loc_00725819: mov esi, Me
+  loc_0072581C: xor eax, eax
+  loc_0072581E: mov var_14, eax
+  loc_00725821: mov var_18, eax
+  loc_00725824: mov var_1C, eax
+  loc_00725827: mov eax, [esi]
+  loc_00725829: push esi
+  loc_0072582A: call [eax+0000030Ch]
+  loc_00725830: mov edi, [00401128h] ; __vbaObjSet
+  loc_00725836: lea ecx, var_18
+  loc_00725839: push eax
+  loc_0072583A: push ecx
+  loc_0072583B: call edi
+  loc_0072583D: mov ebx, eax
+  loc_0072583F: lea eax, var_14
+  loc_00725842: push eax
+  loc_00725843: push ebx
+  loc_00725844: mov edx, [ebx]
+  loc_00725846: call [edx+000000A0h]
+  loc_0072584C: test eax, eax
+  loc_0072584E: fnclex
+  loc_00725850: jge 00725864h
+  loc_00725852: push 000000A0h
+  loc_00725857: push 0043F42Ch
+  loc_0072585C: push ebx
+  loc_0072585D: push eax
+  loc_0072585E: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725864: mov ecx, var_14
+  loc_00725867: mov ebx, [00401010h] ; rtcSaveSetting
+  loc_0072586D: push ecx
+  loc_0072586E: push 00453860h ; "GoldEmail"
+  loc_00725873: push 0044317Ch ; "UserInfo"
+  loc_00725878: push 004537A4h ; "BonziBUDDY"
+  loc_0072587D: call ebx
+  loc_0072587F: lea ecx, var_14
+  loc_00725882: call [00401430h] ; __vbaFreeStr
+  loc_00725888: lea ecx, var_18
+  loc_0072588B: call [0040142Ch] ; __vbaFreeObj
+  loc_00725891: mov edx, [esi]
+  loc_00725893: push esi
+  loc_00725894: call [edx+00000304h]
+  loc_0072589A: push eax
+  loc_0072589B: lea eax, var_18
+  loc_0072589E: push eax
+  loc_0072589F: call edi
+  loc_007258A1: mov edi, eax
+  loc_007258A3: lea edx, var_1C
+  loc_007258A6: push edx
+  loc_007258A7: push edi
+  loc_007258A8: mov ecx, [edi]
+  loc_007258AA: call [ecx+000000E0h]
+  loc_007258B0: test eax, eax
+  loc_007258B2: fnclex
+  loc_007258B4: jge 007258C8h
+  loc_007258B6: push 000000E0h
+  loc_007258BB: push 00446678h
+  loc_007258C0: push edi
+  loc_007258C1: push eax
+  loc_007258C2: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007258C8: xor eax, eax
+  loc_007258CA: cmp var_1C, 0001h
+  loc_007258CF: lea ecx, var_18
+  loc_007258D2: setz al
+  loc_007258D5: neg eax
+  loc_007258D7: mov edi, eax
+  loc_007258D9: call [0040142Ch] ; __vbaFreeObj
+  loc_007258DF: test di, di
+  loc_007258E2: jz 0072593Bh
+  loc_007258E4: push 0044DDBCh ; "-1"
+  loc_007258E9: push 004537C0h ; "GoldPassRemember"
+  loc_007258EE: push 0044317Ch ; "UserInfo"
+  loc_007258F3: push 004537A4h ; "BonziBUDDY"
+  loc_007258F8: call ebx
+  loc_007258FA: mov ecx, [esi]
+  loc_007258FC: push esi
+  loc_007258FD: call [ecx+00000310h]
+  loc_00725903: lea edx, var_18
+  loc_00725906: push eax
+  loc_00725907: push edx
+  loc_00725908: call [00401128h] ; __vbaObjSet
+  loc_0072590E: mov esi, eax
+  loc_00725910: lea ecx, var_14
+  loc_00725913: push ecx
+  loc_00725914: push esi
+  loc_00725915: mov eax, [esi]
+  loc_00725917: call [eax+000000A0h]
+  loc_0072591D: test eax, eax
+  loc_0072591F: fnclex
+  loc_00725921: jge 00725935h
+  loc_00725923: push 000000A0h
+  loc_00725928: push 0043F42Ch
+  loc_0072592D: push esi
+  loc_0072592E: push eax
+  loc_0072592F: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00725935: mov edx, var_14
+  loc_00725938: push edx
+  loc_00725939: jmp 00725990h
+  loc_0072593B: push 0044402Ch
+  loc_00725940: push 004537C0h ; "GoldPassRemember"
+  loc_00725945: push 0044317Ch ; "UserInfo"
+  loc_0072594A: push 004537A4h ; "BonziBUDDY"
+  loc_0072594F: call ebx
+  loc_00725951: mov eax, [esi]
+  loc_00725953: push esi
+  loc_00725954: call [eax+00000310h]
+  loc_0072595A: lea ecx, var_18
+  loc_0072595D: push eax
+  loc_0072595E: push ecx
+  loc_0072595F: call [00401128h] ; __vbaObjSet
+  loc_00725965: mov esi, eax
+  loc_00725967: lea eax, var_14
+  loc_0072596A: push eax
+  loc_0072596B: push esi
+  loc_0072596C: mov edx, [esi]
+  loc_0072596E: call [edx+000000A0h]
+  loc_00725974: test eax, eax
+  loc_00725976: fnclex
+  loc_00725978: jge 0072598Ch
+  loc_0072597A: push 000000A0h
+  loc_0072597F: push 0043F42Ch
+  loc_00725984: push esi
+  loc_00725985: push eax
+  loc_00725986: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0072598C: mov ecx, var_14
+  loc_0072598F: push ecx
+  loc_00725990: push 00453878h ; "GoldPass"
+  loc_00725995: push 0044317Ch ; "UserInfo"
+  loc_0072599A: push 004537A4h ; "BonziBUDDY"
+  loc_0072599F: call ebx
+  loc_007259A1: lea ecx, var_14
+  loc_007259A4: call [00401430h] ; __vbaFreeStr
+  loc_007259AA: lea ecx, var_18
+  loc_007259AD: call [0040142Ch] ; __vbaFreeObj
+  loc_007259B3: push 007259CEh
+  loc_007259B8: jmp 007259CDh
+  loc_007259BA: lea ecx, var_14
+  loc_007259BD: call [00401430h] ; __vbaFreeStr
+  loc_007259C3: lea ecx, var_18
+  loc_007259C6: call [0040142Ch] ; __vbaFreeObj
+  loc_007259CC: ret
+  loc_007259CD: ret
+  loc_007259CE: mov ecx, var_10
+  loc_007259D1: pop edi
+  loc_007259D2: pop esi
+  loc_007259D3: xor eax, eax
+  loc_007259D5: mov fs:[00000000h], ecx
+  loc_007259DC: pop ebx
+  loc_007259DD: mov esp, ebp
+  loc_007259DF: pop ebp
+  loc_007259E0: retn 0004h
+End Sub

Src Code/frmGoldPasswordEntry.frm

@@ -0,0 +1,334 @@
+VERSION 5.00
+Begin VB.Form frmGoldPasswordEntry
+  Caption = "Please enter your Gold Member Password"
+  ScaleMode = 0
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 3 'Fixed Dialog
+  Icon = "frmGoldPasswordEntry.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  ClientLeft = 2835
+  ClientTop = 3480
+  ClientWidth = 4410
+  ClientHeight = 1290
+  ScaleLeft = 0
+  ScaleTop = 0
+  ScaleWidth = 4140.751
+  ScaleHeight = 762.175
+  ShowInTaskbar = 0   'False
+  StartUpPosition = 2 'CenterScreen
+  Begin VB.CommandButton cmdOK
+    Caption = "OK"
+    Left = 833
+    Top = 780
+    Width = 1140
+    Height = 390
+    TabIndex = 2
+    Default = -1  'True
+  End
+  Begin VB.CommandButton cmdCancel
+    Caption = "Cancel"
+    Left = 2438
+    Top = 780
+    Width = 1140
+    Height = 390
+    TabIndex = 3
+    Cancel = -1  'True
+  End
+  Begin VB.TextBox txtPassword
+    Left = 1155
+    Top = 195
+    Width = 2445
+    Height = 405
+    TabIndex = 1
+    PasswordChar = "*"
+  End
+  Begin VB.Label lblLabels
+    Caption = "&Password:  "
+    Index = 1
+    Left = 210
+    Top = 300
+    Width = 825
+    Height = 195
+    TabIndex = 0
+    AutoSize = -1  'True
+  End
+End
+
+Attribute VB_Name = "frmGoldPasswordEntry"
+
+Public g_blnGoldLoginSucceeded As Boolean
+
+
+Private Sub cmdOK_Click() '728140
+  loc_00728140: push ebp
+  loc_00728141: mov ebp, esp
+  loc_00728143: sub esp, 0000000Ch
+  loc_00728146: push 00412856h ; __vbaExceptHandler
+  loc_0072814B: mov eax, fs:[00000000h]
+  loc_00728151: push eax
+  loc_00728152: mov fs:[00000000h], esp
+  loc_00728159: sub esp, 00000050h
+  loc_0072815C: push ebx
+  loc_0072815D: push esi
+  loc_0072815E: push edi
+  loc_0072815F: mov var_C, esp
+  loc_00728162: mov var_8, 00412158h
+  loc_00728169: mov edi, Me
+  loc_0072816C: mov eax, edi
+  loc_0072816E: and eax, 00000001h
+  loc_00728171: mov var_4, eax
+  loc_00728174: and edi, FFFFFFFEh
+  loc_00728177: push edi
+  loc_00728178: mov Me, edi
+  loc_0072817B: mov ecx, [edi]
+  loc_0072817D: call [ecx+00000004h]
+  loc_00728180: mov edx, [edi]
+  loc_00728182: xor ebx, ebx
+  loc_00728184: push edi
+  loc_00728185: mov var_18, ebx
+  loc_00728188: mov var_1C, ebx
+  loc_0072818B: mov var_20, ebx
+  loc_0072818E: mov var_30, ebx
+  loc_00728191: mov var_50, ebx
+  loc_00728194: call [edx+00000304h]
+  loc_0072819A: push eax
+  loc_0072819B: lea eax, var_20
+  loc_0072819E: push eax
+  loc_0072819F: call [00401128h] ; __vbaObjSet
+  loc_007281A5: mov esi, eax
+  loc_007281A7: lea edx, var_18
+  loc_007281AA: push edx
+  loc_007281AB: push esi
+  loc_007281AC: mov ecx, [esi]
+  loc_007281AE: call [ecx+000000A0h]
+  loc_007281B4: cmp eax, ebx
+  loc_007281B6: fnclex
+  loc_007281B8: jge 007281CCh
+  loc_007281BA: push 000000A0h
+  loc_007281BF: push 0043F42Ch
+  loc_007281C4: push esi
+  loc_007281C5: push eax
+  loc_007281C6: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007281CC: mov edx, var_18
+  loc_007281CF: mov ecx, 00000008h
+  loc_007281D4: push edx
+  loc_007281D5: mov eax, 0043C9F4h
+  loc_007281DA: sub esp, 00000010h
+  loc_007281DD: mov edx, esp
+  loc_007281DF: push 00453878h ; "GoldPass"
+  loc_007281E4: push 0044317Ch ; "UserInfo"
+  loc_007281E9: mov [edx], ecx
+  loc_007281EB: mov ecx, var_3C
+  loc_007281EE: push 004537A4h ; "BonziBUDDY"
+  loc_007281F3: mov [edx+00000004h], ecx
+  loc_007281F6: mov [edx+00000008h], eax
+  loc_007281F9: mov eax, var_34
+  loc_007281FC: mov [edx+0000000Ch], eax
+  loc_007281FF: call [00401354h] ; rtcGetSetting
+  loc_00728205: mov edx, eax
+  loc_00728207: lea ecx, var_1C
+  loc_0072820A: call [004013C0h] ; __vbaStrMove
+  loc_00728210: push eax
+  loc_00728211: call [004011B8h] ; __vbaStrCmp
+  loc_00728217: mov esi, eax
+  loc_00728219: lea ecx, var_1C
+  loc_0072821C: neg esi
+  loc_0072821E: sbb esi, esi
+  loc_00728220: lea edx, var_18
+  loc_00728223: push ecx
+  loc_00728224: inc esi
+  loc_00728225: push edx
+  loc_00728226: push 00000002h
+  loc_00728228: neg esi
+  loc_0072822A: call [00401324h] ; __vbaFreeStrList
+  loc_00728230: mov ebx, [0040142Ch] ; __vbaFreeObj
+  loc_00728236: add esp, 0000000Ch
+  loc_00728239: lea ecx, var_20
+  loc_0072823C: call ebx
+  loc_0072823E: test si, si
+  loc_00728241: jz 00728273h
+  loc_00728243: mov eax, [edi]
+  loc_00728245: push edi
+  loc_00728246: mov [edi+00000034h], FFFFFFh
+  loc_0072824C: call [eax+000002B4h]
+  loc_00728252: test eax, eax
+  loc_00728254: fnclex
+  loc_00728256: jge 00728389h
+  loc_0072825C: push 000002B4h
+  loc_00728261: push 004762D4h
+  loc_00728266: push edi
+  loc_00728267: push eax
+  loc_00728268: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0072826E: jmp 00728389h
+  loc_00728273: mov eax, [0073A08Ch]
+  loc_00728278: lea edx, var_20
+  loc_0072827B: push edx
+  loc_0072827C: push 004522E4h ; "Sad"
+  loc_00728281: mov ecx, [eax]
+  loc_00728283: push eax
+  loc_00728284: call [ecx+00000064h]
+  loc_00728287: test eax, eax
+  loc_00728289: fnclex
+  loc_0072828B: jge 007282A2h
+  loc_0072828D: mov ecx, [0073A08Ch]
+  loc_00728293: push 00000064h
+  loc_00728295: push 004419ACh
+  loc_0072829A: push ecx
+  loc_0072829B: push eax
+  loc_0072829C: call [004010CCh] ; __vbaHresultCheckObj
+  loc_007282A2: lea ecx, var_20
+  loc_007282A5: call ebx
+  loc_007282A7: lea ebx, var_20
+  loc_007282AA: mov ecx, 0000000Ah
+  loc_007282AF: push ebx
+  loc_007282B0: mov eax, 80020004h
+  loc_007282B5: sub esp, 00000010h
+  loc_007282B8: mov esi, [0073A08Ch]
+  loc_007282BE: mov ebx, esp
+  loc_007282C0: sub esp, 00000010h
+  loc_007282C3: mov var_40, 00000008h
+  loc_007282CA: mov esi, [esi]
+  loc_007282CC: mov [ebx], ecx
+  loc_007282CE: mov ecx, var_4C
+  loc_007282D1: mov edx, 00476324h ; "Invalid password, please try again!"
+  loc_007282D6: mov [ebx+00000004h], ecx
+  loc_007282D9: mov ecx, esp
+  loc_007282DB: mov [ebx+00000008h], eax
+  loc_007282DE: mov eax, var_44
+  loc_007282E1: mov [ebx+0000000Ch], eax
+  loc_007282E4: mov eax, var_40
+  loc_007282E7: mov [ecx], eax
+  loc_007282E9: mov eax, var_3C
+  loc_007282EC: mov [ecx+00000004h], eax
+  loc_007282EF: mov eax, [0073A08Ch]
+  loc_007282F4: push eax
+  loc_007282F5: mov [ecx+00000008h], edx
+  loc_007282F8: mov edx, var_34
+  loc_007282FB: mov [ecx+0000000Ch], edx
+  loc_007282FE: call [esi+00000078h]
+  loc_00728301: test eax, eax
+  loc_00728303: fnclex
+  loc_00728305: jge 0072831Ch
+  loc_00728307: mov ecx, [0073A08Ch]
+  loc_0072830D: push 00000078h
+  loc_0072830F: push 004419ACh
+  loc_00728314: push ecx
+  loc_00728315: push eax
+  loc_00728316: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0072831C: mov ebx, [0040142Ch] ; __vbaFreeObj
+  loc_00728322: lea ecx, var_20
+  loc_00728325: call ebx
+  loc_00728327: mov edx, [edi]
+  loc_00728329: push edi
+  loc_0072832A: call [edx+00000304h]
+  loc_00728330: push eax
+  loc_00728331: lea eax, var_20
+  loc_00728334: push eax
+  loc_00728335: call [00401128h] ; __vbaObjSet
+  loc_0072833B: mov esi, eax
+  loc_0072833D: push esi
+  loc_0072833E: mov ecx, [esi]
+  loc_00728340: call [ecx+00000204h]
+  loc_00728346: test eax, eax
+  loc_00728348: fnclex
+  loc_0072834A: jge 0072835Eh
+  loc_0072834C: push 00000204h
+  loc_00728351: push 0043F42Ch
+  loc_00728356: push esi
+  loc_00728357: push eax
+  loc_00728358: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0072835E: lea ecx, var_20
+  loc_00728361: call ebx
+  loc_00728363: lea edx, var_30
+  loc_00728366: mov var_28, 80020004h
+  loc_0072836D: push edx
+  loc_0072836E: push 00476370h ; "{Home}+{End}"
+  loc_00728373: mov var_30, 0000000Ah
+  loc_0072837A: call [00401140h] ; rtcSendKeys
+  loc_00728380: lea ecx, var_30
+  loc_00728383: call [00401030h] ; __vbaFreeVar
+  loc_00728389: mov var_4, 00000000h
+  loc_00728390: push 007283BEh
+  loc_00728395: jmp 007283BDh
+  loc_00728397: lea eax, var_1C
+  loc_0072839A: lea ecx, var_18
+  loc_0072839D: push eax
+  loc_0072839E: push ecx
+  loc_0072839F: push 00000002h
+  loc_007283A1: call [00401324h] ; __vbaFreeStrList
+  loc_007283A7: add esp, 0000000Ch
+  loc_007283AA: lea ecx, var_20
+  loc_007283AD: call [0040142Ch] ; __vbaFreeObj
+  loc_007283B3: lea ecx, var_30
+  loc_007283B6: call [00401030h] ; __vbaFreeVar
+  loc_007283BC: ret
+  loc_007283BD: ret
+  loc_007283BE: mov eax, Me
+  loc_007283C1: push eax
+  loc_007283C2: mov edx, [eax]
+  loc_007283C4: call [edx+00000008h]
+  loc_007283C7: mov eax, var_4
+  loc_007283CA: mov ecx, var_14
+  loc_007283CD: pop edi
+  loc_007283CE: pop esi
+  loc_007283CF: mov fs:[00000000h], ecx
+  loc_007283D6: pop ebx
+  loc_007283D7: mov esp, ebp
+  loc_007283D9: pop ebp
+  loc_007283DA: retn 0004h
+End Sub
+
+Private Sub cmdCancel_Click() '7280B0
+  loc_007280B0: push ebp
+  loc_007280B1: mov ebp, esp
+  loc_007280B3: sub esp, 0000000Ch
+  loc_007280B6: push 00412856h ; __vbaExceptHandler
+  loc_007280BB: mov eax, fs:[00000000h]
+  loc_007280C1: push eax
+  loc_007280C2: mov fs:[00000000h], esp
+  loc_007280C9: sub esp, 0000000Ch
+  loc_007280CC: push ebx
+  loc_007280CD: push esi
+  loc_007280CE: push edi
+  loc_007280CF: mov var_C, esp
+  loc_007280D2: mov var_8, 00412150h
+  loc_007280D9: mov esi, Me
+  loc_007280DC: mov eax, esi
+  loc_007280DE: and eax, 00000001h
+  loc_007280E1: mov var_4, eax
+  loc_007280E4: and esi, FFFFFFFEh
+  loc_007280E7: push esi
+  loc_007280E8: mov Me, esi
+  loc_007280EB: mov ecx, [esi]
+  loc_007280ED: call [ecx+00000004h]
+  loc_007280F0: mov edx, [esi]
+  loc_007280F2: xor edi, edi
+  loc_007280F4: push esi
+  loc_007280F5: mov [esi+00000034h], di
+  loc_007280F9: call [edx+000002B4h]
+  loc_007280FF: cmp eax, edi
+  loc_00728101: fnclex
+  loc_00728103: jge 00728117h
+  loc_00728105: push 000002B4h
+  loc_0072810A: push 004762D4h
+  loc_0072810F: push esi
+  loc_00728110: push eax
+  loc_00728111: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00728117: mov var_4, edi
+  loc_0072811A: mov eax, Me
+  loc_0072811D: push eax
+  loc_0072811E: mov ecx, [eax]
+  loc_00728120: call [ecx+00000008h]
+  loc_00728123: mov eax, var_4
+  loc_00728126: mov ecx, var_14
+  loc_00728129: pop edi
+  loc_0072812A: pop esi
+  loc_0072812B: mov fs:[00000000h], ecx
+  loc_00728132: pop ebx
+  loc_00728133: mov esp, ebp
+  loc_00728135: pop ebp
+  loc_00728136: retn 0004h
+End Sub

Src Code/frmInput.frm

@@ -0,0 +1,990 @@
+VERSION 5.00
+Begin VB.Form frmInput
+  Caption = "Form1"
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 1 'Fixed Single
+  Icon = "frmInput.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  ClientLeft = 45
+  ClientTop = 330
+  ClientWidth = 4680
+  ClientHeight = 3330
+  LockControls = -1  'True
+  StartUpPosition = 2 'CenterScreen
+  Begin VB.CommandButton cmdOK
+    Caption = "&OK"
+    Left = 780
+    Top = 2670
+    Width = 1155
+    Height = 405
+    TabIndex = 1
+    Default = -1  'True
+  End
+  Begin VB.CommandButton cmdCancel
+    Caption = "&Cancel"
+    Left = 2640
+    Top = 2670
+    Width = 1155
+    Height = 405
+    TabIndex = 2
+  End
+  Begin VB.Frame fraQuestion
+    Left = 90
+    Top = 1350
+    Width = 4455
+    Height = 1005
+    TabIndex = 3
+    Begin VB.TextBox txtAnswer
+      Left = 150
+      Top = 390
+      Width = 4155
+      Height = 345
+      TabIndex = 0
+      MultiLine = -1  'True
+    End
+  End
+  Begin VB.Label lblDescription
+    Left = 270
+    Top = 210
+    Width = 4125
+    Height = 915
+    TabIndex = 4
+  End
+End
+
+Attribute VB_Name = "frmInput"
+
+'VA: 477474
+Private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
+'VA: 474B2C
+Private Declare Function GetFocus Lib "user32" () As Long
+'VA: 474AE8
+Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
+'VA: 474AA4
+Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
+'VA: 474A5C
+Private Declare Sub OleTranslateColor Lib "olepro32"()
+'VA: 474A14
+Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
+'VA: 4749D0
+Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
+'VA: 47496C
+Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
+'VA: 474928
+Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
+'VA: 4748E4
+Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
+'VA: 47489C
+Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
+'VA: 474850
+Private Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
+'VA: 474808
+Private Declare Function OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
+'VA: 4747C0
+Private Declare Function InflateRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
+'VA: 47477C
+Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
+'VA: 4567E8
+Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
+'VA: 4567A4
+Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
+'VA: 456758
+Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
+'VA: 44D838
+Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
+'VA: 44D7F4
+Private Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long
+'VA: 44D5E8
+Private Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
+'VA: 44D5A4
+Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
+'VA: 44CE84
+Private Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hwnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
+'VA: 44C904
+Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
+'VA: 4482F4
+Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
+'VA: 447A74
+Private Declare Function GetStretchBltMode Lib "gdi32" (ByVal hdc As Long) As Long
+'VA: 44748C
+Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
+'VA: 446970
+Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
+'VA: 44690C
+Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
+'VA: 4468C4
+Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
+'VA: 446880
+Private Declare Function ReleaseCapture Lib "user32" () As Long
+'VA: 446838
+Private Declare Function GetUpdateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
+'VA: 4467F0
+Private Declare Function GetTickCount Lib "kernel32" () As Long
+'VA: 4467A8
+Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
+'VA: 4433BC
+Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
+'VA: 4414F0
+Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
+'VA: 4408BC
+Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer
+'VA: 440874
+Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long
+'VA: 440828
+Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
+'VA: 4407E0
+Private Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
+'VA: 44079C
+Private Declare Function RasGetConnectStatus Lib "rasapi32" Alias "RasGetConnectStatusA" (ByVal hrasconn As Long, ByRef lprasconnstatusa As RASCONNSTATUS) As Long
+'VA: 44074C
+Private Declare Function RasEnumConnections Lib "rasapi32" Alias "RasEnumConnectionsA" (ByRef lprasconna As RASCONN, ByRef lpdword As Long, ByRef lpdword As Long) As Long
+'VA: 4406EC
+Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
+'VA: 44069C
+Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
+'VA: 44065C
+Private Declare Function ShowOwnedPopups Lib "user32" (ByVal hwnd As Long, ByVal fShow As Long) As Long
+'VA: 440614
+Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
+'VA: 4405A0
+Private Declare Function GetSaveFileName Lib "comdlg32" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
+'VA: 43E468
+Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
+'VA: 43DEC4
+Private Declare Function AllowSetForegroundWindow Lib "user32" (ByVal dwProcessId As Long) As Long
+'VA: 43D8B4
+Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
+'VA: 43D870
+Private Declare Function DrawFrameControl Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal un1 As Long, ByVal un2 As Long) As Long
+'VA: 43D824
+Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
+'VA: 43D7DC
+Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
+'VA: 43D7A4
+Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
+'VA: 43D760
+Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
+'VA: 43D71C
+Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
+'VA: 43D6D8
+Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
+'VA: 43D694
+Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
+'VA: 43D650
+Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
+'VA: 43D610
+Private Declare Function SetTextAlign Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long
+'VA: 43D5AC
+Private Declare Function ExtTextOut Lib "gdi32" Alias "ExtTextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal wOptions As Long, lpRect As Rect, ByVal lpString As String, ByVal nCount As Long, lpDx As Long) As Long
+'VA: 43D568
+Private Declare Function ExtTextOut Lib "gdi32" Alias "ExtTextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal wOptions As Long, lpRect As Rect, ByVal lpString As String, ByVal nCount As Long, lpDx As Long) As Long
+'VA: 43D524
+Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
+'VA: 43D4E0
+Private Declare Function GetCurrentPositionEx Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI) As Long
+'VA: 43D490
+Private Declare Function GetLastError Lib "kernel32" () As Long
+'VA: 43D448
+Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As DEVMODE) As Long
+'VA: 43D400
+Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
+'VA: 43D3B8
+Private Declare Function GetDesktopWindow Lib "user32" () As Long
+'VA: 43D36C
+Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
+'VA: 43D328
+Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long
+'VA: 43D2DC
+Private Declare Function OleTranslateColor Lib "oleaut32" (ByVal lOleColor As Long, ByVal lHPalette As Long, lColorRef As Long) As Long
+'VA: 43D27C
+Private Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
+'VA: 43D234
+Private Declare Function DrawState Lib "user32" Alias "DrawStateA" (ByVal hDC As Long, ByVal hBrush As Long, ByVal lpDrawStateProc As Long, ByVal lParam As Long, ByVal wParam As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, ByVal un As Long) As Long
+'VA: 43D1F0
+Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As SIZE) As Long
+'VA: 43D1A0
+Private Declare Function InvertRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
+'VA: 43D15C
+Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
+'VA: 43D114
+Private Declare Function CreateHalftonePalette Lib "gdi32" (ByVal hdc As Long) As Long
+'VA: 43D0C4
+Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
+'VA: 43D05C
+Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
+'VA: 43D018
+Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
+'VA: 43CFD0
+Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
+'VA: 43CF88
+Private Declare Function GetTextColor Lib "gdi32" (ByVal hdc As Long) As Long
+'VA: 43CF40
+Private Declare Function GetBkColor Lib "gdi32" (ByVal hdc As Long) As Long
+'VA: 43CEFC
+Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
+'VA: 43CEB4
+Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
+'VA: 43CE6C
+Private Declare Function PatBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long
+'VA: 43CE2C
+Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
+'VA: 43CDEC
+Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
+'VA: 43CDA8
+Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
+'VA: 43CD64
+Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
+'VA: 43CD1C
+Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
+'VA: 43CCD0
+Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
+'VA: 43CC80
+Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
+'VA: 43CC3C
+Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
+'VA: 43CBF0
+Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
+'VA: 43CBAC
+Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
+'VA: 43CB6C
+Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
+'VA: 43CB08
+Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
+
+
+Private Sub cmdCancel_Click() '5BD590
+  loc_005BD590: push ebp
+  loc_005BD591: mov ebp, esp
+  loc_005BD593: sub esp, 0000000Ch
+  loc_005BD596: push 00412856h ; __vbaExceptHandler
+  loc_005BD59B: mov eax, fs:[00000000h]
+  loc_005BD5A1: push eax
+  loc_005BD5A2: mov fs:[00000000h], esp
+  loc_005BD5A9: sub esp, 0000001Ch
+  loc_005BD5AC: push ebx
+  loc_005BD5AD: push esi
+  loc_005BD5AE: push edi
+  loc_005BD5AF: mov var_C, esp
+  loc_005BD5B2: mov var_8, 00401440h
+  loc_005BD5B9: mov esi, Me
+  loc_005BD5BC: mov eax, esi
+  loc_005BD5BE: and eax, 00000001h
+  loc_005BD5C1: mov var_4, eax
+  loc_005BD5C4: and esi, FFFFFFFEh
+  loc_005BD5C7: push esi
+  loc_005BD5C8: mov Me, esi
+  loc_005BD5CB: mov ecx, [esi]
+  loc_005BD5CD: call [ecx+00000004h]
+  loc_005BD5D0: mov edx, [esi]
+  loc_005BD5D2: xor ebx, ebx
+  loc_005BD5D4: push esi
+  loc_005BD5D5: mov var_18, ebx
+  loc_005BD5D8: mov var_1C, ebx
+  loc_005BD5DB: mov var_20, ebx
+  loc_005BD5DE: call [edx+00000308h]
+  loc_005BD5E4: push eax
+  loc_005BD5E5: lea eax, var_18
+  loc_005BD5E8: push eax
+  loc_005BD5E9: call [00401128h] ; __vbaObjSet
+  loc_005BD5EF: mov edi, eax
+  loc_005BD5F1: push 0043C9F4h
+  loc_005BD5F6: push edi
+  loc_005BD5F7: mov ecx, [edi]
+  loc_005BD5F9: call [ecx+000000A4h]
+  loc_005BD5FF: cmp eax, ebx
+  loc_005BD601: fnclex
+  loc_005BD603: jge 005BD617h
+  loc_005BD605: push 000000A4h
+  loc_005BD60A: push 0043F42Ch
+  loc_005BD60F: push edi
+  loc_005BD610: push eax
+  loc_005BD611: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BD617: mov edi, [0040142Ch] ; __vbaFreeObj
+  loc_005BD61D: lea ecx, var_18
+  loc_005BD620: call edi
+  loc_005BD622: push 00440B00h
+  loc_005BD627: push esi
+  loc_005BD628: mov var_20, ebx
+  loc_005BD62B: mov var_1C, ebx
+  loc_005BD62E: call [004013C4h] ; __vbaCastObj
+  loc_005BD634: lea edx, var_18
+  loc_005BD637: push eax
+  loc_005BD638: push edx
+  loc_005BD639: call [00401128h] ; __vbaObjSet
+  loc_005BD63F: mov eax, [0073A218h]
+  loc_005BD644: lea edx, var_20
+  loc_005BD647: push edx
+  loc_005BD648: lea edx, var_1C
+  loc_005BD64B: mov ecx, [eax]
+  loc_005BD64D: push edx
+  loc_005BD64E: lea edx, var_18
+  loc_005BD651: push edx
+  loc_005BD652: push eax
+  loc_005BD653: call [ecx+0000001Ch]
+  loc_005BD656: cmp eax, ebx
+  loc_005BD658: fnclex
+  loc_005BD65A: jge 005BD671h
+  loc_005BD65C: mov ecx, [0073A218h]
+  loc_005BD662: push 0000001Ch
+  loc_005BD664: push 00440B10h
+  loc_005BD669: push ecx
+  loc_005BD66A: push eax
+  loc_005BD66B: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BD671: lea ecx, var_18
+  loc_005BD674: call edi
+  loc_005BD676: mov edx, [esi]
+  loc_005BD678: push esi
+  loc_005BD679: call [edx+000002B4h]
+  loc_005BD67F: cmp eax, ebx
+  loc_005BD681: fnclex
+  loc_005BD683: jge 005BD697h
+  loc_005BD685: push 000002B4h
+  loc_005BD68A: push 0044034Ch ; "uÚ.ÇFK*D¸5Å3YÚ™ðJmá­vÅUBµfúCÆõŒ'^¢w³" & Chr(11) & "m¿A»˜"
+  loc_005BD68F: push esi
+  loc_005BD690: push eax
+  loc_005BD691: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BD697: mov var_4, ebx
+  loc_005BD69A: push 005BD6ACh
+  loc_005BD69F: jmp 005BD6ABh
+  loc_005BD6A1: lea ecx, var_18
+  loc_005BD6A4: call [0040142Ch] ; __vbaFreeObj
+  loc_005BD6AA: ret
+  loc_005BD6AB: ret
+  loc_005BD6AC: mov eax, Me
+  loc_005BD6AF: push eax
+  loc_005BD6B0: mov ecx, [eax]
+  loc_005BD6B2: call [ecx+00000008h]
+  loc_005BD6B5: mov eax, var_4
+  loc_005BD6B8: mov ecx, var_14
+  loc_005BD6BB: pop edi
+  loc_005BD6BC: pop esi
+  loc_005BD6BD: mov fs:[00000000h], ecx
+  loc_005BD6C4: pop ebx
+  loc_005BD6C5: mov esp, ebp
+  loc_005BD6C7: pop ebp
+  loc_005BD6C8: retn 0004h
+End Sub
+
+Private Sub Form_Load() '5BDD60
+  loc_005BDD60: push ebp
+  loc_005BDD61: mov ebp, esp
+  loc_005BDD63: sub esp, 0000000Ch
+  loc_005BDD66: push 00412856h ; __vbaExceptHandler
+  loc_005BDD6B: mov eax, fs:[00000000h]
+  loc_005BDD71: push eax
+  loc_005BDD72: mov fs:[00000000h], esp
+  loc_005BDD79: sub esp, 0000000Ch
+  loc_005BDD7C: push ebx
+  loc_005BDD7D: push esi
+  loc_005BDD7E: push edi
+  loc_005BDD7F: mov var_C, esp
+  loc_005BDD82: mov var_8, 00401480h
+  loc_005BDD89: mov esi, Me
+  loc_005BDD8C: mov eax, esi
+  loc_005BDD8E: and eax, 00000001h
+  loc_005BDD91: mov var_4, eax
+  loc_005BDD94: and esi, FFFFFFFEh
+  loc_005BDD97: push esi
+  loc_005BDD98: mov Me, esi
+  loc_005BDD9B: mov ecx, [esi]
+  loc_005BDD9D: call [ecx+00000004h]
+  loc_005BDDA0: mov edx, [esi]
+  loc_005BDDA2: push FFFFFFFFh
+  loc_005BDDA4: push esi
+  loc_005BDDA5: call [edx+000001D4h]
+  loc_005BDDAB: test eax, eax
+  loc_005BDDAD: fnclex
+  loc_005BDDAF: jge 005BDDC3h
+  loc_005BDDB1: push 000001D4h
+  loc_005BDDB6: push 0044034Ch ; "uÚ.ÇFK*D¸5Å3YÚ™ðJmá­vÅUBµfúCÆõŒ'^¢w³" & Chr(11) & "m¿A»˜"
+  loc_005BDDBB: push esi
+  loc_005BDDBC: push eax
+  loc_005BDDBD: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BDDC3: mov var_4, 00000000h
+  loc_005BDDCA: mov eax, Me
+  loc_005BDDCD: push eax
+  loc_005BDDCE: mov ecx, [eax]
+  loc_005BDDD0: call [ecx+00000008h]
+  loc_005BDDD3: mov eax, var_4
+  loc_005BDDD6: mov ecx, var_14
+  loc_005BDDD9: pop edi
+  loc_005BDDDA: pop esi
+  loc_005BDDDB: mov fs:[00000000h], ecx
+  loc_005BDDE2: pop ebx
+  loc_005BDDE3: mov esp, ebp
+  loc_005BDDE5: pop ebp
+  loc_005BDDE6: retn 0004h
+End Sub
+
+Private Sub Form_Activate() '5BD7D0
+  loc_005BD7D0: push ebp
+  loc_005BD7D1: mov ebp, esp
+  loc_005BD7D3: sub esp, 0000000Ch
+  loc_005BD7D6: push 00412856h ; __vbaExceptHandler
+  loc_005BD7DB: mov eax, fs:[00000000h]
+  loc_005BD7E1: push eax
+  loc_005BD7E2: mov fs:[00000000h], esp
+  loc_005BD7E9: sub esp, 0000001Ch
+  loc_005BD7EC: push ebx
+  loc_005BD7ED: push esi
+  loc_005BD7EE: push edi
+  loc_005BD7EF: mov var_C, esp
+  loc_005BD7F2: mov var_8, 00401460h
+  loc_005BD7F9: mov esi, Me
+  loc_005BD7FC: mov eax, esi
+  loc_005BD7FE: and eax, 00000001h
+  loc_005BD801: mov var_4, eax
+  loc_005BD804: and esi, FFFFFFFEh
+  loc_005BD807: push esi
+  loc_005BD808: mov Me, esi
+  loc_005BD80B: mov ecx, [esi]
+  loc_005BD80D: call [ecx+00000004h]
+  loc_005BD810: mov edx, [esi]
+  loc_005BD812: xor eax, eax
+  loc_005BD814: push esi
+  loc_005BD815: mov var_18, eax
+  loc_005BD818: mov var_1C, eax
+  loc_005BD81B: call [edx+00000308h]
+  loc_005BD821: mov ebx, [00401128h] ; __vbaObjSet
+  loc_005BD827: push eax
+  loc_005BD828: lea eax, var_18
+  loc_005BD82B: push eax
+  loc_005BD82C: call ebx
+  loc_005BD82E: mov edi, eax
+  loc_005BD830: lea edx, var_1C
+  loc_005BD833: push edx
+  loc_005BD834: push edi
+  loc_005BD835: mov ecx, [edi]
+  loc_005BD837: call [ecx+00000090h]
+  loc_005BD83D: test eax, eax
+  loc_005BD83F: fnclex
+  loc_005BD841: jge 005BD855h
+  loc_005BD843: push 00000090h
+  loc_005BD848: push 0043F42Ch
+  loc_005BD84D: push edi
+  loc_005BD84E: push eax
+  loc_005BD84F: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BD855: mov edi, var_1C
+  loc_005BD858: lea ecx, var_18
+  loc_005BD85B: call [0040142Ch] ; __vbaFreeObj
+  loc_005BD861: test di, di
+  loc_005BD864: jz 005BD8A2h
+  loc_005BD866: mov eax, [esi]
+  loc_005BD868: push esi
+  loc_005BD869: call [eax+00000308h]
+  loc_005BD86F: lea ecx, var_18
+  loc_005BD872: push eax
+  loc_005BD873: push ecx
+  loc_005BD874: call ebx
+  loc_005BD876: mov edi, eax
+  loc_005BD878: push edi
+  loc_005BD879: mov edx, [edi]
+  loc_005BD87B: call [edx+00000204h]
+  loc_005BD881: test eax, eax
+  loc_005BD883: fnclex
+  loc_005BD885: jge 005BD899h
+  loc_005BD887: push 00000204h
+  loc_005BD88C: push 0043F42Ch
+  loc_005BD891: push edi
+  loc_005BD892: push eax
+  loc_005BD893: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BD899: lea ecx, var_18
+  loc_005BD89C: call [0040142Ch] ; __vbaFreeObj
+  loc_005BD8A2: push 00440B00h
+  loc_005BD8A7: push esi
+  loc_005BD8A8: mov var_1C, 00000000h
+  loc_005BD8AF: call [004013C4h] ; __vbaCastObj
+  loc_005BD8B5: push eax
+  loc_005BD8B6: lea eax, var_18
+  loc_005BD8B9: push eax
+  loc_005BD8BA: call ebx
+  loc_005BD8BC: mov eax, [0073A218h]
+  loc_005BD8C1: lea edx, var_1C
+  loc_005BD8C4: push edx
+  loc_005BD8C5: lea edx, var_18
+  loc_005BD8C8: mov ecx, [eax]
+  loc_005BD8CA: push edx
+  loc_005BD8CB: push eax
+  loc_005BD8CC: call [ecx+00000020h]
+  loc_005BD8CF: test eax, eax
+  loc_005BD8D1: fnclex
+  loc_005BD8D3: jge 005BD8EAh
+  loc_005BD8D5: mov ecx, [0073A218h]
+  loc_005BD8DB: push 00000020h
+  loc_005BD8DD: push 00440B10h
+  loc_005BD8E2: push ecx
+  loc_005BD8E3: push eax
+  loc_005BD8E4: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BD8EA: lea ecx, var_18
+  loc_005BD8ED: call [0040142Ch] ; __vbaFreeObj
+  loc_005BD8F3: mov var_4, 00000000h
+  loc_005BD8FA: push 005BD90Ch
+  loc_005BD8FF: jmp 005BD90Bh
+  loc_005BD901: lea ecx, var_18
+  loc_005BD904: call [0040142Ch] ; __vbaFreeObj
+  loc_005BD90A: ret
+  loc_005BD90B: ret
+  loc_005BD90C: mov eax, Me
+  loc_005BD90F: push eax
+  loc_005BD910: mov edx, [eax]
+  loc_005BD912: call [edx+00000008h]
+  loc_005BD915: mov eax, var_4
+  loc_005BD918: mov ecx, var_14
+  loc_005BD91B: pop edi
+  loc_005BD91C: pop esi
+  loc_005BD91D: mov fs:[00000000h], ecx
+  loc_005BD924: pop ebx
+  loc_005BD925: mov esp, ebp
+  loc_005BD927: pop ebp
+  loc_005BD928: retn 0004h
+End Sub
+
+Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) '5BD930
+  loc_005BD930: push ebp
+  loc_005BD931: mov ebp, esp
+  loc_005BD933: sub esp, 0000000Ch
+  loc_005BD936: push 00412856h ; __vbaExceptHandler
+  loc_005BD93B: mov eax, fs:[00000000h]
+  loc_005BD941: push eax
+  loc_005BD942: mov fs:[00000000h], esp
+  loc_005BD949: sub esp, 00000040h
+  loc_005BD94C: push ebx
+  loc_005BD94D: push esi
+  loc_005BD94E: push edi
+  loc_005BD94F: mov var_C, esp
+  loc_005BD952: mov var_8, 00401470h
+  loc_005BD959: mov edi, Me
+  loc_005BD95C: mov eax, edi
+  loc_005BD95E: and eax, 00000001h
+  loc_005BD961: mov var_4, eax
+  loc_005BD964: and edi, FFFFFFFEh
+  loc_005BD967: push edi
+  loc_005BD968: mov Me, edi
+  loc_005BD96B: mov ecx, [edi]
+  loc_005BD96D: call [ecx+00000004h]
+  loc_005BD970: mov edx, KeyCode
+  loc_005BD973: xor ebx, ebx
+  loc_005BD975: mov var_18, ebx
+  loc_005BD978: mov var_1C, ebx
+  loc_005BD97B: cmp [edx], 0070h
+  loc_005BD97F: mov var_2C, ebx
+  loc_005BD982: mov var_3C, ebx
+  loc_005BD985: jnz 005BDD1Ah
+  loc_005BD98B: cmp [0073A254h], ebx
+  loc_005BD991: jnz 005BD9A3h
+  loc_005BD993: push 0073A254h
+  loc_005BD998: push 00431838h
+  loc_005BD99D: call [004012FCh] ; __vbaNew2
+  loc_005BD9A3: mov eax, [0073A254h]
+  loc_005BD9A8: push eax
+  loc_005BD9A9: call 00695250h
+  loc_005BD9AE: mov ecx, [edi]
+  loc_005BD9B0: push edi
+  loc_005BD9B1: call [ecx+0000030Ch]
+  loc_005BD9B7: lea edx, var_1C
+  loc_005BD9BA: push eax
+  loc_005BD9BB: push edx
+  loc_005BD9BC: call [00401128h] ; __vbaObjSet
+  loc_005BD9C2: mov esi, eax
+  loc_005BD9C4: lea ecx, var_18
+  loc_005BD9C7: push ecx
+  loc_005BD9C8: push esi
+  loc_005BD9C9: mov eax, [esi]
+  loc_005BD9CB: call [eax+00000050h]
+  loc_005BD9CE: cmp eax, ebx
+  loc_005BD9D0: fnclex
+  loc_005BD9D2: jge 005BD9E3h
+  loc_005BD9D4: push 00000050h
+  loc_005BD9D6: push 00441988h
+  loc_005BD9DB: push esi
+  loc_005BD9DC: push eax
+  loc_005BD9DD: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BD9E3: mov edx, var_18
+  loc_005BD9E6: push edx
+  loc_005BD9E7: push 0043B364h ; "Let's Travel! Simply enter the web site address below and off we go! (ie: www.bonzi.com)"
+  loc_005BD9EC: call [004011B8h] ; __vbaStrCmp
+  loc_005BD9F2: mov esi, eax
+  loc_005BD9F4: lea ecx, var_18
+  loc_005BD9F7: neg esi
+  loc_005BD9F9: sbb esi, esi
+  loc_005BD9FB: inc esi
+  loc_005BD9FC: neg esi
+  loc_005BD9FE: call [00401430h] ; __vbaFreeStr
+  loc_005BDA04: mov ebx, [0040142Ch] ; __vbaFreeObj
+  loc_005BDA0A: lea ecx, var_1C
+  loc_005BDA0D: call ebx
+  loc_005BDA0F: test si, si
+  loc_005BDA12: jz 005BDAC6h
+  loc_005BDA18: mov eax, [0073A08Ch]
+  loc_005BDA1D: lea edx, var_1C
+  loc_005BDA20: push edx
+  loc_005BDA21: push 0044199Ch ; "Suggest"
+  loc_005BDA26: mov ecx, [eax]
+  loc_005BDA28: push eax
+  loc_005BDA29: call [ecx+00000064h]
+  loc_005BDA2C: test eax, eax
+  loc_005BDA2E: fnclex
+  loc_005BDA30: jge 005BDA47h
+  loc_005BDA32: mov ecx, [0073A08Ch]
+  loc_005BDA38: push 00000064h
+  loc_005BDA3A: push 004419ACh
+  loc_005BDA3F: push ecx
+  loc_005BDA40: push eax
+  loc_005BDA41: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BDA47: lea ecx, var_1C
+  loc_005BDA4A: call ebx
+  loc_005BDA4C: lea edi, var_1C
+  loc_005BDA4F: mov ecx, 0000000Ah
+  loc_005BDA54: push edi
+  loc_005BDA55: mov eax, 80020004h
+  loc_005BDA5A: sub esp, 00000010h
+  loc_005BDA5D: mov esi, [0073A08Ch]
+  loc_005BDA63: mov edi, esp
+  loc_005BDA65: sub esp, 00000010h
+  loc_005BDA68: mov esi, [esi]
+  loc_005BDA6A: mov edx, 004419DCh ; "Having trouble?  Let me help you. Enter the web site below and click on the 'OK' button.  For example, if you want to go to the \ctx=""EMAIL""\bonzi.com site, you would enter \ctx=""EMAIL""\www.bonzi.com."
+  loc_005BDA6F: mov [edi], ecx
+  loc_005BDA71: mov ecx, var_38
+  loc_005BDA74: mov [edi+00000004h], ecx
+  loc_005BDA77: mov ecx, esp
+  loc_005BDA79: mov [edi+00000008h], eax
+  loc_005BDA7C: mov eax, var_30
+  loc_005BDA7F: mov [edi+0000000Ch], eax
+  loc_005BDA82: mov eax, 00000008h
+  loc_005BDA87: mov [ecx], eax
+  loc_005BDA89: mov eax, var_28
+  loc_005BDA8C: mov [ecx+00000004h], eax
+  loc_005BDA8F: mov eax, [0073A08Ch]
+  loc_005BDA94: push eax
+  loc_005BDA95: mov [ecx+00000008h], edx
+  loc_005BDA98: mov edx, var_20
+  loc_005BDA9B: mov [ecx+0000000Ch], edx
+  loc_005BDA9E: call [esi+00000078h]
+  loc_005BDAA1: test eax, eax
+  loc_005BDAA3: fnclex
+  loc_005BDAA5: jge 005BDABCh
+  loc_005BDAA7: mov ecx, [0073A08Ch]
+  loc_005BDAAD: push 00000078h
+  loc_005BDAAF: push 004419ACh
+  loc_005BDAB4: push ecx
+  loc_005BDAB5: push eax
+  loc_005BDAB6: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BDABC: lea ecx, var_1C
+  loc_005BDABF: call ebx
+  loc_005BDAC1: jmp 005BDCD3h
+  loc_005BDAC6: mov edx, [edi]
+  loc_005BDAC8: push edi
+  loc_005BDAC9: call [edx+0000030Ch]
+  loc_005BDACF: push eax
+  loc_005BDAD0: lea eax, var_1C
+  loc_005BDAD3: push eax
+  loc_005BDAD4: call [00401128h] ; __vbaObjSet
+  loc_005BDADA: mov esi, eax
+  loc_005BDADC: lea edx, var_18
+  loc_005BDADF: push edx
+  loc_005BDAE0: push esi
+  loc_005BDAE1: mov ecx, [esi]
+  loc_005BDAE3: call [ecx+00000050h]
+  loc_005BDAE6: test eax, eax
+  loc_005BDAE8: fnclex
+  loc_005BDAEA: jge 005BDAFBh
+  loc_005BDAEC: push 00000050h
+  loc_005BDAEE: push 00441988h
+  loc_005BDAF3: push esi
+  loc_005BDAF4: push eax
+  loc_005BDAF5: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BDAFB: mov eax, var_18
+  loc_005BDAFE: push eax
+  loc_005BDAFF: push 0043B248h ; "What are we looking for?  Enter search word(s) or topic(s) below and we'll travel the world until we find it!"
+  loc_005BDB04: call [004011B8h] ; __vbaStrCmp
+  loc_005BDB0A: mov esi, eax
+  loc_005BDB0C: lea ecx, var_18
+  loc_005BDB0F: neg esi
+  loc_005BDB11: sbb esi, esi
+  loc_005BDB13: inc esi
+  loc_005BDB14: neg esi
+  loc_005BDB16: call [00401430h] ; __vbaFreeStr
+  loc_005BDB1C: lea ecx, var_1C
+  loc_005BDB1F: call ebx
+  loc_005BDB21: test si, si
+  loc_005BDB24: jz 005BDBC2h
+  loc_005BDB2A: mov eax, [0073A08Ch]
+  loc_005BDB2F: lea edx, var_1C
+  loc_005BDB32: push edx
+  loc_005BDB33: push 0044199Ch ; "Suggest"
+  loc_005BDB38: mov ecx, [eax]
+  loc_005BDB3A: push eax
+  loc_005BDB3B: call [ecx+00000064h]
+  loc_005BDB3E: test eax, eax
+  loc_005BDB40: fnclex
+  loc_005BDB42: jge 005BDB59h
+  loc_005BDB44: mov ecx, [0073A08Ch]
+  loc_005BDB4A: push 00000064h
+  loc_005BDB4C: push 004419ACh
+  loc_005BDB51: push ecx
+  loc_005BDB52: push eax
+  loc_005BDB53: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BDB59: lea ecx, var_1C
+  loc_005BDB5C: call ebx
+  loc_005BDB5E: lea ebx, var_1C
+  loc_005BDB61: mov ecx, 0000000Ah
+  loc_005BDB66: push ebx
+  loc_005BDB67: mov eax, 80020004h
+  loc_005BDB6C: sub esp, 00000010h
+  loc_005BDB6F: mov edi, [0073A08Ch]
+  loc_005BDB75: mov ebx, esp
+  loc_005BDB77: sub esp, 00000010h
+  loc_005BDB7A: mov esi, 00000008h
+  loc_005BDB7F: mov edi, [edi]
+  loc_005BDB81: mov [ebx], ecx
+  loc_005BDB83: mov ecx, var_38
+  loc_005BDB86: mov edx, 00441B90h ; "Having trouble?  Let me help you. Enter the words or phrases you would like me to search the web for and click on the 'OK' button."
+  loc_005BDB8B: mov [ebx+00000004h], ecx
+  loc_005BDB8E: mov ecx, esp
+  loc_005BDB90: mov [ebx+00000008h], eax
+  loc_005BDB93: mov eax, var_30
+  loc_005BDB96: mov [ebx+0000000Ch], eax
+  loc_005BDB99: mov eax, var_28
+  loc_005BDB9C: mov [ecx], esi
+  loc_005BDB9E: mov [ecx+00000004h], eax
+  loc_005BDBA1: mov eax, [0073A08Ch]
+  loc_005BDBA6: push eax
+  loc_005BDBA7: mov [ecx+00000008h], edx
+  loc_005BDBAA: mov edx, var_20
+  loc_005BDBAD: mov [ecx+0000000Ch], edx
+  loc_005BDBB0: call [edi+00000078h]
+  loc_005BDBB3: test eax, eax
+  loc_005BDBB5: fnclex
+  loc_005BDBB7: jge 005BDCCAh
+  loc_005BDBBD: jmp 005BDCB5h
+  loc_005BDBC2: mov edx, [edi]
+  loc_005BDBC4: push edi
+  loc_005BDBC5: call [edx+0000030Ch]
+  loc_005BDBCB: push eax
+  loc_005BDBCC: lea eax, var_1C
+  loc_005BDBCF: push eax
+  loc_005BDBD0: call [00401128h] ; __vbaObjSet
+  loc_005BDBD6: mov esi, eax
+  loc_005BDBD8: lea edx, var_18
+  loc_005BDBDB: push edx
+  loc_005BDBDC: push esi
+  loc_005BDBDD: mov ecx, [esi]
+  loc_005BDBDF: call [ecx+00000050h]
+  loc_005BDBE2: test eax, eax
+  loc_005BDBE4: fnclex
+  loc_005BDBE6: jge 005BDBF7h
+  loc_005BDBE8: push 00000050h
+  loc_005BDBEA: push 00441988h
+  loc_005BDBEF: push esi
+  loc_005BDBF0: push eax
+  loc_005BDBF1: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BDBF7: mov eax, var_18
+  loc_005BDBFA: push eax
+  loc_005BDBFB: push 0043B41Ch ; "Enter your name or a name that you would like to be called and press OK."
+  loc_005BDC00: call [004011B8h] ; __vbaStrCmp
+  loc_005BDC06: mov esi, eax
+  loc_005BDC08: lea ecx, var_18
+  loc_005BDC0B: neg esi
+  loc_005BDC0D: sbb esi, esi
+  loc_005BDC0F: inc esi
+  loc_005BDC10: neg esi
+  loc_005BDC12: call [00401430h] ; __vbaFreeStr
+  loc_005BDC18: lea ecx, var_1C
+  loc_005BDC1B: call ebx
+  loc_005BDC1D: test si, si
+  loc_005BDC20: jz 005BDCD3h
+  loc_005BDC26: mov eax, [0073A08Ch]
+  loc_005BDC2B: lea edx, var_1C
+  loc_005BDC2E: push edx
+  loc_005BDC2F: push 0044199Ch ; "Suggest"
+  loc_005BDC34: mov ecx, [eax]
+  loc_005BDC36: push eax
+  loc_005BDC37: call [ecx+00000064h]
+  loc_005BDC3A: test eax, eax
+  loc_005BDC3C: fnclex
+  loc_005BDC3E: jge 005BDC55h
+  loc_005BDC40: mov ecx, [0073A08Ch]
+  loc_005BDC46: push 00000064h
+  loc_005BDC48: push 004419ACh
+  loc_005BDC4D: push ecx
+  loc_005BDC4E: push eax
+  loc_005BDC4F: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BDC55: lea ecx, var_1C
+  loc_005BDC58: call ebx
+  loc_005BDC5A: lea ebx, var_1C
+  loc_005BDC5D: mov ecx, 0000000Ah
+  loc_005BDC62: push ebx
+  loc_005BDC63: mov eax, 80020004h
+  loc_005BDC68: sub esp, 00000010h
+  loc_005BDC6B: mov edi, [0073A08Ch]
+  loc_005BDC71: mov ebx, esp
+  loc_005BDC73: sub esp, 00000010h
+  loc_005BDC76: mov esi, 00000008h
+  loc_005BDC7B: mov edi, [edi]
+  loc_005BDC7D: mov [ebx], ecx
+  loc_005BDC7F: mov ecx, var_38
+  loc_005BDC82: mov edx, 00441C9Ch ; "Having trouble?  Let me help you. Tell me your name or salutation below. This is how I will address you."
+  loc_005BDC87: mov [ebx+00000004h], ecx
+  loc_005BDC8A: mov ecx, esp
+  loc_005BDC8C: mov [ebx+00000008h], eax
+  loc_005BDC8F: mov eax, var_30
+  loc_005BDC92: mov [ebx+0000000Ch], eax
+  loc_005BDC95: mov eax, var_28
+  loc_005BDC98: mov [ecx], esi
+  loc_005BDC9A: mov [ecx+00000004h], eax
+  loc_005BDC9D: mov eax, [0073A08Ch]
+  loc_005BDCA2: push eax
+  loc_005BDCA3: mov [ecx+00000008h], edx
+  loc_005BDCA6: mov edx, var_20
+  loc_005BDCA9: mov [ecx+0000000Ch], edx
+  loc_005BDCAC: call [edi+00000078h]
+  loc_005BDCAF: test eax, eax
+  loc_005BDCB1: fnclex
+  loc_005BDCB3: jge 005BDCCAh
+  loc_005BDCB5: mov ecx, [0073A08Ch]
+  loc_005BDCBB: push 00000078h
+  loc_005BDCBD: push 004419ACh
+  loc_005BDCC2: push ecx
+  loc_005BDCC3: push eax
+  loc_005BDCC4: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BDCCA: lea ecx, var_1C
+  loc_005BDCCD: call [0040142Ch] ; __vbaFreeObj
+  loc_005BDCD3: mov eax, [0073A08Ch]
+  loc_005BDCD8: lea ecx, var_1C
+  loc_005BDCDB: push ecx
+  loc_005BDCDC: push 00441D74h ; "Blink"
+  loc_005BDCE1: mov edx, [eax]
+  loc_005BDCE3: push eax
+  loc_005BDCE4: call [edx+00000064h]
+  loc_005BDCE7: test eax, eax
+  loc_005BDCE9: fnclex
+  loc_005BDCEB: jge 005BDD02h
+  loc_005BDCED: mov edx, [0073A08Ch]
+  loc_005BDCF3: push 00000064h
+  loc_005BDCF5: push 004419ACh
+  loc_005BDCFA: push edx
+  loc_005BDCFB: push eax
+  loc_005BDCFC: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BDD02: mov eax, var_1C
+  loc_005BDD05: mov var_1C, 00000000h
+  loc_005BDD0C: push eax
+  loc_005BDD0D: push 0073A1E4h
+  loc_005BDD12: call [00401128h] ; __vbaObjSet
+  loc_005BDD18: xor ebx, ebx
+  loc_005BDD1A: mov var_4, ebx
+  loc_005BDD1D: push 005BDD38h
+  loc_005BDD22: jmp 005BDD37h
+  loc_005BDD24: lea ecx, var_18
+  loc_005BDD27: call [00401430h] ; __vbaFreeStr
+  loc_005BDD2D: lea ecx, var_1C
+  loc_005BDD30: call [0040142Ch] ; __vbaFreeObj
+  loc_005BDD36: ret
+  loc_005BDD37: ret
+  loc_005BDD38: mov eax, Me
+  loc_005BDD3B: push eax
+  loc_005BDD3C: mov ecx, [eax]
+  loc_005BDD3E: call [ecx+00000008h]
+  loc_005BDD41: mov eax, var_4
+  loc_005BDD44: mov ecx, var_14
+  loc_005BDD47: pop edi
+  loc_005BDD48: pop esi
+  loc_005BDD49: mov fs:[00000000h], ecx
+  loc_005BDD50: pop ebx
+  loc_005BDD51: mov esp, ebp
+  loc_005BDD53: pop ebp
+  loc_005BDD54: retn 000Ch
+End Sub
+
+Private Sub cmdOK_Click() '5BD6D0
+  loc_005BD6D0: push ebp
+  loc_005BD6D1: mov ebp, esp
+  loc_005BD6D3: sub esp, 0000000Ch
+  loc_005BD6D6: push 00412856h ; __vbaExceptHandler
+  loc_005BD6DB: mov eax, fs:[00000000h]
+  loc_005BD6E1: push eax
+  loc_005BD6E2: mov fs:[00000000h], esp
+  loc_005BD6E9: sub esp, 00000018h
+  loc_005BD6EC: push ebx
+  loc_005BD6ED: push esi
+  loc_005BD6EE: push edi
+  loc_005BD6EF: mov var_C, esp
+  loc_005BD6F2: mov var_8, 00401450h
+  loc_005BD6F9: mov esi, Me
+  loc_005BD6FC: mov eax, esi
+  loc_005BD6FE: and eax, 00000001h
+  loc_005BD701: mov var_4, eax
+  loc_005BD704: and esi, FFFFFFFEh
+  loc_005BD707: push esi
+  loc_005BD708: mov Me, esi
+  loc_005BD70B: mov ecx, [esi]
+  loc_005BD70D: call [ecx+00000004h]
+  loc_005BD710: xor edi, edi
+  loc_005BD712: push 00440B00h
+  loc_005BD717: mov var_1C, edi
+  loc_005BD71A: mov var_20, edi
+  loc_005BD71D: push esi
+  loc_005BD71E: mov var_18, edi
+  loc_005BD721: mov var_20, edi
+  loc_005BD724: mov var_1C, edi
+  loc_005BD727: call [004013C4h] ; __vbaCastObj
+  loc_005BD72D: lea edx, var_18
+  loc_005BD730: push eax
+  loc_005BD731: push edx
+  loc_005BD732: call [00401128h] ; __vbaObjSet
+  loc_005BD738: mov eax, [0073A218h]
+  loc_005BD73D: lea edx, var_20
+  loc_005BD740: push edx
+  loc_005BD741: lea edx, var_1C
+  loc_005BD744: mov ecx, [eax]
+  loc_005BD746: push edx
+  loc_005BD747: lea edx, var_18
+  loc_005BD74A: push edx
+  loc_005BD74B: push eax
+  loc_005BD74C: call [ecx+0000001Ch]
+  loc_005BD74F: cmp eax, edi
+  loc_005BD751: fnclex
+  loc_005BD753: jge 005BD76Ah
+  loc_005BD755: mov ecx, [0073A218h]
+  loc_005BD75B: push 0000001Ch
+  loc_005BD75D: push 00440B10h
+  loc_005BD762: push ecx
+  loc_005BD763: push eax
+  loc_005BD764: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BD76A: lea ecx, var_18
+  loc_005BD76D: call [0040142Ch] ; __vbaFreeObj
+  loc_005BD773: mov edx, [esi]
+  loc_005BD775: push esi
+  loc_005BD776: call [edx+000002B4h]
+  loc_005BD77C: cmp eax, edi
+  loc_005BD77E: fnclex
+  loc_005BD780: jge 005BD794h
+  loc_005BD782: push 000002B4h
+  loc_005BD787: push 0044034Ch ; "uÚ.ÇFK*D¸5Å3YÚ™ðJmá­vÅUBµfúCÆõŒ'^¢w³" & Chr(11) & "m¿A»˜"
+  loc_005BD78C: push esi
+  loc_005BD78D: push eax
+  loc_005BD78E: call [004010CCh] ; __vbaHresultCheckObj
+  loc_005BD794: mov var_4, edi
+  loc_005BD797: push 005BD7A9h
+  loc_005BD79C: jmp 005BD7A8h
+  loc_005BD79E: lea ecx, var_18
+  loc_005BD7A1: call [0040142Ch] ; __vbaFreeObj
+  loc_005BD7A7: ret
+  loc_005BD7A8: ret
+  loc_005BD7A9: mov eax, Me
+  loc_005BD7AC: push eax
+  loc_005BD7AD: mov ecx, [eax]
+  loc_005BD7AF: call [ecx+00000008h]
+  loc_005BD7B2: mov eax, var_4
+  loc_005BD7B5: mov ecx, var_14
+  loc_005BD7B8: pop edi
+  loc_005BD7B9: pop esi
+  loc_005BD7BA: mov fs:[00000000h], ecx
+  loc_005BD7C1: pop ebx
+  loc_005BD7C2: mov esp, ebp
+  loc_005BD7C4: pop ebp
+  loc_005BD7C5: retn 0004h
+End Sub

Src Code/frmMusicLicense.frm

@@ -0,0 +1,981 @@
+VERSION 5.00
+Begin VB.Form frmMusicLicense
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 4 'Fixed ToolWindow
+  'Icon = n/a
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  ClientLeft = 90
+  ClientTop = 375
+  ClientWidth = 6615
+  ClientHeight = 5175
+  LockControls = -1  'True
+  ShowInTaskbar = 0   'False
+  StartUpPosition = 2 'CenterScreen
+  Begin VB.TextBox lblMusic
+    BackColor = &H8000000F&
+    Left = 120
+    Top = 120
+    Width = 6375
+    Height = 4935
+    Text = "Text1"
+    TabIndex = 0
+    MultiLine = -1  'True
+    ScrollBars = 3
+    Locked = -1  'True
+  End
+End
+
+Attribute VB_Name = "frmMusicLicense"
+
+
+Private Sub Form_Load() '61BE10
+  loc_0061BE10: push ebp
+  loc_0061BE11: mov ebp, esp
+  loc_0061BE13: sub esp, 0000000Ch
+  loc_0061BE16: push 00412856h ; __vbaExceptHandler
+  loc_0061BE1B: mov eax, fs:[00000000h]
+  loc_0061BE21: push eax
+  loc_0061BE22: mov fs:[00000000h], esp
+  loc_0061BE29: sub esp, 0000006Ch
+  loc_0061BE2C: push ebx
+  loc_0061BE2D: push esi
+  loc_0061BE2E: push edi
+  loc_0061BE2F: mov var_C, esp
+  loc_0061BE32: mov var_8, 00404DC0h
+  loc_0061BE39: mov esi, Me
+  loc_0061BE3C: mov eax, esi
+  loc_0061BE3E: and eax, 00000001h
+  loc_0061BE41: mov var_4, eax
+  loc_0061BE44: and esi, FFFFFFFEh
+  loc_0061BE47: push esi
+  loc_0061BE48: mov Me, esi
+  loc_0061BE4B: mov ecx, [esi]
+  loc_0061BE4D: call [ecx+00000004h]
+  loc_0061BE50: mov edx, [esi]
+  loc_0061BE52: xor eax, eax
+  loc_0061BE54: push esi
+  loc_0061BE55: mov var_18, eax
+  loc_0061BE58: mov var_1C, eax
+  loc_0061BE5B: mov var_20, eax
+  loc_0061BE5E: mov var_24, eax
+  loc_0061BE61: mov var_28, eax
+  loc_0061BE64: mov var_2C, eax
+  loc_0061BE67: mov var_30, eax
+  loc_0061BE6A: mov var_34, eax
+  loc_0061BE6D: mov var_38, eax
+  loc_0061BE70: mov var_3C, eax
+  loc_0061BE73: mov var_40, eax
+  loc_0061BE76: mov var_44, eax
+  loc_0061BE79: mov var_48, eax
+  loc_0061BE7C: mov var_4C, eax
+  loc_0061BE7F: mov var_50, eax
+  loc_0061BE82: mov var_54, eax
+  loc_0061BE85: call [edx+000002FCh]
+  loc_0061BE8B: push eax
+  loc_0061BE8C: lea eax, var_50
+  loc_0061BE8F: push eax
+  loc_0061BE90: call [00401128h] ; __vbaObjSet
+  loc_0061BE96: mov esi, [00401098h] ; __vbaStrCat
+  loc_0061BE9C: mov ebx, [eax]
+  loc_0061BE9E: push 0044BBD4h ; "MAYBE (from the Broadway Musical ""Annie"")"
+  loc_0061BEA3: push 0043FBCCh ; vbCrLf
+  loc_0061BEA8: mov var_58, eax
+  loc_0061BEAB: call __vbaStrCat
+  loc_0061BEAD: mov edi, [004013C0h] ; __vbaStrMove
+  loc_0061BEB3: mov edx, eax
+  loc_0061BEB5: lea ecx, var_18
+  loc_0061BEB8: call edi
+  loc_0061BEBA: push eax
+  loc_0061BEBB: push 0044BC2Ch ; "Music by Charles Strouse, Lyric by Martin Charnin"
+  loc_0061BEC0: call __vbaStrCat
+  loc_0061BEC2: mov edx, eax
+  loc_0061BEC4: lea ecx, var_1C
+  loc_0061BEC7: call edi
+  loc_0061BEC9: push eax
+  loc_0061BECA: push 0043FBCCh ; vbCrLf
+  loc_0061BECF: call __vbaStrCat
+  loc_0061BED1: mov edx, eax
+  loc_0061BED3: lea ecx, var_20
+  loc_0061BED6: call edi
+  loc_0061BED8: push eax
+  loc_0061BED9: push 0044BC94h ; "© 1977 Charles Strouse Publications (ASCAP) and Edwin H. Morris & Co., a division of MPL Communications (ASCAP)"
+  loc_0061BEDE: call __vbaStrCat
+  loc_0061BEE0: mov edx, eax
+  loc_0061BEE2: lea ecx, var_24
+  loc_0061BEE5: call edi
+  loc_0061BEE7: push eax
+  loc_0061BEE8: push 0043FBCCh ; vbCrLf
+  loc_0061BEED: call __vbaStrCat
+  loc_0061BEEF: mov edx, eax
+  loc_0061BEF1: lea ecx, var_28
+  loc_0061BEF4: call edi
+  loc_0061BEF6: push eax
+  loc_0061BEF7: push 0044BDC4h ; "Used by permission of Helene Blue Musique Ltd. and MPL Communications"
+  loc_0061BEFC: call __vbaStrCat
+  loc_0061BEFE: mov edx, eax
+  loc_0061BF00: lea ecx, var_2C
+  loc_0061BF03: call edi
+  loc_0061BF05: push eax
+  loc_0061BF06: push 0043FBCCh ; vbCrLf
+  loc_0061BF0B: call __vbaStrCat
+  loc_0061BF0D: mov edx, eax
+  loc_0061BF0F: lea ecx, var_30
+  loc_0061BF12: call edi
+  loc_0061BF14: push eax
+  loc_0061BF15: push 0044BE54h ; "All Rights Reserved"
+  loc_0061BF1A: call __vbaStrCat
+  loc_0061BF1C: mov edx, eax
+  loc_0061BF1E: lea ecx, var_34
+  loc_0061BF21: call edi
+  loc_0061BF23: mov ecx, ebx
+  loc_0061BF25: mov ebx, var_58
+  loc_0061BF28: push eax
+  loc_0061BF29: push ebx
+  loc_0061BF2A: call [ecx+000000A4h]
+  loc_0061BF30: test eax, eax
+  loc_0061BF32: fnclex
+  loc_0061BF34: jge 0061BF48h
+  loc_0061BF36: push 000000A4h
+  loc_0061BF3B: push 0043F42Ch
+  loc_0061BF40: push ebx
+  loc_0061BF41: push eax
+  loc_0061BF42: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061BF48: lea edx, var_34
+  loc_0061BF4B: lea eax, var_30
+  loc_0061BF4E: push edx
+  loc_0061BF4F: lea ecx, var_2C
+  loc_0061BF52: push eax
+  loc_0061BF53: lea edx, var_28
+  loc_0061BF56: push ecx
+  loc_0061BF57: lea eax, var_24
+  loc_0061BF5A: push edx
+  loc_0061BF5B: lea ecx, var_20
+  loc_0061BF5E: push eax
+  loc_0061BF5F: lea edx, var_1C
+  loc_0061BF62: push ecx
+  loc_0061BF63: lea eax, var_18
+  loc_0061BF66: push edx
+  loc_0061BF67: push eax
+  loc_0061BF68: push 00000008h
+  loc_0061BF6A: call [00401324h] ; __vbaFreeStrList
+  loc_0061BF70: add esp, 00000024h
+  loc_0061BF73: lea ecx, var_50
+  loc_0061BF76: call [0040142Ch] ; __vbaFreeObj
+  loc_0061BF7C: mov ebx, Me
+  loc_0061BF7F: push ebx
+  loc_0061BF80: mov ecx, [ebx]
+  loc_0061BF82: call [ecx+000002FCh]
+  loc_0061BF88: lea edx, var_54
+  loc_0061BF8B: push eax
+  loc_0061BF8C: push edx
+  loc_0061BF8D: call [00401128h] ; __vbaObjSet
+  loc_0061BF93: mov var_60, eax
+  loc_0061BF96: mov eax, [ebx]
+  loc_0061BF98: push ebx
+  loc_0061BF99: call [eax+000002FCh]
+  loc_0061BF9F: lea ecx, var_50
+  loc_0061BFA2: push eax
+  loc_0061BFA3: push ecx
+  loc_0061BFA4: call [00401128h] ; __vbaObjSet
+  loc_0061BFAA: mov ebx, eax
+  loc_0061BFAC: lea eax, var_18
+  loc_0061BFAF: push eax
+  loc_0061BFB0: push ebx
+  loc_0061BFB1: mov edx, [ebx]
+  loc_0061BFB3: call [edx+000000A0h]
+  loc_0061BFB9: test eax, eax
+  loc_0061BFBB: fnclex
+  loc_0061BFBD: jge 0061BFD1h
+  loc_0061BFBF: push 000000A0h
+  loc_0061BFC4: push 0043F42Ch
+  loc_0061BFC9: push ebx
+  loc_0061BFCA: push eax
+  loc_0061BFCB: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061BFD1: mov edx, var_18
+  loc_0061BFD4: mov ecx, var_60
+  loc_0061BFD7: push edx
+  loc_0061BFD8: push 0043FBCCh ; vbCrLf
+  loc_0061BFDD: mov ebx, [ecx]
+  loc_0061BFDF: call __vbaStrCat
+  loc_0061BFE1: mov edx, eax
+  loc_0061BFE3: lea ecx, var_1C
+  loc_0061BFE6: call edi
+  loc_0061BFE8: push eax
+  loc_0061BFE9: push 0043FBCCh ; vbCrLf
+  loc_0061BFEE: call __vbaStrCat
+  loc_0061BFF0: mov edx, eax
+  loc_0061BFF2: lea ecx, var_20
+  loc_0061BFF5: call edi
+  loc_0061BFF7: push eax
+  loc_0061BFF8: push 0044BE80h ; "TOMORROW (from the Broadway Musical ""Annie"")"
+  loc_0061BFFD: call __vbaStrCat
+  loc_0061BFFF: mov edx, eax
+  loc_0061C001: lea ecx, var_24
+  loc_0061C004: call edi
+  loc_0061C006: push eax
+  loc_0061C007: push 0043FBCCh ; vbCrLf
+  loc_0061C00C: call __vbaStrCat
+  loc_0061C00E: mov edx, eax
+  loc_0061C010: lea ecx, var_28
+  loc_0061C013: call edi
+  loc_0061C015: push eax
+  loc_0061C016: push 0044BEE0h ; "Music by Charles Strouse  Lyric by Martin Charnin"
+  loc_0061C01B: call __vbaStrCat
+  loc_0061C01D: mov edx, eax
+  loc_0061C01F: lea ecx, var_2C
+  loc_0061C022: call edi
+  loc_0061C024: push eax
+  loc_0061C025: push 0043FBCCh ; vbCrLf
+  loc_0061C02A: call __vbaStrCat
+  loc_0061C02C: mov edx, eax
+  loc_0061C02E: lea ecx, var_30
+  loc_0061C031: call edi
+  loc_0061C033: push eax
+  loc_0061C034: push 0044BC94h ; "© 1977 Charles Strouse Publications (ASCAP) and Edwin H. Morris & Co., a division of MPL Communications (ASCAP)"
+  loc_0061C039: call __vbaStrCat
+  loc_0061C03B: mov edx, eax
+  loc_0061C03D: lea ecx, var_34
+  loc_0061C040: call edi
+  loc_0061C042: push eax
+  loc_0061C043: push 0043FBCCh ; vbCrLf
+  loc_0061C048: call __vbaStrCat
+  loc_0061C04A: mov edx, eax
+  loc_0061C04C: lea ecx, var_38
+  loc_0061C04F: call edi
+  loc_0061C051: push eax
+  loc_0061C052: push 0044BDC4h ; "Used by permission of Helene Blue Musique Ltd. and MPL Communications"
+  loc_0061C057: call __vbaStrCat
+  loc_0061C059: mov edx, eax
+  loc_0061C05B: lea ecx, var_3C
+  loc_0061C05E: call edi
+  loc_0061C060: push eax
+  loc_0061C061: push 0043FBCCh ; vbCrLf
+  loc_0061C066: call __vbaStrCat
+  loc_0061C068: mov edx, eax
+  loc_0061C06A: lea ecx, var_40
+  loc_0061C06D: call edi
+  loc_0061C06F: push eax
+  loc_0061C070: push 0044BE54h ; "All Rights Reserved"
+  loc_0061C075: call __vbaStrCat
+  loc_0061C077: mov edx, eax
+  loc_0061C079: lea ecx, var_44
+  loc_0061C07C: call edi
+  loc_0061C07E: mov var_74, ebx
+  loc_0061C081: mov ebx, var_60
+  loc_0061C084: push eax
+  loc_0061C085: mov eax, var_74
+  loc_0061C088: push ebx
+  loc_0061C089: call [eax+000000A4h]
+  loc_0061C08F: test eax, eax
+  loc_0061C091: fnclex
+  loc_0061C093: jge 0061C0A7h
+  loc_0061C095: push 000000A4h
+  loc_0061C09A: push 0043F42Ch
+  loc_0061C09F: push ebx
+  loc_0061C0A0: push eax
+  loc_0061C0A1: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061C0A7: lea ecx, var_44
+  loc_0061C0AA: lea edx, var_40
+  loc_0061C0AD: push ecx
+  loc_0061C0AE: lea eax, var_3C
+  loc_0061C0B1: push edx
+  loc_0061C0B2: lea ecx, var_38
+  loc_0061C0B5: push eax
+  loc_0061C0B6: lea edx, var_34
+  loc_0061C0B9: push ecx
+  loc_0061C0BA: lea eax, var_30
+  loc_0061C0BD: push edx
+  loc_0061C0BE: lea ecx, var_2C
+  loc_0061C0C1: push eax
+  loc_0061C0C2: lea edx, var_28
+  loc_0061C0C5: push ecx
+  loc_0061C0C6: lea eax, var_24
+  loc_0061C0C9: push edx
+  loc_0061C0CA: lea ecx, var_20
+  loc_0061C0CD: push eax
+  loc_0061C0CE: lea edx, var_1C
+  loc_0061C0D1: push ecx
+  loc_0061C0D2: lea eax, var_18
+  loc_0061C0D5: push edx
+  loc_0061C0D6: push eax
+  loc_0061C0D7: push 0000000Ch
+  loc_0061C0D9: call [00401324h] ; __vbaFreeStrList
+  loc_0061C0DF: lea ecx, var_54
+  loc_0061C0E2: lea edx, var_50
+  loc_0061C0E5: push ecx
+  loc_0061C0E6: push edx
+  loc_0061C0E7: push 00000002h
+  loc_0061C0E9: call [00401068h] ; __vbaFreeObjList
+  loc_0061C0EF: mov ebx, Me
+  loc_0061C0F2: add esp, 00000040h
+  loc_0061C0F5: mov eax, [ebx]
+  loc_0061C0F7: push ebx
+  loc_0061C0F8: call [eax+000002FCh]
+  loc_0061C0FE: lea ecx, var_54
+  loc_0061C101: push eax
+  loc_0061C102: push ecx
+  loc_0061C103: call [00401128h] ; __vbaObjSet
+  loc_0061C109: mov edx, [ebx]
+  loc_0061C10B: push ebx
+  loc_0061C10C: mov var_60, eax
+  loc_0061C10F: call [edx+000002FCh]
+  loc_0061C115: push eax
+  loc_0061C116: lea eax, var_50
+  loc_0061C119: push eax
+  loc_0061C11A: call [00401128h] ; __vbaObjSet
+  loc_0061C120: mov ebx, eax
+  loc_0061C122: lea edx, var_18
+  loc_0061C125: push edx
+  loc_0061C126: push ebx
+  loc_0061C127: mov ecx, [ebx]
+  loc_0061C129: call [ecx+000000A0h]
+  loc_0061C12F: test eax, eax
+  loc_0061C131: fnclex
+  loc_0061C133: jge 0061C147h
+  loc_0061C135: push 000000A0h
+  loc_0061C13A: push 0043F42Ch
+  loc_0061C13F: push ebx
+  loc_0061C140: push eax
+  loc_0061C141: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061C147: mov ecx, var_18
+  loc_0061C14A: mov eax, var_60
+  loc_0061C14D: push ecx
+  loc_0061C14E: push 0043FBCCh ; vbCrLf
+  loc_0061C153: mov ebx, [eax]
+  loc_0061C155: call __vbaStrCat
+  loc_0061C157: mov edx, eax
+  loc_0061C159: lea ecx, var_1C
+  loc_0061C15C: call edi
+  loc_0061C15E: push eax
+  loc_0061C15F: push 0043FBCCh ; vbCrLf
+  loc_0061C164: call __vbaStrCat
+  loc_0061C166: mov edx, eax
+  loc_0061C168: lea ecx, var_20
+  loc_0061C16B: call edi
+  loc_0061C16D: push eax
+  loc_0061C16E: push 0044BF48h ; "GETTING TO KNOW YOU (from ""The King And I"")"
+  loc_0061C173: call __vbaStrCat
+  loc_0061C175: mov edx, eax
+  loc_0061C177: lea ecx, var_24
+  loc_0061C17A: call edi
+  loc_0061C17C: push eax
+  loc_0061C17D: push 0043FBCCh ; vbCrLf
+  loc_0061C182: call __vbaStrCat
+  loc_0061C184: mov edx, eax
+  loc_0061C186: lea ecx, var_28
+  loc_0061C189: call edi
+  loc_0061C18B: push eax
+  loc_0061C18C: push 0044BFA4h ; "By Richard Rodgers and Oscar Hammerstein II"
+  loc_0061C191: call __vbaStrCat
+  loc_0061C193: mov edx, eax
+  loc_0061C195: lea ecx, var_2C
+  loc_0061C198: call edi
+  loc_0061C19A: push eax
+  loc_0061C19B: push 0043FBCCh ; vbCrLf
+  loc_0061C1A0: call __vbaStrCat
+  loc_0061C1A2: mov edx, eax
+  loc_0061C1A4: lea ecx, var_30
+  loc_0061C1A7: call edi
+  loc_0061C1A9: push eax
+  loc_0061C1AA: push 0044C000h ; "Copyright © 1951 By Richard Rodgers and Oscar Hammerstein II"
+  loc_0061C1AF: call __vbaStrCat
+  loc_0061C1B1: mov edx, eax
+  loc_0061C1B3: lea ecx, var_34
+  loc_0061C1B6: call edi
+  loc_0061C1B8: push eax
+  loc_0061C1B9: push 0043FBCCh ; vbCrLf
+  loc_0061C1BE: call __vbaStrCat
+  loc_0061C1C0: mov edx, eax
+  loc_0061C1C2: lea ecx, var_38
+  loc_0061C1C5: call edi
+  loc_0061C1C7: push eax
+  loc_0061C1C8: push 0044C080h ; "Copyright Renewed.  WILLIAMSON MUSIC owner of publication and allied rights throughout the world."
+  loc_0061C1CD: call __vbaStrCat
+  loc_0061C1CF: mov edx, eax
+  loc_0061C1D1: lea ecx, var_3C
+  loc_0061C1D4: call edi
+  loc_0061C1D6: push eax
+  loc_0061C1D7: push 0043FBCCh ; vbCrLf
+  loc_0061C1DC: call __vbaStrCat
+  loc_0061C1DE: mov edx, eax
+  loc_0061C1E0: lea ecx, var_40
+  loc_0061C1E3: call edi
+  loc_0061C1E5: push eax
+  loc_0061C1E6: push 0044C18Ch ; "International Copyright Secured   Used by Permission  All Rights Reserved"
+  loc_0061C1EB: call __vbaStrCat
+  loc_0061C1ED: mov edx, eax
+  loc_0061C1EF: lea ecx, var_44
+  loc_0061C1F2: call edi
+  loc_0061C1F4: mov edx, ebx
+  loc_0061C1F6: mov ebx, var_60
+  loc_0061C1F9: push eax
+  loc_0061C1FA: push ebx
+  loc_0061C1FB: call [edx+000000A4h]
+  loc_0061C201: test eax, eax
+  loc_0061C203: fnclex
+  loc_0061C205: jge 0061C219h
+  loc_0061C207: push 000000A4h
+  loc_0061C20C: push 0043F42Ch
+  loc_0061C211: push ebx
+  loc_0061C212: push eax
+  loc_0061C213: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061C219: lea eax, var_44
+  loc_0061C21C: lea ecx, var_40
+  loc_0061C21F: push eax
+  loc_0061C220: lea edx, var_3C
+  loc_0061C223: push ecx
+  loc_0061C224: lea eax, var_38
+  loc_0061C227: push edx
+  loc_0061C228: lea ecx, var_34
+  loc_0061C22B: push eax
+  loc_0061C22C: lea edx, var_30
+  loc_0061C22F: push ecx
+  loc_0061C230: lea eax, var_2C
+  loc_0061C233: push edx
+  loc_0061C234: lea ecx, var_28
+  loc_0061C237: push eax
+  loc_0061C238: lea edx, var_24
+  loc_0061C23B: push ecx
+  loc_0061C23C: lea eax, var_20
+  loc_0061C23F: push edx
+  loc_0061C240: lea ecx, var_1C
+  loc_0061C243: push eax
+  loc_0061C244: lea edx, var_18
+  loc_0061C247: push ecx
+  loc_0061C248: push edx
+  loc_0061C249: push 0000000Ch
+  loc_0061C24B: call [00401324h] ; __vbaFreeStrList
+  loc_0061C251: lea eax, var_54
+  loc_0061C254: lea ecx, var_50
+  loc_0061C257: push eax
+  loc_0061C258: push ecx
+  loc_0061C259: push 00000002h
+  loc_0061C25B: call [00401068h] ; __vbaFreeObjList
+  loc_0061C261: mov ebx, Me
+  loc_0061C264: add esp, 00000040h
+  loc_0061C267: mov edx, [ebx]
+  loc_0061C269: push ebx
+  loc_0061C26A: call [edx+000002FCh]
+  loc_0061C270: push eax
+  loc_0061C271: lea eax, var_54
+  loc_0061C274: push eax
+  loc_0061C275: call [00401128h] ; __vbaObjSet
+  loc_0061C27B: mov ecx, [ebx]
+  loc_0061C27D: push ebx
+  loc_0061C27E: mov var_60, eax
+  loc_0061C281: call [ecx+000002FCh]
+  loc_0061C287: lea edx, var_50
+  loc_0061C28A: push eax
+  loc_0061C28B: push edx
+  loc_0061C28C: call [00401128h] ; __vbaObjSet
+  loc_0061C292: mov ebx, eax
+  loc_0061C294: lea ecx, var_18
+  loc_0061C297: push ecx
+  loc_0061C298: push ebx
+  loc_0061C299: mov eax, [ebx]
+  loc_0061C29B: call [eax+000000A0h]
+  loc_0061C2A1: test eax, eax
+  loc_0061C2A3: fnclex
+  loc_0061C2A5: jge 0061C2B9h
+  loc_0061C2A7: push 000000A0h
+  loc_0061C2AC: push 0043F42Ch
+  loc_0061C2B1: push ebx
+  loc_0061C2B2: push eax
+  loc_0061C2B3: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061C2B9: mov eax, var_18
+  loc_0061C2BC: mov edx, var_60
+  loc_0061C2BF: push eax
+  loc_0061C2C0: push 0043FBCCh ; vbCrLf
+  loc_0061C2C5: mov ebx, [edx]
+  loc_0061C2C7: call __vbaStrCat
+  loc_0061C2C9: mov edx, eax
+  loc_0061C2CB: lea ecx, var_1C
+  loc_0061C2CE: call edi
+  loc_0061C2D0: push eax
+  loc_0061C2D1: push 0043FBCCh ; vbCrLf
+  loc_0061C2D6: call __vbaStrCat
+  loc_0061C2D8: mov edx, eax
+  loc_0061C2DA: lea ecx, var_20
+  loc_0061C2DD: call edi
+  loc_0061C2DF: push eax
+  loc_0061C2E0: push 0044C224h ; "IN MY OWN LITTLE CORNER"
+  loc_0061C2E5: call __vbaStrCat
+  loc_0061C2E7: mov edx, eax
+  loc_0061C2E9: lea ecx, var_24
+  loc_0061C2EC: call edi
+  loc_0061C2EE: push eax
+  loc_0061C2EF: push 0043FBCCh ; vbCrLf
+  loc_0061C2F4: call __vbaStrCat
+  loc_0061C2F6: mov edx, eax
+  loc_0061C2F8: lea ecx, var_28
+  loc_0061C2FB: call edi
+  loc_0061C2FD: push eax
+  loc_0061C2FE: push 0044BFA4h ; "By Richard Rodgers and Oscar Hammerstein II"
+  loc_0061C303: call __vbaStrCat
+  loc_0061C305: mov edx, eax
+  loc_0061C307: lea ecx, var_2C
+  loc_0061C30A: call edi
+  loc_0061C30C: push eax
+  loc_0061C30D: push 0043FBCCh ; vbCrLf
+  loc_0061C312: call __vbaStrCat
+  loc_0061C314: mov edx, eax
+  loc_0061C316: lea ecx, var_30
+  loc_0061C319: call edi
+  loc_0061C31B: push eax
+  loc_0061C31C: push 0044C000h ; "Copyright © 1951 By Richard Rodgers and Oscar Hammerstein II"
+  loc_0061C321: call __vbaStrCat
+  loc_0061C323: mov edx, eax
+  loc_0061C325: lea ecx, var_34
+  loc_0061C328: call edi
+  loc_0061C32A: push eax
+  loc_0061C32B: push 0043FBCCh ; vbCrLf
+  loc_0061C330: call __vbaStrCat
+  loc_0061C332: mov edx, eax
+  loc_0061C334: lea ecx, var_38
+  loc_0061C337: call edi
+  loc_0061C339: push eax
+  loc_0061C33A: push 0044C080h ; "Copyright Renewed.  WILLIAMSON MUSIC owner of publication and allied rights throughout the world."
+  loc_0061C33F: call __vbaStrCat
+  loc_0061C341: mov edx, eax
+  loc_0061C343: lea ecx, var_3C
+  loc_0061C346: call edi
+  loc_0061C348: push eax
+  loc_0061C349: push 0043FBCCh ; vbCrLf
+  loc_0061C34E: call __vbaStrCat
+  loc_0061C350: mov edx, eax
+  loc_0061C352: lea ecx, var_40
+  loc_0061C355: call edi
+  loc_0061C357: push eax
+  loc_0061C358: push 0044C258h ; "International Copyright Secured   Used by Permission   All Rights Reserved"
+  loc_0061C35D: call __vbaStrCat
+  loc_0061C35F: mov edx, eax
+  loc_0061C361: lea ecx, var_44
+  loc_0061C364: call edi
+  loc_0061C366: mov ecx, ebx
+  loc_0061C368: mov ebx, var_60
+  loc_0061C36B: push eax
+  loc_0061C36C: push ebx
+  loc_0061C36D: call [ecx+000000A4h]
+  loc_0061C373: test eax, eax
+  loc_0061C375: fnclex
+  loc_0061C377: jge 0061C38Bh
+  loc_0061C379: push 000000A4h
+  loc_0061C37E: push 0043F42Ch
+  loc_0061C383: push ebx
+  loc_0061C384: push eax
+  loc_0061C385: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061C38B: lea edx, var_44
+  loc_0061C38E: lea eax, var_40
+  loc_0061C391: push edx
+  loc_0061C392: lea ecx, var_3C
+  loc_0061C395: push eax
+  loc_0061C396: lea edx, var_38
+  loc_0061C399: push ecx
+  loc_0061C39A: lea eax, var_34
+  loc_0061C39D: push edx
+  loc_0061C39E: lea ecx, var_30
+  loc_0061C3A1: push eax
+  loc_0061C3A2: lea edx, var_2C
+  loc_0061C3A5: push ecx
+  loc_0061C3A6: lea eax, var_28
+  loc_0061C3A9: push edx
+  loc_0061C3AA: lea ecx, var_24
+  loc_0061C3AD: push eax
+  loc_0061C3AE: lea edx, var_20
+  loc_0061C3B1: push ecx
+  loc_0061C3B2: lea eax, var_1C
+  loc_0061C3B5: push edx
+  loc_0061C3B6: lea ecx, var_18
+  loc_0061C3B9: push eax
+  loc_0061C3BA: push ecx
+  loc_0061C3BB: push 0000000Ch
+  loc_0061C3BD: call [00401324h] ; __vbaFreeStrList
+  loc_0061C3C3: lea edx, var_54
+  loc_0061C3C6: lea eax, var_50
+  loc_0061C3C9: push edx
+  loc_0061C3CA: push eax
+  loc_0061C3CB: push 00000002h
+  loc_0061C3CD: call [00401068h] ; __vbaFreeObjList
+  loc_0061C3D3: mov ebx, Me
+  loc_0061C3D6: add esp, 00000040h
+  loc_0061C3D9: mov ecx, [ebx]
+  loc_0061C3DB: push ebx
+  loc_0061C3DC: call [ecx+000002FCh]
+  loc_0061C3E2: lea edx, var_54
+  loc_0061C3E5: push eax
+  loc_0061C3E6: push edx
+  loc_0061C3E7: call [00401128h] ; __vbaObjSet
+  loc_0061C3ED: mov var_60, eax
+  loc_0061C3F0: mov eax, [ebx]
+  loc_0061C3F2: push ebx
+  loc_0061C3F3: call [eax+000002FCh]
+  loc_0061C3F9: lea ecx, var_50
+  loc_0061C3FC: push eax
+  loc_0061C3FD: push ecx
+  loc_0061C3FE: call [00401128h] ; __vbaObjSet
+  loc_0061C404: mov ebx, eax
+  loc_0061C406: lea eax, var_18
+  loc_0061C409: push eax
+  loc_0061C40A: push ebx
+  loc_0061C40B: mov edx, [ebx]
+  loc_0061C40D: call [edx+000000A0h]
+  loc_0061C413: test eax, eax
+  loc_0061C415: fnclex
+  loc_0061C417: jge 0061C42Bh
+  loc_0061C419: push 000000A0h
+  loc_0061C41E: push 0043F42Ch
+  loc_0061C423: push ebx
+  loc_0061C424: push eax
+  loc_0061C425: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061C42B: mov edx, var_18
+  loc_0061C42E: mov ecx, var_60
+  loc_0061C431: push edx
+  loc_0061C432: push 0043FBCCh ; vbCrLf
+  loc_0061C437: mov ebx, [ecx]
+  loc_0061C439: call __vbaStrCat
+  loc_0061C43B: mov edx, eax
+  loc_0061C43D: lea ecx, var_1C
+  loc_0061C440: call edi
+  loc_0061C442: push eax
+  loc_0061C443: push 0043FBCCh ; vbCrLf
+  loc_0061C448: call __vbaStrCat
+  loc_0061C44A: mov edx, eax
+  loc_0061C44C: lea ecx, var_20
+  loc_0061C44F: call edi
+  loc_0061C451: push eax
+  loc_0061C452: push 0044C2F4h ; "HOW MUCH IS THAT DOGGIE IN THE WINDOW"
+  loc_0061C457: call __vbaStrCat
+  loc_0061C459: mov edx, eax
+  loc_0061C45B: lea ecx, var_24
+  loc_0061C45E: call edi
+  loc_0061C460: push eax
+  loc_0061C461: push 0043FBCCh ; vbCrLf
+  loc_0061C466: call __vbaStrCat
+  loc_0061C468: mov edx, eax
+  loc_0061C46A: lea ecx, var_28
+  loc_0061C46D: call edi
+  loc_0061C46F: push eax
+  loc_0061C470: push 0044C148h ; "Words and Music by Bob Merrill"
+  loc_0061C475: call __vbaStrCat
+  loc_0061C477: mov edx, eax
+  loc_0061C479: lea ecx, var_2C
+  loc_0061C47C: call edi
+  loc_0061C47E: push eax
+  loc_0061C47F: push 0043FBCCh ; vbCrLf
+  loc_0061C484: call __vbaStrCat
+  loc_0061C486: mov edx, eax
+  loc_0061C488: lea ecx, var_30
+  loc_0061C48B: call edi
+  loc_0061C48D: push eax
+  loc_0061C48E: push 0044BD78h ; "Copyright © 1952 Golden Bell Songs"
+  loc_0061C493: call __vbaStrCat
+  loc_0061C495: mov edx, eax
+  loc_0061C497: lea ecx, var_34
+  loc_0061C49A: call edi
+  loc_0061C49C: push eax
+  loc_0061C49D: push 0043FBCCh ; vbCrLf
+  loc_0061C4A2: call __vbaStrCat
+  loc_0061C4A4: mov edx, eax
+  loc_0061C4A6: lea ecx, var_38
+  loc_0061C4A9: call edi
+  loc_0061C4AB: push eax
+  loc_0061C4AC: push 0044C344h ; "Copyright Renewed 1980"
+  loc_0061C4B1: call __vbaStrCat
+  loc_0061C4B3: mov edx, eax
+  loc_0061C4B5: lea ecx, var_3C
+  loc_0061C4B8: call edi
+  loc_0061C4BA: push eax
+  loc_0061C4BB: push 0043FBCCh ; vbCrLf
+  loc_0061C4C0: call __vbaStrCat
+  loc_0061C4C2: mov edx, eax
+  loc_0061C4C4: lea ecx, var_40
+  loc_0061C4C7: call edi
+  loc_0061C4C9: push eax
+  loc_0061C4CA: push 0044C378h ; "Administered by Music & Media International"
+  loc_0061C4CF: call __vbaStrCat
+  loc_0061C4D1: mov edx, eax
+  loc_0061C4D3: lea ecx, var_44
+  loc_0061C4D6: call edi
+  loc_0061C4D8: push eax
+  loc_0061C4D9: push 0043FBCCh ; vbCrLf
+  loc_0061C4DE: call __vbaStrCat
+  loc_0061C4E0: mov edx, eax
+  loc_0061C4E2: lea ecx, var_48
+  loc_0061C4E5: call edi
+  loc_0061C4E7: push eax
+  loc_0061C4E8: push 0044C258h ; "International Copyright Secured   Used by Permission   All Rights Reserved"
+  loc_0061C4ED: call __vbaStrCat
+  loc_0061C4EF: mov edx, eax
+  loc_0061C4F1: lea ecx, var_4C
+  loc_0061C4F4: call edi
+  loc_0061C4F6: mov var_80, ebx
+  loc_0061C4F9: mov ebx, var_60
+  loc_0061C4FC: push eax
+  loc_0061C4FD: mov eax, var_80
+  loc_0061C500: push ebx
+  loc_0061C501: call [eax+000000A4h]
+  loc_0061C507: test eax, eax
+  loc_0061C509: fnclex
+  loc_0061C50B: jge 0061C51Fh
+  loc_0061C50D: push 000000A4h
+  loc_0061C512: push 0043F42Ch
+  loc_0061C517: push ebx
+  loc_0061C518: push eax
+  loc_0061C519: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061C51F: lea ecx, var_4C
+  loc_0061C522: lea edx, var_48
+  loc_0061C525: push ecx
+  loc_0061C526: lea eax, var_44
+  loc_0061C529: push edx
+  loc_0061C52A: lea ecx, var_40
+  loc_0061C52D: push eax
+  loc_0061C52E: lea edx, var_3C
+  loc_0061C531: push ecx
+  loc_0061C532: lea eax, var_38
+  loc_0061C535: push edx
+  loc_0061C536: lea ecx, var_34
+  loc_0061C539: push eax
+  loc_0061C53A: lea edx, var_30
+  loc_0061C53D: push ecx
+  loc_0061C53E: lea eax, var_2C
+  loc_0061C541: push edx
+  loc_0061C542: lea ecx, var_28
+  loc_0061C545: push eax
+  loc_0061C546: lea edx, var_24
+  loc_0061C549: push ecx
+  loc_0061C54A: lea eax, var_20
+  loc_0061C54D: push edx
+  loc_0061C54E: lea ecx, var_1C
+  loc_0061C551: push eax
+  loc_0061C552: lea edx, var_18
+  loc_0061C555: push ecx
+  loc_0061C556: push edx
+  loc_0061C557: push 0000000Eh
+  loc_0061C559: call [00401324h] ; __vbaFreeStrList
+  loc_0061C55F: lea eax, var_54
+  loc_0061C562: lea ecx, var_50
+  loc_0061C565: push eax
+  loc_0061C566: push ecx
+  loc_0061C567: push 00000002h
+  loc_0061C569: call [00401068h] ; __vbaFreeObjList
+  loc_0061C56F: mov ebx, Me
+  loc_0061C572: add esp, 00000048h
+  loc_0061C575: mov edx, [ebx]
+  loc_0061C577: push ebx
+  loc_0061C578: call [edx+000002FCh]
+  loc_0061C57E: push eax
+  loc_0061C57F: lea eax, var_54
+  loc_0061C582: push eax
+  loc_0061C583: call [00401128h] ; __vbaObjSet
+  loc_0061C589: mov ecx, [ebx]
+  loc_0061C58B: push ebx
+  loc_0061C58C: mov var_60, eax
+  loc_0061C58F: call [ecx+000002FCh]
+  loc_0061C595: lea edx, var_50
+  loc_0061C598: push eax
+  loc_0061C599: push edx
+  loc_0061C59A: call [00401128h] ; __vbaObjSet
+  loc_0061C5A0: mov ebx, eax
+  loc_0061C5A2: lea ecx, var_18
+  loc_0061C5A5: push ecx
+  loc_0061C5A6: push ebx
+  loc_0061C5A7: mov eax, [ebx]
+  loc_0061C5A9: call [eax+000000A0h]
+  loc_0061C5AF: test eax, eax
+  loc_0061C5B1: fnclex
+  loc_0061C5B3: jge 0061C5C7h
+  loc_0061C5B5: push 000000A0h
+  loc_0061C5BA: push 0043F42Ch
+  loc_0061C5BF: push ebx
+  loc_0061C5C0: push eax
+  loc_0061C5C1: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061C5C7: mov eax, var_18
+  loc_0061C5CA: mov edx, var_60
+  loc_0061C5CD: push eax
+  loc_0061C5CE: push 0043FBCCh ; vbCrLf
+  loc_0061C5D3: mov ebx, [edx]
+  loc_0061C5D5: call __vbaStrCat
+  loc_0061C5D7: mov edx, eax
+  loc_0061C5D9: lea ecx, var_1C
+  loc_0061C5DC: call edi
+  loc_0061C5DE: push eax
+  loc_0061C5DF: push 0043FBCCh ; vbCrLf
+  loc_0061C5E4: call __vbaStrCat
+  loc_0061C5E6: mov edx, eax
+  loc_0061C5E8: lea ecx, var_20
+  loc_0061C5EB: call edi
+  loc_0061C5ED: push eax
+  loc_0061C5EE: push 0044C3D4h ; "ON TOP OF SPAGHETTI"
+  loc_0061C5F3: call __vbaStrCat
+  loc_0061C5F5: mov edx, eax
+  loc_0061C5F7: lea ecx, var_24
+  loc_0061C5FA: call edi
+  loc_0061C5FC: push eax
+  loc_0061C5FD: push 0043FBCCh ; vbCrLf
+  loc_0061C602: call __vbaStrCat
+  loc_0061C604: mov edx, eax
+  loc_0061C606: lea ecx, var_28
+  loc_0061C609: call edi
+  loc_0061C60B: push eax
+  loc_0061C60C: push 0044C400h ; "Words and Music by Tom Glazer"
+  loc_0061C611: call __vbaStrCat
+  loc_0061C613: mov edx, eax
+  loc_0061C615: lea ecx, var_2C
+  loc_0061C618: call edi
+  loc_0061C61A: push eax
+  loc_0061C61B: push 0043FBCCh ; vbCrLf
+  loc_0061C620: call __vbaStrCat
+  loc_0061C622: mov edx, eax
+  loc_0061C624: lea ecx, var_30
+  loc_0061C627: call edi
+  loc_0061C629: push eax
+  loc_0061C62A: push 0044C440h ; "Copyright © 1963, 1965 by Songs Music Inc."
+  loc_0061C62F: call __vbaStrCat
+  loc_0061C631: mov edx, eax
+  loc_0061C633: lea ecx, var_34
+  loc_0061C636: call edi
+  loc_0061C638: push eax
+  loc_0061C639: push 0043FBCCh ; vbCrLf
+  loc_0061C63E: call __vbaStrCat
+  loc_0061C640: mov edx, eax
+  loc_0061C642: lea ecx, var_38
+  loc_0061C645: call edi
+  loc_0061C647: push eax
+  loc_0061C648: push 0044C49Ch ; "Copyright Renewed"
+  loc_0061C64D: call __vbaStrCat
+  loc_0061C64F: mov edx, eax
+  loc_0061C651: lea ecx, var_3C
+  loc_0061C654: call edi
+  loc_0061C656: push eax
+  loc_0061C657: push 0043FBCCh ; vbCrLf
+  loc_0061C65C: call __vbaStrCat
+  loc_0061C65E: mov edx, eax
+  loc_0061C660: lea ecx, var_40
+  loc_0061C663: call edi
+  loc_0061C665: push eax
+  loc_0061C666: push 0044C4C4h ; "Administered in the United States and Canada by September Music Corp."
+  loc_0061C66B: call __vbaStrCat
+  loc_0061C66D: mov edx, eax
+  loc_0061C66F: lea ecx, var_44
+  loc_0061C672: call edi
+  loc_0061C674: push eax
+  loc_0061C675: push 0043FBCCh ; vbCrLf
+  loc_0061C67A: call __vbaStrCat
+  loc_0061C67C: mov edx, eax
+  loc_0061C67E: lea ecx, var_48
+  loc_0061C681: call edi
+  loc_0061C683: push eax
+  loc_0061C684: push 0044C258h ; "International Copyright Secured   Used by Permission   All Rights Reserved"
+  loc_0061C689: call __vbaStrCat
+  loc_0061C68B: mov edx, eax
+  loc_0061C68D: lea ecx, var_4C
+  loc_0061C690: call edi
+  loc_0061C692: mov esi, var_60
+  loc_0061C695: push eax
+  loc_0061C696: push esi
+  loc_0061C697: call [ebx+000000A4h]
+  loc_0061C69D: test eax, eax
+  loc_0061C69F: fnclex
+  loc_0061C6A1: jge 0061C6B5h
+  loc_0061C6A3: push 000000A4h
+  loc_0061C6A8: push 0043F42Ch
+  loc_0061C6AD: push esi
+  loc_0061C6AE: push eax
+  loc_0061C6AF: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0061C6B5: lea ecx, var_4C
+  loc_0061C6B8: lea edx, var_48
+  loc_0061C6BB: push ecx
+  loc_0061C6BC: lea eax, var_44
+  loc_0061C6BF: push edx
+  loc_0061C6C0: lea ecx, var_40
+  loc_0061C6C3: push eax
+  loc_0061C6C4: lea edx, var_3C
+  loc_0061C6C7: push ecx
+  loc_0061C6C8: lea eax, var_38
+  loc_0061C6CB: push edx
+  loc_0061C6CC: lea ecx, var_34
+  loc_0061C6CF: push eax
+  loc_0061C6D0: lea edx, var_30
+  loc_0061C6D3: push ecx
+  loc_0061C6D4: lea eax, var_2C
+  loc_0061C6D7: push edx
+  loc_0061C6D8: lea ecx, var_28
+  loc_0061C6DB: push eax
+  loc_0061C6DC: lea edx, var_24
+  loc_0061C6DF: push ecx
+  loc_0061C6E0: lea eax, var_20
+  loc_0061C6E3: push edx
+  loc_0061C6E4: lea ecx, var_1C
+  loc_0061C6E7: push eax
+  loc_0061C6E8: lea edx, var_18
+  loc_0061C6EB: push ecx
+  loc_0061C6EC: push edx
+  loc_0061C6ED: push 0000000Eh
+  loc_0061C6EF: call [00401324h] ; __vbaFreeStrList
+  loc_0061C6F5: lea eax, var_54
+  loc_0061C6F8: lea ecx, var_50
+  loc_0061C6FB: push eax
+  loc_0061C6FC: push ecx
+  loc_0061C6FD: push 00000002h
+  loc_0061C6FF: call [00401068h] ; __vbaFreeObjList
+  loc_0061C705: add esp, 00000048h
+  loc_0061C708: mov var_4, 00000000h
+  loc_0061C70F: push 0061C76Bh
+  loc_0061C714: jmp 0061C76Ah
+  loc_0061C716: lea edx, var_4C
+  loc_0061C719: lea eax, var_48
+  loc_0061C71C: push edx
+  loc_0061C71D: lea ecx, var_44
+  loc_0061C720: push eax
+  loc_0061C721: lea edx, var_40
+  loc_0061C724: push ecx
+  loc_0061C725: lea eax, var_3C
+  loc_0061C728: push edx
+  loc_0061C729: lea ecx, var_38
+  loc_0061C72C: push eax
+  loc_0061C72D: lea edx, var_34
+  loc_0061C730: push ecx
+  loc_0061C731: lea eax, var_30
+  loc_0061C734: push edx
+  loc_0061C735: lea ecx, var_2C
+  loc_0061C738: push eax
+  loc_0061C739: lea edx, var_28
+  loc_0061C73C: push ecx
+  loc_0061C73D: lea eax, var_24
+  loc_0061C740: push edx
+  loc_0061C741: lea ecx, var_20
+  loc_0061C744: push eax
+  loc_0061C745: lea edx, var_1C
+  loc_0061C748: push ecx
+  loc_0061C749: lea eax, var_18
+  loc_0061C74C: push edx
+  loc_0061C74D: push eax
+  loc_0061C74E: push 0000000Eh
+  loc_0061C750: call [00401324h] ; __vbaFreeStrList
+  loc_0061C756: lea ecx, var_54
+  loc_0061C759: lea edx, var_50
+  loc_0061C75C: push ecx
+  loc_0061C75D: push edx
+  loc_0061C75E: push 00000002h
+  loc_0061C760: call [00401068h] ; __vbaFreeObjList
+  loc_0061C766: add esp, 00000048h
+  loc_0061C769: ret
+  loc_0061C76A: ret
+  loc_0061C76B: mov eax, Me
+  loc_0061C76E: push eax
+  loc_0061C76F: mov ecx, [eax]
+  loc_0061C771: call [ecx+00000008h]
+  loc_0061C774: mov eax, var_4
+  loc_0061C777: mov ecx, var_14
+  loc_0061C77A: pop edi
+  loc_0061C77B: pop esi
+  loc_0061C77C: mov fs:[00000000h], ecx
+  loc_0061C783: pop ebx
+  loc_0061C784: mov esp, ebp
+  loc_0061C786: pop ebp
+  loc_0061C787: retn 0004h
+End Sub

Src Code/frmNBProgress.frm

@@ -0,0 +1,482 @@
+VERSION 5.00
+Object = "{831FDD16-0C5C-11D2-A9FC0000F8754DA1}#2.0#0"; "C:\Program Files (x86)\BonziBuddy432\MSCOMCTL.OCX"
+Begin VB.Form frmNBProgress
+  Caption = "Optimizing Internet Connection..."
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 1 'Fixed Single
+  Icon = "frmNBProgress.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  ClientLeft = 45
+  ClientTop = 330
+  ClientWidth = 5280
+  ClientHeight = 1095
+  LockControls = -1  'True
+  StartUpPosition = 2 'CenterScreen
+  Begin VB.Timer Timer1
+    Interval = 2
+    Left = 15
+    Top = 975
+  End
+  Begin VB.Frame fraOptimize
+    Caption = "Optimizing Your Internet Connection for a LAN..."
+    Left = 135
+    Top = 105
+    Width = 5025
+    Height = 855
+    TabIndex = 0
+    Begin MSComctlLib.ProgressBar ProgressBar1
+      Left = 960
+      Top = 300
+      Width = 3855
+      Height = 375
+      TabIndex = 1
+      OleObjectBlob = "frmNBProgress.frx":0442
+    End
+    Begin VB.Image imgOptimize2
+      Picture = "frmNBProgress.frx":04AA
+      Left = 300
+      Top = 270
+      Width = 480
+      Height = 480
+    End
+    Begin VB.Image imgOptimize1
+      Picture = "frmNBProgress.frx":08EC
+      Left = 300
+      Top = 270
+      Width = 480
+      Height = 480
+    End
+  End
+End
+
+Attribute VB_Name = "frmNBProgress"
+
+
+Private Sub Form_Load() '6CEEF0
+  loc_006CEEF0: push ebp
+  loc_006CEEF1: mov ebp, esp
+  loc_006CEEF3: sub esp, 0000000Ch
+  loc_006CEEF6: push 00412856h ; __vbaExceptHandler
+  loc_006CEEFB: mov eax, fs:[00000000h]
+  loc_006CEF01: push eax
+  loc_006CEF02: mov fs:[00000000h], esp
+  loc_006CEF09: sub esp, 00000014h
+  loc_006CEF0C: push ebx
+  loc_006CEF0D: push esi
+  loc_006CEF0E: push edi
+  loc_006CEF0F: mov var_C, esp
+  loc_006CEF12: mov var_8, 0040D648h
+  loc_006CEF19: mov esi, Me
+  loc_006CEF1C: mov eax, esi
+  loc_006CEF1E: and eax, 00000001h
+  loc_006CEF21: mov var_4, eax
+  loc_006CEF24: and esi, FFFFFFFEh
+  loc_006CEF27: push esi
+  loc_006CEF28: mov Me, esi
+  loc_006CEF2B: mov ecx, [esi]
+  loc_006CEF2D: call [ecx+00000004h]
+  loc_006CEF30: mov edx, [esi]
+  loc_006CEF32: xor edi, edi
+  loc_006CEF34: push esi
+  loc_006CEF35: mov var_18, edi
+  loc_006CEF38: call [edx+000002FCh]
+  loc_006CEF3E: push eax
+  loc_006CEF3F: lea eax, var_18
+  loc_006CEF42: push eax
+  loc_006CEF43: call [00401128h] ; __vbaObjSet
+  loc_006CEF49: mov esi, eax
+  loc_006CEF4B: push 000003E8h
+  loc_006CEF50: push esi
+  loc_006CEF51: mov ecx, [esi]
+  loc_006CEF53: call [ecx+00000064h]
+  loc_006CEF56: cmp eax, edi
+  loc_006CEF58: fnclex
+  loc_006CEF5A: jge 006CEF6Bh
+  loc_006CEF5C: push 00000064h
+  loc_006CEF5E: push 00441ED0h
+  loc_006CEF63: push esi
+  loc_006CEF64: push eax
+  loc_006CEF65: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006CEF6B: lea ecx, var_18
+  loc_006CEF6E: call [0040142Ch] ; __vbaFreeObj
+  loc_006CEF74: mov var_4, edi
+  loc_006CEF77: push 006CEF89h
+  loc_006CEF7C: jmp 006CEF88h
+  loc_006CEF7E: lea ecx, var_18
+  loc_006CEF81: call [0040142Ch] ; __vbaFreeObj
+  loc_006CEF87: ret
+  loc_006CEF88: ret
+  loc_006CEF89: mov eax, Me
+  loc_006CEF8C: push eax
+  loc_006CEF8D: mov edx, [eax]
+  loc_006CEF8F: call [edx+00000008h]
+  loc_006CEF92: mov eax, var_4
+  loc_006CEF95: mov ecx, var_14
+  loc_006CEF98: pop edi
+  loc_006CEF99: pop esi
+  loc_006CEF9A: mov fs:[00000000h], ecx
+  loc_006CEFA1: pop ebx
+  loc_006CEFA2: mov esp, ebp
+  loc_006CEFA4: pop ebp
+  loc_006CEFA5: retn 0004h
+End Sub
+
+Private Sub Form_Unload(Cancel As Integer) '6CEFB0
+  loc_006CEFB0: push ebp
+  loc_006CEFB1: mov ebp, esp
+  loc_006CEFB3: sub esp, 00000018h
+  loc_006CEFB6: push 00412856h ; __vbaExceptHandler
+  loc_006CEFBB: mov eax, fs:[00000000h]
+  loc_006CEFC1: push eax
+  loc_006CEFC2: mov fs:[00000000h], esp
+  loc_006CEFC9: mov eax, 0000009Ch
+  loc_006CEFCE: call 00412850h ; __vbaChkstk
+  loc_006CEFD3: push ebx
+  loc_006CEFD4: push esi
+  loc_006CEFD5: push edi
+  loc_006CEFD6: mov var_18, esp
+  loc_006CEFD9: mov var_14, 0040D658h ; Chr(37)
+  loc_006CEFE0: mov eax, Me
+  loc_006CEFE3: and eax, 00000001h
+  loc_006CEFE6: mov var_10, eax
+  loc_006CEFE9: mov ecx, Me
+  loc_006CEFEC: and ecx, FFFFFFFEh
+  loc_006CEFEF: mov Me, ecx
+  loc_006CEFF2: mov var_C, 00000000h
+  loc_006CEFF9: mov edx, Me
+  loc_006CEFFC: mov eax, [edx]
+  loc_006CEFFE: mov ecx, Me
+  loc_006CF001: push ecx
+  loc_006CF002: call [eax+00000004h]
+  loc_006CF005: mov var_4, 00000001h
+  loc_006CF00C: mov var_4, 00000002h
+  loc_006CF013: push FFFFFFFFh
+  loc_006CF015: call [00401124h] ; __vbaOnError
+  loc_006CF01B: mov var_4, 00000003h
+  loc_006CF022: mov edx, Me
+  loc_006CF025: mov eax, [edx]
+  loc_006CF027: mov ecx, Me
+  loc_006CF02A: push ecx
+  loc_006CF02B: call [eax+000002B4h]
+  loc_006CF031: fnclex
+  loc_006CF033: mov var_A4, eax
+  loc_006CF039: cmp var_A4, 00000000h
+  loc_006CF040: jge 006CF065h
+  loc_006CF042: push 000002B4h
+  loc_006CF047: push 00456818h
+  loc_006CF04C: mov edx, Me
+  loc_006CF04F: push edx
+  loc_006CF050: mov eax, var_A4
+  loc_006CF056: push eax
+  loc_006CF057: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006CF05D: mov var_BC, eax
+  loc_006CF063: jmp 006CF06Fh
+  loc_006CF065: mov var_BC, 00000000h
+  loc_006CF06F: mov var_4, 00000004h
+  loc_006CF076: mov var_58, 80020004h
+  loc_006CF07D: mov var_60, 0000000Ah
+  loc_006CF084: mov var_48, 80020004h
+  loc_006CF08B: mov var_50, 0000000Ah
+  loc_006CF092: mov var_78, 0046E848h ; "InternetBOOST '99"
+  loc_006CF099: mov var_80, 00000008h
+  loc_006CF0A0: lea edx, var_80
+  loc_006CF0A3: lea ecx, var_40
+  loc_006CF0A6: call [00401374h] ; __vbaVarDup
+  loc_006CF0AC: mov var_68, 0046E704h ; "InternetBOOST '99 settings have been successfully applied! Please re-start your computer and re-connect to the Internet to try out your new Internet settings."
+  loc_006CF0B3: mov var_70, 00000008h
+  loc_006CF0BA: lea edx, var_70
+  loc_006CF0BD: lea ecx, var_30
+  loc_006CF0C0: call [00401374h] ; __vbaVarDup
+  loc_006CF0C6: lea ecx, var_60
+  loc_006CF0C9: push ecx
+  loc_006CF0CA: lea edx, var_50
+  loc_006CF0CD: push edx
+  loc_006CF0CE: lea eax, var_40
+  loc_006CF0D1: push eax
+  loc_006CF0D2: push 00000040h
+  loc_006CF0D4: lea ecx, var_30
+  loc_006CF0D7: push ecx
+  loc_006CF0D8: call [00401120h] ; rtcMsgBox
+  loc_006CF0DE: lea edx, var_60
+  loc_006CF0E1: push edx
+  loc_006CF0E2: lea eax, var_50
+  loc_006CF0E5: push eax
+  loc_006CF0E6: lea ecx, var_40
+  loc_006CF0E9: push ecx
+  loc_006CF0EA: lea edx, var_30
+  loc_006CF0ED: push edx
+  loc_006CF0EE: push 00000004h
+  loc_006CF0F0: call [00401050h] ; __vbaFreeVarList
+  loc_006CF0F6: add esp, 00000014h
+  loc_006CF0F9: mov var_10, 00000000h
+  loc_006CF100: push 006CF124h
+  loc_006CF105: jmp 006CF123h
+  loc_006CF107: lea eax, var_60
+  loc_006CF10A: push eax
+  loc_006CF10B: lea ecx, var_50
+  loc_006CF10E: push ecx
+  loc_006CF10F: lea edx, var_40
+  loc_006CF112: push edx
+  loc_006CF113: lea eax, var_30
+  loc_006CF116: push eax
+  loc_006CF117: push 00000004h
+  loc_006CF119: call [00401050h] ; __vbaFreeVarList
+  loc_006CF11F: add esp, 00000014h
+  loc_006CF122: ret
+  loc_006CF123: ret
+  loc_006CF124: mov ecx, Me
+  loc_006CF127: mov edx, [ecx]
+  loc_006CF129: mov eax, Me
+  loc_006CF12C: push eax
+  loc_006CF12D: call [edx+00000008h]
+  loc_006CF130: mov eax, var_10
+  loc_006CF133: mov ecx, var_20
+  loc_006CF136: mov fs:[00000000h], ecx
+  loc_006CF13D: pop edi
+  loc_006CF13E: pop esi
+  loc_006CF13F: pop ebx
+  loc_006CF140: mov esp, ebp
+  loc_006CF142: pop ebp
+  loc_006CF143: retn 0008h
+End Sub
+
+Private Sub Timer1_Timer() '6CF150
+  loc_006CF150: push ebp
+  loc_006CF151: mov ebp, esp
+  loc_006CF153: sub esp, 00000014h
+  loc_006CF156: push 00412856h ; __vbaExceptHandler
+  loc_006CF15B: mov eax, fs:[00000000h]
+  loc_006CF161: push eax
+  loc_006CF162: mov fs:[00000000h], esp
+  loc_006CF169: sub esp, 00000040h
+  loc_006CF16C: push ebx
+  loc_006CF16D: push esi
+  loc_006CF16E: push edi
+  loc_006CF16F: mov var_14, esp
+  loc_006CF172: mov var_10, 0040D690h
+  loc_006CF179: mov esi, Me
+  loc_006CF17C: mov eax, esi
+  loc_006CF17E: and eax, 00000001h
+  loc_006CF181: mov var_C, eax
+  loc_006CF184: and esi, FFFFFFFEh
+  loc_006CF187: mov Me, esi
+  loc_006CF18A: xor ebx, ebx
+  loc_006CF18C: mov var_8, ebx
+  loc_006CF18F: mov ecx, [esi]
+  loc_006CF191: push esi
+  loc_006CF192: call [ecx+00000004h]
+  loc_006CF195: mov var_20, ebx
+  loc_006CF198: mov var_30, ebx
+  loc_006CF19B: push 00000001h
+  loc_006CF19D: call [00401124h] ; __vbaOnError
+  loc_006CF1A3: mov ax, [esi+00000034h]
+  loc_006CF1A7: cmp ax, bx
+  loc_006CF1AA: jnz 006CF1BAh
+  loc_006CF1AC: mov eax, 0000001Eh
+  loc_006CF1B1: mov [esi+00000036h], ax
+  loc_006CF1B5: jmp 006CF272h
+  loc_006CF1BA: cmp ax, 001Eh
+  loc_006CF1BE: jnz 006CF219h
+  loc_006CF1C0: mov edx, [esi]
+  loc_006CF1C2: push esi
+  loc_006CF1C3: call [edx+000002FCh]
+  loc_006CF1C9: push eax
+  loc_006CF1CA: lea eax, var_20
+  loc_006CF1CD: push eax
+  loc_006CF1CE: call [00401128h] ; __vbaObjSet
+  loc_006CF1D4: mov edi, eax
+  loc_006CF1D6: mov ecx, [edi]
+  loc_006CF1D8: push 000001F4h
+  loc_006CF1DD: push edi
+  loc_006CF1DE: call [ecx+00000064h]
+  loc_006CF1E1: fnclex
+  loc_006CF1E3: cmp eax, ebx
+  loc_006CF1E5: jge 006CF1F6h
+  loc_006CF1E7: push 00000064h
+  loc_006CF1E9: push 00441ED0h
+  loc_006CF1EE: push edi
+  loc_006CF1EF: push eax
+  loc_006CF1F0: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006CF1F6: lea ecx, var_20
+  loc_006CF1F9: call [0040142Ch] ; __vbaFreeObj
+  loc_006CF1FF: mov [esi+00000036h], 0014h
+  loc_006CF205: mov dx, [esi+00000034h]
+  loc_006CF209: add dx, 0014h
+  loc_006CF20D: jo 006CF43Bh
+  loc_006CF213: mov [esi+00000034h], dx
+  loc_006CF217: jmp 006CF276h
+  loc_006CF219: cmp ax, 0032h
+  loc_006CF21D: jl 006CF276h
+  loc_006CF21F: mov eax, [esi]
+  loc_006CF221: push esi
+  loc_006CF222: call [eax+000002FCh]
+  loc_006CF228: push eax
+  loc_006CF229: lea ecx, var_20
+  loc_006CF22C: push ecx
+  loc_006CF22D: call [00401128h] ; __vbaObjSet
+  loc_006CF233: mov edi, eax
+  loc_006CF235: mov edx, [edi]
+  loc_006CF237: push 000000FAh
+  loc_006CF23C: push edi
+  loc_006CF23D: call [edx+00000064h]
+  loc_006CF240: fnclex
+  loc_006CF242: cmp eax, ebx
+  loc_006CF244: jge 006CF255h
+  loc_006CF246: push 00000064h
+  loc_006CF248: push 00441ED0h
+  loc_006CF24D: push edi
+  loc_006CF24E: push eax
+  loc_006CF24F: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006CF255: lea ecx, var_20
+  loc_006CF258: call [0040142Ch] ; __vbaFreeObj
+  loc_006CF25E: mov [esi+00000036h], 000Ah
+  loc_006CF264: mov ax, [esi+00000034h]
+  loc_006CF268: add ax, 000Ah
+  loc_006CF26C: jo 006CF43Bh
+  loc_006CF272: mov [esi+00000034h], ax
+  loc_006CF276: mov ax, [esi+00000034h]
+  loc_006CF27A: cmp ax, 0064h
+  loc_006CF27E: jle 006CF2F1h
+  loc_006CF280: cmp [0073C818h], ebx
+  loc_006CF286: jnz 006CF298h
+  loc_006CF288: push 0073C818h
+  loc_006CF28D: push 00441F00h
+  loc_006CF292: call [004012FCh] ; __vbaNew2
+  loc_006CF298: mov esi, [0073C818h]
+  loc_006CF29E: cmp [0073A68Ch], ebx
+  loc_006CF2A4: jnz 006CF2B6h
+  loc_006CF2A6: push 0073A68Ch
+  loc_006CF2AB: push 004174CCh
+  loc_006CF2B0: call [004012FCh] ; __vbaNew2
+  loc_006CF2B6: mov edi, [esi]
+  loc_006CF2B8: mov ecx, [0073A68Ch]
+  loc_006CF2BE: push ecx
+  loc_006CF2BF: lea edx, var_20
+  loc_006CF2C2: push edx
+  loc_006CF2C3: call [00401130h] ; __vbaObjSetAddref
+  loc_006CF2C9: push eax
+  loc_006CF2CA: push esi
+  loc_006CF2CB: call [edi+00000010h]
+  loc_006CF2CE: fnclex
+  loc_006CF2D0: cmp eax, ebx
+  loc_006CF2D2: jge 006CF2E3h
+  loc_006CF2D4: push 00000010h
+  loc_006CF2D6: push 00441EF0h
+  loc_006CF2DB: push esi
+  loc_006CF2DC: push eax
+  loc_006CF2DD: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006CF2E3: lea ecx, var_20
+  loc_006CF2E6: call [0040142Ch] ; __vbaFreeObj
+  loc_006CF2EC: jmp 006CF403h
+  loc_006CF2F1: movsx eax, ax
+  loc_006CF2F4: mov var_5C, eax
+  loc_006CF2F7: fild real4 ptr var_5C
+  loc_006CF2FA: fstp real4 ptr var_28
+  loc_006CF2FD: mov eax, 00000004h
+  loc_006CF302: mov var_30, eax
+  loc_006CF305: sub esp, 00000010h
+  loc_006CF308: mov ecx, esp
+  loc_006CF30A: mov [ecx], eax
+  loc_006CF30C: mov edx, var_2C
+  loc_006CF30F: mov [ecx+00000004h], edx
+  loc_006CF312: mov eax, var_28
+  loc_006CF315: mov [ecx+00000008h], eax
+  loc_006CF318: mov edx, var_24
+  loc_006CF31B: mov [ecx+0000000Ch], edx
+  loc_006CF31E: push 00000005h
+  loc_006CF320: mov eax, [esi]
+  loc_006CF322: push esi
+  loc_006CF323: call [eax+0000030Ch]
+  loc_006CF329: push eax
+  loc_006CF32A: lea ecx, var_20
+  loc_006CF32D: push ecx
+  loc_006CF32E: call [00401128h] ; __vbaObjSet
+  loc_006CF334: push eax
+  loc_006CF335: call [004013F0h] ; __vbaLateIdSt
+  loc_006CF33B: lea ecx, var_20
+  loc_006CF33E: call [0040142Ch] ; __vbaFreeObj
+  loc_006CF344: jmp 006CF403h
+  loc_006CF349: mov eax, 42C80000h
+  loc_006CF34E: mov var_28, eax
+  loc_006CF351: mov ecx, 00000004h
+  loc_006CF356: mov var_30, ecx
+  loc_006CF359: sub esp, 00000010h
+  loc_006CF35C: mov edx, esp
+  loc_006CF35E: mov [edx], ecx
+  loc_006CF360: mov ecx, var_2C
+  loc_006CF363: mov [edx+00000004h], ecx
+  loc_006CF366: mov [edx+00000008h], eax
+  loc_006CF369: mov eax, var_24
+  loc_006CF36C: mov [edx+0000000Ch], eax
+  loc_006CF36F: push 00000005h
+  loc_006CF371: mov eax, Me
+  loc_006CF374: mov ecx, [eax]
+  loc_006CF376: push eax
+  loc_006CF377: call [ecx+0000030Ch]
+  loc_006CF37D: push eax
+  loc_006CF37E: lea edx, var_20
+  loc_006CF381: push edx
+  loc_006CF382: call [00401128h] ; __vbaObjSet
+  loc_006CF388: push eax
+  loc_006CF389: call [004013F0h] ; __vbaLateIdSt
+  loc_006CF38F: lea ecx, var_20
+  loc_006CF392: mov edi, [0040142Ch] ; __vbaFreeObj
+  loc_006CF398: call edi
+  loc_006CF39A: mov eax, [0073C818h]
+  loc_006CF39F: test eax, eax
+  loc_006CF3A1: jnz 006CF3B3h
+  loc_006CF3A3: push 0073C818h
+  loc_006CF3A8: push 00441F00h
+  loc_006CF3AD: call [004012FCh] ; __vbaNew2
+  loc_006CF3B3: mov esi, [0073C818h]
+  loc_006CF3B9: mov eax, [0073A68Ch]
+  loc_006CF3BE: test eax, eax
+  loc_006CF3C0: jnz 006CF3D2h
+  loc_006CF3C2: push 0073A68Ch
+  loc_006CF3C7: push 004174CCh
+  loc_006CF3CC: call [004012FCh] ; __vbaNew2
+  loc_006CF3D2: mov ebx, [esi]
+  loc_006CF3D4: mov eax, [0073A68Ch]
+  loc_006CF3D9: push eax
+  loc_006CF3DA: lea ecx, var_20
+  loc_006CF3DD: push ecx
+  loc_006CF3DE: call [00401130h] ; __vbaObjSetAddref
+  loc_006CF3E4: push eax
+  loc_006CF3E5: push esi
+  loc_006CF3E6: call [ebx+00000010h]
+  loc_006CF3E9: fnclex
+  loc_006CF3EB: test eax, eax
+  loc_006CF3ED: jge 006CF3FEh
+  loc_006CF3EF: push 00000010h
+  loc_006CF3F1: push 00441EF0h
+  loc_006CF3F6: push esi
+  loc_006CF3F7: push eax
+  loc_006CF3F8: call [004010CCh] ; __vbaHresultCheckObj
+  loc_006CF3FE: lea ecx, var_20
+  loc_006CF401: call edi
+  loc_006CF403: call [00401114h] ; __vbaExitProc
+  loc_006CF409: fwait
+  loc_006CF40A: push 006CF41Ch
+  loc_006CF40F: jmp 006CF41Bh
+  loc_006CF411: lea ecx, var_20
+  loc_006CF414: call [0040142Ch] ; __vbaFreeObj
+  loc_006CF41A: ret
+  loc_006CF41B: ret
+  loc_006CF41C: mov eax, Me
+  loc_006CF41F: mov edx, [eax]
+  loc_006CF421: push eax
+  loc_006CF422: call [edx+00000008h]
+  loc_006CF425: mov eax, var_C
+  loc_006CF428: mov ecx, var_1C
+  loc_006CF42B: mov fs:[00000000h], ecx
+  loc_006CF432: pop edi
+  loc_006CF433: pop esi
+  loc_006CF434: pop ebx
+  loc_006CF435: mov esp, ebp
+  loc_006CF437: pop ebp
+  loc_006CF438: retn 0004h
+End Sub

Src Code/frmPrivacyPolicy.frm

@@ -0,0 +1,307 @@
+VERSION 5.00
+Begin VB.Form frmPrivacyPolicy
+  Caption = "BONZI.COM Privacy Policy"
+  BackColor = &HFFFFFF&
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 3 'Fixed Dialog
+  Icon = "frmPrivacyPolicy.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  MinButton = 0   'False
+  Visible = 0   'False
+  ClientLeft = 2760
+  ClientTop = 3750
+  ClientWidth = 7350
+  ClientHeight = 5100
+  LockControls = -1  'True
+  ShowInTaskbar = 0   'False
+  StartUpPosition = 2 'CenterScreen
+  Begin VB.Timer tmrShowMe
+    Enabled = 0   'False
+    Interval = 1
+    Left = 6120
+    Top = 4560
+  End
+  Begin VB.TextBox Text1
+    Left = 270
+    Top = 1470
+    Width = 6795
+    Height = 2895
+    Text = "frmPrivacyPolicy.frx":0442
+    TabIndex = 2
+    MultiLine = -1  'True
+    ScrollBars = 2
+  End
+  Begin VB.CommandButton OKButton
+    Caption = "OK"
+    Left = 2970
+    Top = 4560
+    Width = 1215
+    Height = 375
+    TabIndex = 1
+  End
+  Begin VB.PictureBox Picture4
+    BackColor = &H80000005&
+    Picture = "frmPrivacyPolicy.frx":3142
+    ForeColor = &HFFFFFF&
+    Left = 0
+    Top = 0
+    Width = 9630
+    Height = 1155
+    TabIndex = 0
+    ScaleMode = 1
+    AutoRedraw = False
+    FontTransparent = True
+    FillColor = &HFFFFFF&
+    BorderStyle = 0 'None
+    Appearance = 0 'Flat
+  End
+End
+
+Attribute VB_Name = "frmPrivacyPolicy"
+
+
+Private Sub OKButton_Click() '6411F0
+  loc_006411F0: push ebp
+  loc_006411F1: mov ebp, esp
+  loc_006411F3: sub esp, 0000000Ch
+  loc_006411F6: push 00412856h ; __vbaExceptHandler
+  loc_006411FB: mov eax, fs:[00000000h]
+  loc_00641201: push eax
+  loc_00641202: mov fs:[00000000h], esp
+  loc_00641209: sub esp, 00000018h
+  loc_0064120C: push ebx
+  loc_0064120D: push esi
+  loc_0064120E: push edi
+  loc_0064120F: mov var_C, esp
+  loc_00641212: mov var_8, 00406220h
+  loc_00641219: mov edi, Me
+  loc_0064121C: mov eax, edi
+  loc_0064121E: and eax, 00000001h
+  loc_00641221: mov var_4, eax
+  loc_00641224: and edi, FFFFFFFEh
+  loc_00641227: push edi
+  loc_00641228: mov Me, edi
+  loc_0064122B: mov ecx, [edi]
+  loc_0064122D: call [ecx+00000004h]
+  loc_00641230: mov eax, [0073C818h]
+  loc_00641235: xor ebx, ebx
+  loc_00641237: cmp eax, ebx
+  loc_00641239: mov var_18, ebx
+  loc_0064123C: jnz 0064124Eh
+  loc_0064123E: push 0073C818h
+  loc_00641243: push 00441F00h
+  loc_00641248: call [004012FCh] ; __vbaNew2
+  loc_0064124E: mov esi, [0073C818h]
+  loc_00641254: lea eax, var_18
+  loc_00641257: push edi
+  loc_00641258: push eax
+  loc_00641259: mov edx, [esi]
+  loc_0064125B: mov var_2C, edx
+  loc_0064125E: call [00401130h] ; __vbaObjSetAddref
+  loc_00641264: mov ecx, var_2C
+  loc_00641267: push eax
+  loc_00641268: push esi
+  loc_00641269: call [ecx+00000010h]
+  loc_0064126C: cmp eax, ebx
+  loc_0064126E: fnclex
+  loc_00641270: jge 00641281h
+  loc_00641272: push 00000010h
+  loc_00641274: push 00441EF0h
+  loc_00641279: push esi
+  loc_0064127A: push eax
+  loc_0064127B: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00641281: lea ecx, var_18
+  loc_00641284: call [0040142Ch] ; __vbaFreeObj
+  loc_0064128A: mov var_4, ebx
+  loc_0064128D: push 0064129Fh
+  loc_00641292: jmp 0064129Eh
+  loc_00641294: lea ecx, var_18
+  loc_00641297: call [0040142Ch] ; __vbaFreeObj
+  loc_0064129D: ret
+  loc_0064129E: ret
+  loc_0064129F: mov eax, Me
+  loc_006412A2: push eax
+  loc_006412A3: mov edx, [eax]
+  loc_006412A5: call [edx+00000008h]
+  loc_006412A8: mov eax, var_4
+  loc_006412AB: mov ecx, var_14
+  loc_006412AE: pop edi
+  loc_006412AF: pop esi
+  loc_006412B0: mov fs:[00000000h], ecx
+  loc_006412B7: pop ebx
+  loc_006412B8: mov esp, ebp
+  loc_006412BA: pop ebp
+  loc_006412BB: retn 0004h
+End Sub
+
+Private Sub tmrShowMe_Timer() '641370
+  loc_00641370: push ebp
+  loc_00641371: mov ebp, esp
+  loc_00641373: sub esp, 0000000Ch
+  loc_00641376: push 00412856h ; __vbaExceptHandler
+  loc_0064137B: mov eax, fs:[00000000h]
+  loc_00641381: push eax
+  loc_00641382: mov fs:[00000000h], esp
+  loc_00641389: sub esp, 00000034h
+  loc_0064138C: push ebx
+  loc_0064138D: push esi
+  loc_0064138E: push edi
+  loc_0064138F: mov var_C, esp
+  loc_00641392: mov var_8, 00406240h
+  loc_00641399: mov esi, Me
+  loc_0064139C: mov eax, esi
+  loc_0064139E: and eax, 00000001h
+  loc_006413A1: mov var_4, eax
+  loc_006413A4: and esi, FFFFFFFEh
+  loc_006413A7: push esi
+  loc_006413A8: mov Me, esi
+  loc_006413AB: mov ecx, [esi]
+  loc_006413AD: call [ecx+00000004h]
+  loc_006413B0: mov eax, [0073A254h]
+  loc_006413B5: mov var_18, 00000000h
+  loc_006413BC: test eax, eax
+  loc_006413BE: jnz 006413D0h
+  loc_006413C0: push 0073A254h
+  loc_006413C5: push 00431838h
+  loc_006413CA: call [004012FCh] ; __vbaNew2
+  loc_006413D0: sub esp, 00000010h
+  loc_006413D3: mov eax, 00000009h
+  loc_006413D8: mov ebx, esp
+  loc_006413DA: sub esp, 00000010h
+  loc_006413DD: mov edx, 00000002h
+  loc_006413E2: mov edi, [esi]
+  loc_006413E4: mov [ebx], eax
+  loc_006413E6: mov eax, var_34
+  loc_006413E9: mov ecx, 00000001h
+  loc_006413EE: mov [ebx+00000004h], eax
+  loc_006413F1: mov eax, [0073A254h]
+  loc_006413F6: mov [ebx+00000008h], eax
+  loc_006413F9: mov eax, var_2C
+  loc_006413FC: mov [ebx+0000000Ch], eax
+  loc_006413FF: mov eax, esp
+  loc_00641401: push esi
+  loc_00641402: mov [eax], edx
+  loc_00641404: mov edx, var_24
+  loc_00641407: mov [eax+00000004h], edx
+  loc_0064140A: mov [eax+00000008h], ecx
+  loc_0064140D: mov ecx, var_1C
+  loc_00641410: mov [eax+0000000Ch], ecx
+  loc_00641413: call [edi+000002B0h]
+  loc_00641419: test eax, eax
+  loc_0064141B: fnclex
+  loc_0064141D: jge 00641431h
+  loc_0064141F: push 000002B0h
+  loc_00641424: push 00450F40h
+  loc_00641429: push esi
+  loc_0064142A: push eax
+  loc_0064142B: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00641431: mov edx, [esi]
+  loc_00641433: push esi
+  loc_00641434: call [edx+000002FCh]
+  loc_0064143A: push eax
+  loc_0064143B: lea eax, var_18
+  loc_0064143E: push eax
+  loc_0064143F: call [00401128h] ; __vbaObjSet
+  loc_00641445: mov esi, eax
+  loc_00641447: push 00000000h
+  loc_00641449: push esi
+  loc_0064144A: mov ecx, [esi]
+  loc_0064144C: call [ecx+0000005Ch]
+  loc_0064144F: test eax, eax
+  loc_00641451: fnclex
+  loc_00641453: jge 00641464h
+  loc_00641455: push 0000005Ch
+  loc_00641457: push 00441ED0h
+  loc_0064145C: push esi
+  loc_0064145D: push eax
+  loc_0064145E: call [004010CCh] ; __vbaHresultCheckObj
+  loc_00641464: lea ecx, var_18
+  loc_00641467: call [0040142Ch] ; __vbaFreeObj
+  loc_0064146D: mov var_4, 00000000h
+  loc_00641474: push 00641486h
+  loc_00641479: jmp 00641485h
+  loc_0064147B: lea ecx, var_18
+  loc_0064147E: call [0040142Ch] ; __vbaFreeObj
+  loc_00641484: ret
+  loc_00641485: ret
+  loc_00641486: mov eax, Me
+  loc_00641489: push eax
+  loc_0064148A: mov edx, [eax]
+  loc_0064148C: call [edx+00000008h]
+  loc_0064148F: mov eax, var_4
+  loc_00641492: mov ecx, var_14
+  loc_00641495: pop edi
+  loc_00641496: pop esi
+  loc_00641497: mov fs:[00000000h], ecx
+  loc_0064149E: pop ebx
+  loc_0064149F: mov esp, ebp
+  loc_006414A1: pop ebp
+  loc_006414A2: retn 0004h
+End Sub
+
+Public Sub ShowMe() '6412C0
+  loc_006412C0: push ebp
+  loc_006412C1: mov ebp, esp
+  loc_006412C3: sub esp, 0000000Ch
+  loc_006412C6: push 00412856h ; __vbaExceptHandler
+  loc_006412CB: mov eax, fs:[00000000h]
+  loc_006412D1: push eax
+  loc_006412D2: mov fs:[00000000h], esp
+  loc_006412D9: sub esp, 00000014h
+  loc_006412DC: push ebx
+  loc_006412DD: push esi
+  loc_006412DE: push edi
+  loc_006412DF: mov var_C, esp
+  loc_006412E2: mov var_8, 00406230h
+  loc_006412E9: xor edi, edi
+  loc_006412EB: mov var_4, edi
+  loc_006412EE: mov esi, Me
+  loc_006412F1: push esi
+  loc_006412F2: mov eax, [esi]
+  loc_006412F4: call [eax+00000004h]
+  loc_006412F7: mov ecx, [esi]
+  loc_006412F9: push esi
+  loc_006412FA: mov var_18, edi
+  loc_006412FD: call [ecx+000002FCh]
+  loc_00641303: lea edx, var_18
+  loc_00641306: push eax
+  loc_00641307: push edx
+  loc_00641308: call [00401128h] ; __vbaObjSet
+  loc_0064130E: mov esi, eax
+  loc_00641310: push FFFFFFFFh
+  loc_00641312: push esi
+  loc_00641313: mov eax, [esi]
+  loc_00641315: call [eax+0000005Ch]
+  loc_00641318: cmp eax, edi
+  loc_0064131A: fnclex
+  loc_0064131C: jge 0064132Dh
+  loc_0064131E: push 0000005Ch
+  loc_00641320: push 00441ED0h
+  loc_00641325: push esi
+  loc_00641326: push eax
+  loc_00641327: call [004010CCh] ; __vbaHresultCheckObj
+  loc_0064132D: lea ecx, var_18
+  loc_00641330: call [0040142Ch] ; __vbaFreeObj
+  loc_00641336: push 00641348h
+  loc_0064133B: jmp 00641347h
+  loc_0064133D: lea ecx, var_18
+  loc_00641340: call [0040142Ch] ; __vbaFreeObj
+  loc_00641346: ret
+  loc_00641347: ret
+  loc_00641348: mov eax, Me
+  loc_0064134B: push eax
+  loc_0064134C: mov ecx, [eax]
+  loc_0064134E: call [ecx+00000008h]
+  loc_00641351: mov eax, var_4
+  loc_00641354: mov ecx, var_14
+  loc_00641357: pop edi
+  loc_00641358: pop esi
+  loc_00641359: mov fs:[00000000h], ecx
+  loc_00641360: pop ebx
+  loc_00641361: mov esp, ebp
+  loc_00641363: pop ebp
+  loc_00641364: retn 0004h
+End Sub

Src Code/frmProgress.frm

@@ -0,0 +1,143 @@
+VERSION 5.00
+Object = "{831FDD16-0C5C-11D2-A9FC0000F8754DA1}#2.0#0"; "C:\Program Files (x86)\BonziBuddy432\MSCOMCTL.OCX"
+Begin VB.Form frmProgress
+  Caption = "BonziBUDDY Update Progress"
+  ScaleMode = 1
+  AutoRedraw = False
+  FontTransparent = True
+  BorderStyle = 1 'Fixed Single
+  Icon = "frmProgress.frx":0000
+  LinkTopic = "Form1"
+  MaxButton = 0   'False
+  ClientLeft = 45
+  ClientTop = 330
+  ClientWidth = 3825
+  ClientHeight = 900
+  LockControls = -1  'True
+  StartUpPosition = 2 'CenterScreen
+  Begin VB.Frame fraProgress
+    Caption = "Update Progress"
+    Left = 120
+    Top = 90
+    Width = 3585
+    Height = 675
+    TabIndex = 0
+    Begin MSComctlLib.ProgressBar prgDL
+      Left = 150
+      Top = 240
+      Width = 3315
+      Height = 315
+      TabIndex = 1
+      OleObjectBlob = "frmProgress.frx":08CA
+    End
+  End
+End
+
+Attribute VB_Name = "frmProgress"
+
+
+Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '5BEB60
+  loc_005BEB60: push ebp
+  loc_005BEB61: mov ebp, esp
+  loc_005BEB63: sub esp, 00000018h
+  loc_005BEB66: push 00412856h ; __vbaExceptHandler
+  loc_005BEB6B: mov eax, fs:[00000000h]
+  loc_005BEB71: push eax
+  loc_005BEB72: mov fs:[00000000h], esp
+  loc_005BEB79: mov eax, 00000014h
+  loc_005BEB7E: call 00412850h ; __vbaChkstk
+  loc_005BEB83: push ebx
+  loc_005BEB84: push esi
+  loc_005BEB85: push edi
+  loc_005BEB86: mov var_18, esp
+  loc_005BEB89: mov var_14, 00401528h
+  loc_005BEB90: mov eax, Me
+  loc_005BEB93: and eax, 00000001h
+  loc_005BEB96: mov var_10, eax
+  loc_005BEB99: mov ecx, Me
+  loc_005BEB9C: and ecx, FFFFFFFEh
+  loc_005BEB9F: mov Me, ecx
+  loc_005BEBA2: mov var_C, 00000000h
+  loc_005BEBA9: mov edx, Me
+  loc_005BEBAC: mov eax, [edx]
+  loc_005BEBAE: mov ecx, Me
+  loc_005BEBB1: push ecx
+  loc_005BEBB2: call [eax+00000004h]
+  loc_005BEBB5: mov var_4, 00000001h
+  loc_005BEBBC: mov var_4, 00000002h
+  loc_005BEBC3: push FFFFFFFFh
+  loc_005BEBC5: call [00401124h] ; __vbaOnError
+  loc_005BEBCB: mov var_4, 00000003h
+  loc_005BEBD2: mov edx, UnloadMode
+  loc_005BEBD5: movsx eax, [edx]
+  loc_005BEBD8: cmp eax, 00000001h
+  loc_005BEBDB: jz 005BEBFCh
+  loc_005BEBDD: mov var_4, 00000004h
+  loc_005BEBE4: mov [0073A0D0h], FFFFFFh
+  loc_005BEBED: mov var_4, 00000005h
+  loc_005BEBF4: mov ecx, Cancel
+  loc_005BEBF7: mov [ecx], 0001h
+  loc_005BEBFC: mov var_10, 00000000h
+  loc_005BEC03: mov edx, Me
+  loc_005BEC06: mov eax, [edx]
+  loc_005BEC08: mov ecx, Me
+  loc_005BEC0B: push ecx
+  loc_005BEC0C: call [eax+00000008h]
+  loc_005BEC0F: mov eax, var_10
+  loc_005BEC12: mov ecx, var_20
+  loc_005BEC15: mov fs:[00000000h], ecx
+  loc_005BEC1C: pop edi
+  loc_005BEC1D: pop esi
+  loc_005BEC1E: pop ebx
+  loc_005BEC1F: mov esp, ebp
+  loc_005BEC21: pop ebp
+  loc_005BEC22: retn 000Ch
+End Sub
+
+Private Sub Form_Activate() '5BEAC0
+  loc_005BEAC0: push ebp
+  loc_005BEAC1: mov ebp, esp
+  loc_005BEAC3: sub esp, 00000018h
+  loc_005BEAC6: push 00412856h ; __vbaExceptHandler
+  loc_005BEACB: mov eax, fs:[00000000h]
+  loc_005BEAD1: push eax
+  loc_005BEAD2: mov fs:[00000000h], esp
+  loc_005BEAD9: mov eax, 00000014h
+  loc_005BEADE: call 00412850h ; __vbaChkstk
+  loc_005BEAE3: push ebx
+  loc_005BEAE4: push esi
+  loc_005BEAE5: push edi
+  loc_005BEAE6: mov var_18, esp
+  loc_005BEAE9: mov var_14, 004014F8h
+  loc_005BEAF0: mov eax, Me
+  loc_005BEAF3: and eax, 00000001h
+  loc_005BEAF6: mov var_10, eax
+  loc_005BEAF9: mov ecx, Me
+  loc_005BEAFC: and ecx, FFFFFFFEh
+  loc_005BEAFF: mov Me, ecx
+  loc_005BEB02: mov var_C, 00000000h
+  loc_005BEB09: mov edx, Me
+  loc_005BEB0C: mov eax, [edx]
+  loc_005BEB0E: mov ecx, Me
+  loc_005BEB11: push ecx
+  loc_005BEB12: call [eax+00000004h]
+  loc_005BEB15: mov var_4, 00000001h
+  loc_005BEB1C: mov var_4, 00000002h
+  loc_005BEB23: push FFFFFFFFh
+  loc_005BEB25: call [00401124h] ; __vbaOnError
+  loc_005BEB2B: mov var_10, 00000000h
+  loc_005BEB32: mov edx, Me
+  loc_005BEB35: mov eax, [edx]
+  loc_005BEB37: mov ecx, Me
+  loc_005BEB3A: push ecx
+  loc_005BEB3B: call [eax+00000008h]
+  loc_005BEB3E: mov eax, var_10
+  loc_005BEB41: mov ecx, var_20
+  loc_005BEB44: mov fs:[00000000h], ecx
+  loc_005BEB4B: pop edi
+  loc_005BEB4C: pop esi
+  loc_005BEB4D: pop ebx
+  loc_005BEB4E: mov esp, ebp
+  loc_005BEB50: pop ebp
+  loc_005BEB51: retn 0004h
+End Sub