How to Read Last Row Of MS Excel

[cheer]

I already have the below codes. Anyone know how to read the last row of MS Excel ?

Dim xl As Excel.Application
Dim xlWrkSht As Excel.Worksheet
Dim xlWrkBk As Excel.Workbook

Set xl = CreateObject("Excel.Application")
Set xlWrkBk = GetObject(strBOMExcelFilePath)
Set xlWrkSht = xlWrkBk.Worksheets(1)