Check if a Program is being installed or not?

Private bInstalled As Boolean
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim oApp As Object = CreateObject("Outlook.Application")
            bInstalled = True
        Catch
            bInstalled = False
            MessageBox.Show("Office Application not installed!", "Office Installed", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
End Sub

Note: Specifying other Program not being installed or not. We wil just change the ff.

    e.g. - CreateObject("Programname.ApplicationType")