' this code assumes that you have used this Imports statement' Imports Microsoft.Win32Function 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_ROOTWord.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.CloseEnd Function' ExampleIf IsWordInstalled() Then    Console.WriteLine("Microsoft Word is installed")Else    Console.WriteLine("Microsoft Word is not installed")End If