how to solve this errer "Unable to cast COM"

        Imports Microsoft.Office.Interop
        Imports Microsoft.Office.Interop.Excel
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
 
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer
        xlApp = CreateObject("Excel.Application")
        xlApp = New Excel.ApplicationClass
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")

Unable to cast COM object of type Microsoft.Office.Interop.Excel.ApplicationClass; to interface type &amp;amp;amp;#39;Microsoft.Office.Interop.Excel._Application. This operation failed because the QueryInterface call on the COM component for the interface with IID &amp;amp;{000208D5-0000-0000-C000-000000000046} failed due to the following error:  could not be found. (Exception from HRESULT: 0x80030002 (STG_E_FILENOTFOUND)).</pre>