Public Sub verifica()
        Dim appExcel As New Microsoft.Office.Interop.Excel.Application
        appExcel.Visible = False
        Dim file As String    'l'idea è di poterli modificare a piacimento
        Dim foglio As String
        file = "file.xls"
        foglio = "nome_del_foglio"
        Dim WB As Microsoft.Office.Interop.Excel.Workbook = appExcel.Workbooks.Open(file)
        Dim WS As Microsoft.Office.Interop.Excel.Worksheet = WB.Worksheets(foglio)
        Dim scadenze As New List(Of scadenza)
        For i As Integer = 2 To 38
            Dim s As New scadenza
            s.indirizzo = WS.Range("B" & i).Text
            s.data = WS.Range("A" & i).Text
            scadenze.Add(s)
        Next
        For Each s As scadenza In scadenze
'30 giorni prima
            If DateDiff(DateInterval.Day, Now, s.data) <= 30 Then
                MsgBox("tra " & DateDiff(DateInterval.Day, Now, s.data) & " giorni scade " & s.indirizzo)
            End If
        Next
        WB.Close(SaveChanges:=False)
        appExcel.Quit()
        appExcel = Nothing
'killo il processo excel
        Dim processi() As Process = Process.GetProcessesByName("EXCEL")
        For Each processo As Process In processi
            If processo.MainWindowTitle = "" Then
                processo.Kill()
            End If
        Next
    End Sub