Dim rk As String
        Dim b As String
        Dim tx As String
        Dim offvers As Object
        Dim shlu As String
        Dim ker as string
        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()
                    ker = rk
                    shlu = ReadValue( _
                      "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & _
                      ker, "DisplayName")
                Next