为何总是显示无效使用new关键字

为什么总是显示无效使用new关键字
从网上移植了一段代码,判断本机是否安装了WINRAR，原程序运行正常，但是移植到我的代码里总是显示无效使用new关键字。
已经引用了“Registry Access Functions”，分不多，哪位好心帮帮我吧，先谢了！

Function GetWINRARPath() As String

Dim myReg As New Registry, KeyFound As Boolean   '问题就出现在这里

KeyFound = myReg.GetKeyValue(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE", "Path", GetWINRARPath)

If KeyFound = False Then MsgBox "系统未安装WINRAR.EXE!": GetWINRARPath = ""

If KeyFound = True Then GetWINRARPath = GetWINRARPath & "\WINRAR"

End Function

------解决思路----------------------
或者你看下你的引用，“Registry Access Functions"确实引用上了？
------解决思路----------------------
楼主只是说,已经引用了“Registry Access Functions”,并没说这个DLL已经用regsvr32一类的正常在当前WINDOWS下注册，这是有区别的。由于没用过“Registry Access Functions”，一下子还想不到别的可能原因。
------解决思路----------------------
菜单工程-引用中，要将对应的类型库勾选