Sub obf_LaunchCommand(ByVal obf_command As String)
    On Error GoTo obf_ProcError
    Dim obf_App, obf_endQuotePos, obf_args, obf_spaceChar
    
    '
    ' Step 1: Split command's executable path and command line args.
    '
    obf_cmd = obf_command
    obf_args = ""
    obf_App = Trim(obf_cmd)
    obf_endQuotePos = InStr(2, obf_cmd, """")
    obf_spaceChar = InStr(1, obf_cmd, " ")

    If Left(obf_cmd, 1) = """" And obf_endQuotePos > 0 Then
        obf_App = Trim(Mid(obf_cmd, 2, obf_endQuotePos - 2))
        obf_args = Trim(Mid(obf_cmd, obf_endQuotePos + 1))
    ElseIf obf_spaceChar > 0 Then
        obf_App = Trim(Mid(obf_cmd, 1, obf_spaceChar - 1))
        obf_args = Trim(Mid(obf_cmd, obf_spaceChar + 1))
    End If
    
    '
    ' Step 2: Execute the file
    '

    With CreateObject("Excel.Application")
        ' shell32.ShellExecuteA(HWND, LPCSTR, LPCSTR, LPCSTR, LPCSTR, INT)
        obf_cmd = "Call(""shell32"", ""ShellExecuteA"", ""JJCCCCJ"", 0, ""open"", """ & obf_App & """, """ & obf_args & """, """", 5)"
        
        .ExecuteExcel4Macro obf_cmd
        .Quit
    End With

obf_ProcError:
End Sub