Вы можете работать с ключами реестра, для которых вы заранее не знаете имя, с помощью поставщика реестра wmi.
У него есть метод EnumKey , который даст вам все подключи для данного ключа. Вы можете использовать это, чтобы получить все идентификаторы как это:
Const HKCU = &H80000001 'HKEY_CURRENT_USER
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\./root/default:StdRegProv")
sBaseKey = "Identities\"
iRC = oReg.EnumKey(HKCU, sBaseKey, aSubKeys)
For Each sKey In aSubKeys
Msgbox sKey
Next
Как только вы узнаете личность, вы сможете с ее помощью создать полный путь и создать ключ с помощью метода CreateKey . Вы даже можете использовать обычный метод RegWrite для создания ключа на этом этапе, но, поскольку у вас уже есть объект StdRegProv, я бы просто использовал его.