MsgBox objExcel.ActiveSheet.Range("B" & lngRowNum )

Regards, TMS