Visual Studio VB.NET Visualizzare un messaggio alla scadenza.

[Pacifico]

Buongiorno,
Gradirei un vostro gradito supporto per un quesito che da giorni sono dietro senza riuscire.
Ho completato un programma "Scadenzario" e la difficoltà che incontro è la visione su MSGBOX all'avvicinarsi di una scadenza.
In DataGridView ci sono due colonne: la prima le voci e la seconda i giorni.
Inserisco il codice:

Dim Scadenza As Object, Scade As Object, I
For I = 0 To DataGridView1.RowCount.ToString() – 1
Scade = DataGridView1.Columns(0)
Scadenza = DataGridView1.Columns(1)
If Scadenza(I) <= 5 And Scadenza(I) > 5 Then
MsgBox("Attento! Hai una scadenza a breve " & Scade & " " & Scadenza, "Attenzione")
Else
MsgBox("Non ci sono scadenze", vbOKOnly)
End If
Next

Gradirei gentilmente che dal 5° giorno fino allo 0 mi avvisa tramite un MSGBOX, la scadenza.
Anticipatamente ringrazio, saluto.
Domernico.