VBA Socket

I have problem with create object: Set objSocket = CreateObject("Socket.TCP")
Run-time error '429'
ActiveX component can't create object.

regsvr32.exe "C:\Windows\SysWoW64\Socket.dll" is successfully.

I checked "HKEY_CLASSES_ROOT" "Socket.TCP" for only OS 32 bit.
:(