Visual Basic - ayuda error 429

hola necesito si me pueden esplicar como solucionar un error

el tema es que es una aplicacion sencilla que te dice la velocidad del cpu.
el cual lo tenia ya echo, pero tube que formatiar la pc y ahora al tratar de hacerlo de nuevo me dice run-time error '429' ActiveX component can't create object

y me marca esta linea de la fuente mal

Set Reg = CreateObject("WScript.Shell")

pero como puse antes, con esa misma linea antes de formatiar me funcionaba..

pongo todo el codigo aver si me pueden tirar una mano.

Const RAMA_RAGISTRO As String = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\" & _
"System\CentralProcessor\0\~MHz"

'variable de retorno para el valor de la velocidad
Dim Ret As Long
'variable para el objeto Wsh
Dim Reg As Object

'Nueva instancia para usar Windos scripting Host
Set Reg = CreateObject("WScript.Shell")

'Leemos el valor
Ret = CLng(Reg.regread(RAMA_RAGISTRO))
'Eliminamos la variable
Set Reg = Nothing

'Mostramos el valor de la velocodad del CPU
MsgBox "La velocidad del Cpu es: " & CStr(ret) & " MHz", vbInformation, ""

bueno ese es mi problema desde ya muchas gracias.
saludos