Public Enum Hive
  HKEY_CLASSES_ROOT
  HKEY_CURRENT_USER
  HKEY_LOCAL_MACHINE
  HKEY_USERS
  HKEY_CURRENT_CONFIG
End Enum
 
 Function GetHive(hivetype As Hive) As Variant
  Select Case hivetype
    Case 0:      GetHive = &H80000000  ' HKEY_CLASSES_ROOT
    Case 1:      GetHive = &H80000001  ' HKEY_CURRENT_USER
    Case 2:      GetHive = &H80000002  ' HKEY_LOCAL_MACHINE
    Case 3:      GetHive = &H80000003  ' HKEY_USERS
    Case 4:      GetHive = &H80000005  ' HKEY_CURRENT_CONFIG
  End Select
End Function
 
Function GetStringValFromRegistry(StrComputer As String, _
                                    hivetype As Hive, _
                                    regPath As String, _
                                    keyValue As String) As String
Dim objReg As Object
Dim strKeyPath As String
Dim ValueName As String
Dim strValue As String
 
  Set objReg = GetObject("winmgmts:" _
                              & "{impersonationLevel=impersonate}!\\" _
                              & StrComputer & "\root\default:StdRegProv")
  strKeyPath = regPath
  ValueName = keyValue
  objReg.GetStringValue GetHive(hivetype), strKeyPath, ValueName, strValue
  GetStringValFromRegistry = strValue
 
End Function

    Debug.Print GetStringValFromRegistry(StrComputer, HKEY_LOCAL_MACHINE, _
      "SYSTEM\my\Installationen\1\", "Version")
    Debug.Print GetStringValFromRegistry(StrComputer, HKEY_LOCAL_MACHINE, _
    "SYSTEM\my\Installationen\1\", "DatumZeit")
    Debug.Print GetStringValFromRegistry(StrComputer, HKEY_LOCAL_MACHINE, _
    "SYSTEM\my\Installationen\1\", "Beschreibung")
    Debug.Print GetStringValFromRegistry(StrComputer, HKEY_LOCAL_MACHINE, _
    "SYSTEM\my\Installationen\1\", "Status")

Abfrage nur 1 mal durchführen