Binaryworld - IsWordInstalled - Checking whether MS Word is installed ... [ VB.net -> Windows ]

' this code assumes that you have used this Imports statement
' Imports Microsoft.Win32

Function IsWordInstalled() As Boolean
  ' Define the RegistryKey objects for the registry hives.
  Dim regClasses As RegistryKey = Registry.ClassesRoot

  ' Check whether Microsoft Word is installed on this computer,
  ' by searching the HKEY_CLASSES_ROOT\Word.Application key.
  Dim regWord As RegistryKey = regClasses.OpenSubKey("Word.Application")
  If regWord Is Nothing Then
    IsWordInstalled = False
    Console.WriteLine("Microsoft Word isn't installed")
  Else
    IsWordInstalled = True

  End If
  ' Always close Registry keys after using them.
  regWord.Close
End Function

' Example
If IsWordInstalled() Then
  Console.WriteLine("Microsoft Word is installed")
Else
  Console.WriteLine("Microsoft Word is not installed")
End If