Convert CSV file to Excel File

 Public Sub ConvertCSVtoXL(ByVal strCSVPath As String)
        Try
            Dim xlsApp = New Excel.Application
            Dim xlsBook = xlsApp.Workbooks.Open(Filename:=strCSVPath, UpdateLinks:=False, ReadOnly:=False)
            xlsBook.SaveAs(FileName:=C:\Reject", FileFormat:=Excel.XlFileFormat.xlExcel9795)
            xlsApp.quit()
        Catch ex As Exception
            System.Console.WriteLine("Converting to Excel File Error: " + ex.Message)
        End Try
    End Sub