Dim row As XSSFRow = sheet.getRow(41)
Dim Cell As XSSFCell = row.getCell(2)
Cell.StringCellValue = ACEditText1.Text
Dim row As XSSFRow = sheet.getRow(42)
Dim Cell As XSSFCell = row.getCell(5)
Cell.StringCellValue = DateText.Text
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
wait for Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim outstream As OutputStream = File.OpenOutput(File.DirRootExternal, "Vehicle Checks Completed.xlsx", False)
xls.write(outstream)
outstream.close