VB Script Run time error : Object not a collection

I am running some installer on my machine which is giving me error on 78th line. I don't know how to fix hence providing you code snippet from line number 74 to 84:
==========================================================
Function GetInstanceNames
      strKeyPath = "SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names"
      dReg.EnumKey  HKEY_LOCAL_MACHINE,strKeyPath,subkeys
      IsSQLsubkeyFound = FALSE
      FOR EACH subkey IN subkeys
            'WScript.echo subkey
            IF subkey = "SQL" THEN
                  IsSQLsubkeyFound = TRUE
                  EXIT FOR
            END IF
      NEXT
===================================================
Note : This script basically checks for the sql instance name and then installs simulator installer. This vb script works fine when I have MSSQLSERVER 2008 Express installed on my machine. However currently I have installed MSSQL Server 2012 and having this error. Screenshot attached, in case more info is required please let me know. Thanks!
error-1.jpg