Is this the best way to call an HTA from within an HTA?

<script type="text/vbscript">
Option Explicit
Dim objSHL
Set objSHL = CreateObject("WScript.Shell")
objSHL.Run "%comspec% /C C:\windows\system\mshta.exe C:\called.hta"
Set objSHL = Nothing
</script>

Thanks in advance.


Here's "caller.hta" and "called.hta" for testing:

<html>
<head>
<hta:Application ID="hta"
ApplicationName="caller">
<head>
<title>caller.hta</title>
<script type="text/vbscript">
Option Explicit
Sub Caller()
Dim objSHL
Set objSHL = CreateObject("WScript.Shell")
objSHL.Run "%comspec% /C C:\Windows\System\mshta.exe C:\Called.hta"
Set objSHL = Nothing
End Sub
</script>
</head>
<body>
<button onclick="Caller()">Caller</button>
</body>
</html>


<html>
<head>
<hta:Application ID="hta"
ApplicationName="called">
<title>called.hta</title>
<script type="text/vbscript">
Option Explicit
Sub Called()
MsgBox "Hello World",vbInformation,"called.hta"
End Sub
</script>
</head>
<body>
<button>Called</button>
</body>
</html>