From ed712176c8733e3293f7d056a22a8f2381223a39 Mon Sep 17 00:00:00 2001 From: magdev Date: Fri, 19 Jul 2024 02:27:24 +0200 Subject: [PATCH] Added sourcecode --- Development-Helper.xlam | Bin 13540 -> 12942 bytes src/DevelopmentHelper.bas | 32 ++++++++++++++++++++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 src/DevelopmentHelper.bas diff --git a/Development-Helper.xlam b/Development-Helper.xlam index 0c6a8447eb9db8c25093aac551223170702176ba..fe53ef704e7406eb700a14fb5203855f84aef5ef 100644 GIT binary patch delta 7024 zcmZvhRZyIbl7A;6%)-Q9yr-~$2#g1Zh7+}&M*1-IbtFgU?w z|8sV0&&6(Eb$505O?OpSJ@1xPq*>(>8j#diUA~VD0)?Z2KzJY!$itS+-NDJm*ulYu z)x*xVR87xeft}DNv-bJbEp$XGPV}uf5p|*TqN-YL0=>SR6Af`Fd_Lc=`009??pyt4 zp3QqP3V;&4>ODHLW^ItrM=Ra?A}Z9`hycZd-l=bvqbW^sM3^H!U#K8&?NuBKz~IF5 zaA#IY;8a6sY(fpv;9#sRryWw(LLyQl$wrIhVxnOxu40-^EPgkxO9X2Ez%pBpQj#4W zhf5QC()Fr@XvpwwwH>OiJN0W=aZLLM&9X>KwJWN|AHPTHAzYtlFse-7O?@YhCsiXJ z`J*e{%zU=s-OqdV8bErYBnKa#0d(mCg2l!ugs{>}RB;{3{hE8h`fWZ3@k)`XuKQ>q z*=|}JClBLy-|(tmDrk0LC7S?bBVtx{+M(8Pg5D0Xc?Yw!iAtFO%+Y3u7Ebw8of8;nv>O@Y+##@!yi^^jYBvSR3wbU4T9sXkQcX?=o zMZr~TWM+@=S$zX? zbxBp!w*%N>n=_Q;Ng4vw0Zl^U)u>5*I#1zE>$BhJmrE|sYcEoH&MMidDff>bPu8%} zFdRbp3E^H21`fprIli>t&_S-^@nCb7*OCJNMsi7Ud7D|1R5H zWn*|KZc_f>%N0@_QIE}Y!41zR5P4IuGo2ABU$INSGoa|bvvNEG7R&2^eoHU}!+0}S^ zonbnOfJlq?P{B(%!M02J3UIUeYKzNA74H|7jwFT2nCAzPLk*_Fy&D-zO=8u9rrdcn z9%rl)e6_uiWAOnJ6?AV?J4$yPAdUu`D2|j1xB4Xn8MQXE3+HW|AT}HDcJ*7FC`Kp- z(+ja>S+%;wD+C{b@p{w%1gr1>IH7ZyM_HMuR1PexaBFe$b0ksse ziclNgtXNi=)iE4N&ZPt7vn>^f2vT)1gM0#w7StW*$b40^9*K;_IHMk06fTb=@^5JQ zdJ*e$-Hg;xbn&I@1#X;$r8 zfm%c(J@XLRZrAFe?!V>5#V&Dd=gjxA>O&LnS8e^w11sd#vGp}^l*Q%ttmiS(pR@QY z#}iGVX#Md9$O^~6T_v7S3E=nQ7-^`Vjx=3|+?f1ndu$p~F ziF_KwJzkx2xk@&&j}_vx%aNMh-St+|c|KrsPyU5sEaCh!s2Ud=165U?cjYn;pZGn% z?S?RH;g-h6&t00Wn?`K?w74ak+$_=*F$o2IOcIljoZT zKQiIbevnn;Xc{?fDCiF5u*QxdT8B+ygDt-~oR4Kr_EGTZiKtk=5*?uL8S6t3moLVT zsYdU>jtT?Qw5`OjDgOSkb4!gau8IO)xTB1P>53))f_96?Kcl=2@tr?OR}Q7*u?t-U=XeLs)&(mgQ%hs&bW_u-iES@PZw!_F zjgL9bCUGt?i#598@Ha@BOJhpIT-IYFFAl3Jn?OC_qE>y9yHM5JDoYTwyyF6#y`90+ znqw+Kl%3b!hU#OYM?@_Pu@GsHz1c%$kSvJ#IKHwG=~zE8oI3N7-FI)sU(Mx+YYr2w zw-z>gPAZHeWSpLr@eB@aaUaSB<3*K~m?h|F&w(1>Fm+7`+fDXv`Il_M5E<{dU-(k0u z#Vm!1Cx8FY!=4Pml)^`T^NXrNMDu}BJL=I$bNbKjjUV4npHFvNRP$aI9?L9vdSWNo z)Rr|COYFDkzx}l9OkNA=pqLai$&S_HGik>`c@+zWu%pgNw5!@M*vU$P_G%3?fslVP zIb{i8vHNgVv`M_lNP?SQON&*v{gYAwt7LQrOy-2%3^7k%&+Cep^UunZ%#KduT32Z)#kod;2%0 zh5OJNb!J^VPR?ZV8K$y{dgJtZJrhl(+*od7?%21JaXa2=#pY>OBj{mt zv0l}dabLM*2Ayo*=azk)wwhpO40bz0tFQ{=4q4=uoFrzVnBNbe=ZZGOsD}WhG8%-7 zenxMCS%9wQpnLeW*k^F!7N2G!MDgw{!@c9AX*a|BxalNfcDCb@L}cy~SLYOALVqRJ z9-ctl>zsvoU}6%EE_OqmIYvG~E#f0AMsWkaoCzN+L4J|-B8%SuB_4?!gr$UAidxz! zkcC`{bm$LTBVJSYGhL6mjNVhsd|svC8z6iz1Cj@jnf=*&6^yRbpKbkqk<|=8QKZ;TOls6ze{6P4Ii&YU2ZCig_x@9z zZ`PPkL8sKwsEs)EeQj79v(W*(__5s4)Q<$+-ZCE;2r6x6-<&F>6-u2wy|q-R1JJOm zrV{DB!X>uE^0+|>|O>=|2IYOP`6C2^9Pp~l+J9J*iNUr@ zfWKtXefnkpUzMopg>sey+av~DG9dB>7S%p_hxqFZ7BpwanG#YHG!jHMyi=+ta}f zyzD`A1=Bxssj|r{p#4HAav#VthS{|!&Lb%>dc_)lX#<4bQ3#o!Z3YP317Jvrw<)V5 z9+Grm7%_-vpNQRxPQSVW>`ftqrdL%T+G9&d-WBB?mHw5J8qN=t;5aVxH{H_>JbW2! zY~^`GdXcxKL{Av`rD0_yGq!(Ax|H)5tfg-*>|4=b`V4up!UwCS;$WQLXQs^YF;b6C z9|U?egxBHe@)q$Pm%d#NPJrosY)WD5tDm+e6Vlu!b(%A6S;_9aSt7W4PpZJzz?VBY zli*xQVX8;`{>ba1Cnd>%&BO_CQbmafnnWd~3CFy?O$#MZC#PL`_>jV-S8^*aUyFGe6sfVA_dul`#y*0 z%1pQ-jSd|4C>DHPJ$7&u)l{}gtBT31IwR>y=c}2na&Rl*4-K`Gfugz=k_NV0&-lzVYMu6AG!xf= z+cQhskE-YZhJ#CUVNI2-^j<9?KOy7X_M0E;RDI&}%P`8;HD!bf;b5CHwHZgFb(P4aQTC0Kb^^_AlY=#M z&o(8Zx>!!?L7Pt_-Rp_0a8v=lf@aYjs8A8KxqX)H#cF-2U3_5`0l9G85H6Sq@Dl*A zwLv1Dj?To~b^Tu){5VIsfo#F>W3y)(3b7~#xr6l_FX@CVbsxv3UYm0HF&z!wk>jXTm&+_)LpxmRGStCY`!#Y}w4OASs8I8_L z%P&6$zCC2zP%IkF{PtisyeXXJ6msy>J+lRTa!DcO{pcmF?2UY4A1HL4dH_;6WnG7x zPhNw)H5$MtSo~eAX6EgNKqn{r;P)mw*av`% z5VuO-%$AeBfc)ktANpjeD@4z!sEvS`Zsi1|YuC`iWpEg5If-KKB~n7mmJ*S!ls5Lr zK4-M2YIPV1k;UCQRCV!~;l|ZGM9W@&ZdVc49|>xlw3pt)9ty3pj(;97E%{NTm67-`$0zpYcL6GcuIEW3 zP1Pkfh}ha)qnI>D18V$-`L1>*8+|i29RcR`@nvGEwFb2jO5%a(T?ahAFF)8APXsZX)Y>N)bz@DX?qa8h- z!5Ob{!~bY`%7%cGv2~Ja{-}kfT|2W}A|IvS@{G6VDg(5nXaYxK$Skh*=z;Af8MDQx z>iVbj3UJp`eV(op9rRTVN<=Tz@+a6W9l68mC5$f8>~)}-l<;5fN#Lt==%!-Vd3xq# zm@a;uDOu6xf&2hSsDkF#pb}+IvyXLP%S5?e6i(;R(u?iYZyf?#VcBIe@!>yl*t%=A zdFu+YAk3(LKhfm(1&=GM9^rY~?`Fu$I);7yI>Ot_B6ug09;@D4mgg~vz7k#nP2%v{ z;9e$+L3dG+Sgx&^M9cZUSWWn zM*OxA4f-qv=6j`N;q&?n9pLP&FSLmh^u}E@F+gd-cSi8ACmd)Hj|_-T`{XE%+?v%Y zjYlncG4Byw?CGp?>4Dzbyda%kl5v)%1@_r9igqn>E|(EyYn;}o-R@zzqPofIOgl! z(pSOs`t6d}Uja{U5<82hX=4uC8Y%*r1z4niX}-}QL(|3<4d;hDL~}n4)OA$G96fBb z-U{8C?$h+`t0^0(pJS?uO+qCj`2Hz&*|m42V@ep^9ZZmj`Z$sim?V`6DmM`6F6GAg zBmiG6PfF^mUGNevx()H~a4`AGqvAYfV4uc+n)4{n1F%77zbHe)L=}8by}V4e64=mL zbz3fvG9T@?it(R++ic@K?0>ZCZ+d>3)$m<$)EEunWnL-$U>%{0QhH3fOkU$GH?Tn3 z^qSyjqwd=m`Ls^V_gds!m=gM9-W~N-uh$*9jT~Ce{S+XAe}oF->{zC#<;5Ks&U<$4 z@L6*4NjfS`3lHFw)#4gK9CEJT4QMoUc>-Ui;aZ<;Ql{$-X~WjUdirp!P8H zWY@M78#5xk5mnVAI9D87{`L{#*n<*pm z%|H{Hvn#MEIoi*xZ^q#63h~``H4pCts=QJ3*HdP!J?z**2QAg+3>3N9~v|-uX$H5JZpkW z*HSwj^_jS?qD)T9Vy9#GGveCm{MyQCS74=S{6edGYA_@zV}49TKfsxLRjbe3rUWKv zl|*?TVMxr*!$UV^FJIV{X&mP`^_?uQwbwPYp>$nEH=(JvI=o`onxx$3_A#-o)eL1- zq1qvG@ct&k^aGJ?9vagyqU@Su3U}^H!A#g_q5-#TL^4xXKl6h?WQpnt|DmCp4B)B^ zcNk;uDW*_S$T#{9hnc)gqkO28apN{KHX_x9B293md^X>tY4-0-{N*`{K0N~=*t@7X zW1g?rMF#9g%AaA0L#Px_)Zr{ey|Z%%K?yUKNr;tC4h16PsW=`&S_WY}IvXC`(T@ic zgsir`)LV>D1VMs_t_((ATOo5EkehH8K7d9q-pKhTn2`{1j*77BDRs}P7+jrFvGDrk z)~-?8z$24APBN;8@14Cq9iwzWn2xF2+r%r6+_If+HCrBG3r(uqJMf$EVc$pLV05q4 zE>D+~tuEWwLNwicDl$zBGe1!g`FviJOP=;O|2-3hzk}NJ_$&mjKl;=S%%IaE4%6C% zG^(dsmVv(BnRTqx5;JmC^Nej(C})^#4zBsd7W;+ECO}2=HS5D8d$$zG=`cF;2Kkiq zR1*4l?W6K2L6#Xh(-GZ5>*m^*v3yrNf5y8L@mzU3zTL5cI0}9;X(lgJQC$}Gw@*1r zPCW`Y>xfG~il67gbaw{|G^CrGRI^$(WQqKbMN0M-Wpu0(Q_ak_?PK4~vj!G(Y$o{1h!+sLber=;H*Om&)8Ck~?cw`ZdTGhgi-Sn*}f$U)l ze8UCODwaER02F0`ujSeuTkbb----_Snx$CnjFVzP>}ZJpet0@*oQfl66w|df3u;kA zivq7;+Gm}x={+ptck@T>hB;j0lS>RTRD-kj-|uT@oUcY{9M(oR>H<;+t7SKJ(B2TS zYHPAu6=>dEYq9jjYLj+Y@;4zy7z&rKm}2-0Kh5&~@Ov?noMB6jI=}NQBigb=#~lfqijyOy zuMP4p!O=AE4?~vWr8TNkct{Ln2bzmWu05*ENb?f-BKn>o70-@hYqfvQ^LnIIzPlHmUT2D z`s(fC+$Q@mZdD#yTfO&6`VtP@-hqfx2<0@_^cRf>%f=_l9v@DP-n|iyZsz&3bZa(u zQ;aO_StsZO7DR5T;1mLJzFePE+Sc(*)m@FpQdJT!;Aje&(vo3Jdkv8{Xa;rcv{d#; z)&XuzoafDStMi@(EmYe|4Y{X(@GTw<))+f_ePOG hAiICY|BJl+$8tWz`EWy#8Cc?4x!}c9J)bbNC63fp-Z|``4f^-(%m54B@L3&Eg?wP&|SlM@40c- zy8G+1KRx@yUTgp2tam=ut)T*!FGTr=h#*ijDhPxN0)c!Td3;>l9V}d29Jqa*9IJGp zE?K-pU-Ft>gPt||kkRuQb)^zgP*VA9KAUUHx#HX`wb zNn%%Z^>Yklwcnq|i36L{%X&JebAqs@d63ddvlbC~pg;edYAUBJ~_%wUhy<#j407f!f= zkaoDExk!~c39eisDs?$8{jx0lR{({-Q)+bP#s1Pk825Pf6Ez@P6&&M*+0$Z-@JO^9UGR%Vm9S-AczkD3kN69}28jnNM6fHlY>xY}V$Fl4(!`-DprxsIwJa~ikC(C68%(eHOLH4NQ zSIyg}7V#707Mj6ast2km>L)@M3eO)&hpfKvyoJi|I_}SO^PC=~j>Q9TZiH?-=Hub(EjN?}lvjAK=2F?p zaX#ZO+aTz^oaKDw4)_VXggxJ?*V!MqL&T9W;(HeVGf1BdLwz=Bn>1!spGT0Zci^H&#uD;WCj4Y_xFE8N1qBb)TzKOfA{j6icB#>(Z$^G%oDpyyx ze<>^3_Svl^F#WZpa`zy~B{!dZvyxXN)K)8Wv6sz=>uuN-4VVzu2~x=?Qu?gzivBtm zAsJN&N1(7m=A2?9&o&ZoeT$RFn~Wpjozg*`^9_5RzSs5#P|56#-b*?w!*MGX=tCaC zlivazI3Oa%Az{m$qX>EDLhqZX{{02F5djAa9mUI{q~$7!fP@8@_dfa81}2p+2$dE4 zQ)w|)UdAn}CuUpp`bDXQP~6k8C`_A%it5Y0_>xs?^}mC#qi{CSVR%Xeeo9G2`r5=r z>u^7W*B0Fx`X&M_*#Ci4F*|yDzrLrYr%1D0^4upOHjke{1BmE{HtzA-VCp53+ zMC?Ap_CA)k&5p?M$gqjUGKSoesP-@G2{`Bx_TAU(qv_2wPnofh5zVnf$1Lx`=aFuK zHpB*q`6B`cX!6aR|AJ5-F51xU2n<^z4qRIBL-|6v5>{BAu z*mw($cUC=s;>qT#9ywBVvMn)#I1@%|!8NTdLO&bZ{#$X4jblt$i{d5i8}rjj(eS<| zh)5LP2<@%!OW&5}j6V$bS7A%{0NMb?3FfTr-N<4rIrghPyOiT7ge z(IdEeZfyoi3gAuZE)ONYnzOsCxx{#zaE#v>5?-U_!lj0GxFT>S^t%rjKF`);KoT7m zF`#Yajaf(dpMn+xf$;x#PkURKzjt@Bx3=`;w)o@>Gs1Q?UhwKZJ4xy^^t(vHtKsVp zOm(y*R}Jhi98IhrhpX}@mKewh(N3SLXfCdFJPn+xpgWpbSB8U_kXfa}@Q@zpHd&Cv z!Jho@_;c6_)V7<7nVRPQV9!lY76aRC)~>5;t7n~g3rE8(Uo#S{o)_~@zwGDu0F#n; zogSxMQt-J%LQMeJg$Nz5Omf2J9Pv5Ei#$dMn^di0l)}$H31tb6j+nFs#xtG+c9q1T zK76zw6j1B~K|Zy&L?ihHi0HeEKEQ`@#$rFBIAWH%U;ixT9b2S27`Z~w?Ha&jP_n#tx{t(&g-KpuOd zDEYwwOFB%HgeyvWUh~Qe;Jca2?piC$gNZJ?QY0;3YO97Yf^ z8LBgCqRbm*B!*sAS4>{iX~%AC5fCM^GukQW6qz5?y4K&OGt!C65oQeGgdH0}7ooDKj4mHRH=CDV0=|edaSf$jNxM z2T#Zb4u{fX=iWZ4hT1CBylJf1@K#xwXsi)}ex^Jo@c0>_{{3?GI-AWNr=7);)B0q8 zU;}kLNOAm44*k@~1J=>CPSQ7R(!J4>a6qZqmGV$LZ>9&BO{DYAuv;^JjoZoY#VUPJ z^GH>3eaki>{xW+lKenfuhJFQka`b#z9(T(D29%-YDA4*d9O8P@%gn4qhnYhDyzYq^ z&k+Mb!t$<6y3q96Jo?i(%L8TUa@k*s(Kekg{8z#j=Qa{Vf;YejBeV`E+v)UD0 zZ!TDpoYLsbBt?n&BPGEUqNwyRi`K=ERNh1pzYZ|pb4{uZyNXpXGmJ;lrbMX8Ka?FqsFU8ARXrejzGo;lSY$m|pJ`*%?{>!ct z9VkM`q9a!4(gxV~+;{kn!E9-(31g!_jpe!bCwC3qe@+@ZYjO)`kHzk~3%sm4DS8rtiOQ zk?xJ5WnyQcR=JU^U(@vuUu%zQd?Mh%xf{(GyvFFmzCF(=N|NS0d+@*yzOpfz2psPg zUR68B-wV677x0LQp|IlnTRXT57A?eL-;ZGZP5DZn%&G;*{0Qt$S)u_7JHj*@-vP_{ zN$`y4oeN3Z=?Ql=c#&Zb0I$+vFT$O(#I0ab@sp)nX4{s1!yn-a>?X`MO0_c%<@QGEbEV+vdC- zc8cu=^Y7c+Lic$BLxTXT*s;*#U2Z`hvt-X1vlEIh3pV_-lmJlhMWDpuXp$!Sxr~M* zKaF(vBkJtxm|M?qI!}(WG_EAANIPoNT@Po$puq)cP*lB^57rG3zF|Z89K7F|$jfhzoGlK_TAObISM@j^QAR zSW?jW>}mpkXVOi_bGCS?@RNVJP1hg}ch{0AleUM1`+6*SYJBHo*r5LRb*fgwG={vH zD^&$fq1x#UV$AyUmuw9lqu{~QG!MUwPZm_IA>55~exCeaSQ}yVj?qTDp>pP~4r*=MrQl1|`j0-XGt}%XMf+*maQUJaiDZ+-s}LD$ zdLEe;3DgckzY5%MRqts%Bw_f$^Wh|TOe9;PrzmAv11*;h=``qwNYA0ZfdVo~M~b)g zGLl7}1Z-1X6B-P#s$X0PQfasZhnlW}BxGZj2 zw`*Rd)$OQu_!{r(WY7PX5TnuC%Z#zKSm<0gwHglC8LzPLX{y+(7pHWEBpNsHrD%AU zJ2EcUdWO%*AB(tZGdQdM%Rih|_AJv~1x zPt5PYBP&j8H}B<-OWq{LG9_)@w&JM3?Pfdr^tvGwvAkJZr<#?cMwR?`@habQ80ymp zdAxv*h~%&H-FZ>kSCSmK9k^Grf}^MQiHs5R)hk_+CiMd4rJYBYq3Ro*oB?e3nIq3o~wzqIYext#yXYjKBrO8jw|{3|y+3 zH=H?JRZta2_v#(Y9~x}h>OMA8`c>Ns!>Pbm%7#we%;?4^2Mzh)SNEm)#JoCTr-_zR z<$M3EE7LLiET>Sy(R;5-Bm-`4*1*P_J!>PxD1<}xJ55aBFP++HM!Wy&?YQI_O|gF2E0@9~;8^)b3xk0|=G_~uU)GG~96rk1f{Kh~Tm4}EIT;}ftEbWwWa;1q?2ey2gMfkDq(y@ed+p*seiiXq z-gzKrx`g(&`+4Ow7ni{V4Ul{z=TbpOM}AJfKX?VoJ#c_iODy;xK~eukL1nvGuraAG zt}ctJXh9wu4i)87o-OSN;z8=xeOx2?jXthPSi`5z}H{*3-SQbpL$1c zs-A?_#*Zt#OWcnJ8~G?`TOth+LBBwYQh#WWl!7{fI)ZtS?m%~lcL)ID8t!KlU(h|f z4ELIR@2}oG#HP?^R&94R8Z>0RHV9|%4!+iKH)cWasg&16UM+;G&7r_eW|OPWlvywW!yn)`q^%ktWPjVy|#t$ngOhFXpoe!X>lt*nhy z%hx|Ltpd9PMkaETir{FvWcc-4X_AWxl@hf1^vm~=msFvlGl9E__}^2|Mf5GGIc79d zKD!uODICxWHuLaO#Kr!bAC5MS9A`Jf{kST(?uBcB+{0giW_7lOjSnST+~#J0`E!R< ze4RlbTTr|*&(_vchL2XM{4YGXL;Hu{YV(U6Rcrb%4Ne&WLemByZccrYK`oN)a>wpQeJcn z;cb|L=M35NX@T8u&ijA0%D#q6yIK`plFds%Wt?O?X7f~)OP>1M&?MWCsXlr0v8Yv61tla?@fz-! zGV(9e%@|!kcWacm^53TbODb6WVY+T#@b+?wZv_v(O(SV=$U+p#D(l}Dj%mF!krQR0 z+=lrQKJK-<=W%M&BY2#9{FzDKjT@!!(#PiH}4aQ>T;YhVoE9g-**=ns(Xu zZ-PR9@JnktqCN`IboG6*-0UQR@LkE zBcmX-KB1hs_#4#W4f$0$e$S^dtcCv?MGk@_FG3*PnLi=o^ryDJoJGU|4jRKftk0GoMPFPZNO<;rPyXZx*RklCZ&sNlwf+X` zqACY4_AC|B-i(WlehT*?i15kGIH<2{u8lRt7Z=(bsd|c9cxYX$Fs*LCjqNef-RU03 zSesqD`)(P4yY_MPM zT!o8zgcLhD6l6JeB64I!v0f@#z24c4LQw_vbF>k#l~~}i)~U(yew$HU8hz-(X;1(2 z=>sQsTuFHtzp|tXKT2~cph@zGx<1o=yK_f3@KJB0jj4_TE#CR4N%G!sPd#HYUMu`CuYrlb^&x1cUbB06M;X!1yXX(Jh?TVq-jn!_8$vA?vNC_ zGQSU&o5(Owzhq{+o3d@q(6JYi6wb+{Z2q?d2QU5?o!GvutK|vF$I)@ zoswXOVqv>n>-6rKVKw1aYVGT{O-3hlcFfe<@h6F^ozLB*UgroydMYHWQ5Hl&R?+(I zM)^1P_>=F=s8X^QRpf$k%w{?}J4Z5@)yRFpDxq$~e|nROnbb(__OqGEj9QRnopz{Z zzr6*lk-gw{Ee1NbimgF&BDod_aqdT~&cOxLkq41Gjxt9+IzFID-g#OXv2RJNebOdq zihrch#H@FSQpD{x4#|AR_o_(I?$-4}>px|djkc3X0U@TTxSG&~y2O(jvV8vi7+$1# zHXZJAbM`i2)4a)A#$kqXsHJ+f(POL&`@i?X5dwEVe>HZnzaaG@(ZpTrYW()_4rn#Z z=Z~F(keP;!I;NCb5hOt_S5WT-H^NVN2Ka`gqsT`~8M~?RHG}wvZE1?1|3f|h@0XKg z_{kdIamgZK{68j|6vzAd|1cq3J|hGm$$^jg?SG?({}59eG!O{;KcW1O;7L_{v~U0a prS^aBlu7%1j41ydVG 0 Then + Select Case .Type + Case 100: ext = ".cls" + Case 1: ext = ".bas" + Case 2: ext = ".cls" + Case 3: ext = ".frm" + Case Else: ext = vbNullString + End Select + + If ext <> vbNullString Then + fileName = strSourcePath & "\" & .name & ext + If Dir(fileName, vbNormal) <> vbNullString Then Kill (fileName) + .Export (fileName) + End If + End If + End With + Next +End Sub