Imports Microsoft.Win32
Imports System.IO

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim rk As String
        Dim b As String
        Dim offvers As Object
        For offvers = 8 To 11
            If IsKey("SOFTWARE\Microsoft\Office\" & offvers & _
              ".0\Registration") = True Then
                Dim regVersion As RegistryKey
                regVersion = Registry.LocalMachine.OpenSubKey( _
                  "SOFTWARE\Microsoft\Office\" & offvers & ".0\Registration")
                For Each rk In regVersion.GetSubKeyNames()
                Next
                If IsValue("SOFTWARE\Microsoft\Office\" & offvers & _
                  ".0\Registration\" & rk, "ProductName") = True Then
                    b = ReadValue("SOFTWARE\Microsoft\Office\" & offvers & _
                    ".0\Registration\" & rk, "ProductName")
                    MsgBox(b)
                End If
            End If
Next
    End Sub

'----------  Schlüssel vorhanden?  ----------
    '
    Function IsKey(ByVal sKey As String) As Boolean
        Dim objCurrUser As RegistryKey = Registry.LocalMachine
        Dim objSubKey As RegistryKey
 
        Try
            'Den Schlüssel testweise öffnen
            objSubKey = objCurrUser.OpenSubKey(sKey, True)
            objSubKey.Close()
            Return True
        Catch
            Return False
        End Try
    End Function
    '-------------  Eintrag vorhanden?  ----------------
    '
    Function IsValue(ByVal sKey As String, ByVal sEntry As String) As Boolean
        Dim objCurrUser As RegistryKey = Registry.LocalMachine
        Dim objSubKey As RegistryKey
        Dim sValue As String
        Try
            objSubKey = objCurrUser.OpenSubKey(sKey, True)
            '----------  Wert testweise lesen  ----------
            sValue = objSubKey.GetValue(sEntry).ToString
            Return True
            objSubKey.Close()
        Catch
            Return False
        End Try
    End Function
 
    '----------  Wert lesen  ----------
    '
    Function ReadValue(ByVal sKey As String, ByVal sEntry As String) As String
        Dim objCurrUser As RegistryKey = Registry.LocalMachine
        Dim objSubKey As RegistryKey
        Try
            objSubKey = objCurrUser.OpenSubKey(sKey, True)
            '----------  Wert lesen  ----------
            Return objSubKey.GetValue(sEntry).ToString
            objSubKey.Close()
        Catch
            Return ""
        End Try
    End Function