Dim strcomputer As String
Dim objWMIService
Dim objItem
Dim b As String
Dim Colitems
Dim obj
Dim ITextStream
Dim IntRet1
Dim strKey, strSubKey As String
Dim objRegistry As Object
Dim strDisplayName As String
Dim arrSubKeys() As Object = New Object(1) {}
Dim strDisplayVersion As String = ""
Dim strInstallLocation As String = ""
Const HKEY_LOCAL_MACHINE = &H80000002
'----- Deklaration abgeschlossen_
 
strcomputer = "localhost"
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
objRegistry = GetObject("winmgmts://" & strcomputer & _
  "\root\default:StdRegProv")
objRegistry.EnumKey(HKEY_LOCAL_MACHINE, strKey, arrSubKeys)
For Each strSubKey In arrSubKeys
 
'****
 
' In dieser Zeile erscheint der Fehler. Anscheinend darf irgendeine Variable 
' den Wert NULL nicht zurückgeben. Leider weiß ich nicht wie man das mit einer 
' Instanz umschiffen kann.
 
 
IntRet1 = objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, strKey & strSubKey, _
  "DisplayName", strDisplayName)
 
'*** 
If IntRet1 Is Nothing Then MsgBox("NULL") Else 
MsgBox(strDisplayName)
Next