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(ExcelPath)
exSh = exWb.Sheets(1)
 
exRng = exSh.Range("B2")
Process1 = exRng.Value
exRng = exSh.Range("B3")
Process2 = exRng.Value
...
...
 
exRng = exSh.Range("C2")
CostProcess1 = exRng.Value
exRng = exSh.Range("C3")
CostProcess2 = exRng.Value
...
...