Public Function ReadExcel(ByVal PathExcelFile As String) As Boolean
 
        Try
            Dim bRet As Boolean = False
            Dim exApp As Excel.Application
            Dim exWb As Excel.Workbook
            Dim exSh As Excel.Worksheet
            Dim exRng As Excel.Range
 
            exApp = New Excel.Application()
            exWb = exApp.Workbooks.Open(PathExcelFile)
            exSh = exWb.Sheets(1)
 
            exRng = exSh.Range("B2")
            Process1 = exRng.Value
 
            exRng = exSh.Range("C2")
            CostProcess1 = exRng.Value
 
            exApp.Workbooks.Close()                 ' closing Excel
            exApp.Quit()
            exApp = Nothing
 
            bRet = True
            Return bRet
 
        Catch ex As Exception
            Trace.WriteLine("Fehler: Wo: " & _
            ex.StackTrace & " Was: " & ex.Message)
        End Try
 
End Function