Dim File As FileStream = New FileStream(Application.StartupPath & "\repro.xls", FileMode.Open, FileAccess.Read)
      Dim WB As HSSFWorkbook = New HSSFWorkbook(File)
      File.Close
      Dim SH As HSSFSheet = WB.GetSheet("Sheet1")
      Debug.Print("3d value = {0}", SH.GetRow(4).GetCell(0).NumericCellValue)