diff --git a/templates/stagelessv4.vba b/templates/stagelessv4.vba
index 9b83e1e..5838cd9 100644
--- a/templates/stagelessv4.vba
+++ b/templates/stagelessv4.vba
@@ -4,6 +4,7 @@ End Sub
 Sub SetVersion
 Dim shell
 Set shell = CreateObject("WScript.Shell")
+shell.Environment("Process").Item("COMPLUS_Version") = "v4.0.30319"
 End Sub
 
 Private Function decodeHex(hex)
@@ -295,4 +296,4 @@ Function Run()
       DebugPrint Err.Description
       Err.Clear
     End If
-End Function
\ No newline at end of file
+End Function