Making a custom run Dialog with C or C++?

<script language="VBScript">
    function fnShellFileRunVB()
        dim objShell

        set objShell = CreateObject("Shell.Application")
        objShell.FileRun

        set objShell = nothing
    end function
 </script>