I have never tried it, but
System.Management
namespace may help you access remote registry.
Here is a sample which may serve as bases.
Ref[^]
Sub remoteReg()
Dim strComputerName As String = "REMOTE_PC_NAME"
Dim strKeyPath As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
Dim objManagementScope As ManagementScope
Dim objManagementClass As ManagementClass
Dim objManagementBaseObject As ManagementBaseObject
objManagementScope = New ManagementScope
objManagementScope.Path.Server = strComputerName
objManagementScope.Path.NamespacePath = "root\default"
objManagementScope.Options.EnablePrivileges = True
objManagementScope.Options.Impersonation = ImpersonationLevel.Impersonate
objManagementScope.Connect()
objManagementClass = New ManagementClass("stdRegProv")
objManagementClass.Scope = objManagementScope
objManagementBaseObject = objManagementClass.GetMethodParameters("EnumKey")
End Sub