If CheckBoxLS.CheckState = CheckState.Unchecked Then
            Dim biglietto As String
            Dim BigliettoSub As String
            For i = 0 To DataGridViewReport.Rows.Count - 1
                If DataGridViewReport.Rows(i).Cells(4).Value = False Then
                    biglietto = (DataGridViewReport.Rows(i).Cells(8).Value)
                    BigliettoSub = (DataGridViewReport.Rows(i).Cells(9).Value)
                End If

            Next
            MessageBox.Show("questo è il valore finale dell'ultimo biglietto" & biglietto & "  " & BigliettoSub)
        End If