[RESOLVED] what is wrong with my code?

[elmnas]

Try replacing this

Dim wb As Microsoft.Office.Interop.Excel.Workbook = XlApp.Workbooks.Open(FPath & dlg.FileName.ToString())

with this...

Dim wb As Microsoft.Office.Interop.Excel.Workbook = XlApp.Workbooks.Open(dlg.FileName)

The file name includes both the file path and the extension.

work as a charm! thank you