msgbox("Product Name: "&Environment("ProductName"))
msgbox("Product Version: "&Environment("ProductVer"))
msgbox("Product Directory: "&Environment("ProductDir"))
msgbox("Test Name: "&Environment("TestName"))
msgbox("Test Directory: "&Environment("TestDir"))
