Private Function GetWordInstallPath(ByVal WordVersion As Integer) As String
        Dim sKey As String = "SOFTWARE\Microsoft\Office\" + _
          WordVersion.ToString + ".0\Word\InstallRoot"
        Dim oKey As Microsoft.Win32.RegistryKey = _
        Microsoft.Win32.Registry.LocalMachine.OpenSubKey(sKey)
        If oKey Is Nothing Then
            Return String.Empty
        End If
        If oKey.GetValue("Path") Is Nothing Then
            Return String.Empty
        Else
            Return oKey.GetValue("Path").ToString
        End If
    End Function
 
    Public Function GetWordVersion() As Integer
        For a As Integer = 7 To 11
            If Not GetWordInstallPath(a) = String.Empty Then Return a
        Next
        Return -1
    End Function
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim ver As Integer = Me.GetWordVersion
        If ver = -1 Then
            MessageBox.Show("Kein Word installiert!")
        Else
            MessageBox.Show("Word " + ver.ToString + " installiert!")
        End If
    End Sub