Ciao di nuovo a tutti!!!
Sto continuando a sbattere la capoccia su questo scandenziario. Di seguito il codice che sto utilizzando.

codice:
    Dim dataOggi As Variant
    Dim dataScadenza As Variant
    Dim dataDifferenza As Long
    Dim messaggio As Integer
    Dim messaggio2 As Integer
    
    dataOggi = Date
    Text1.Text = dataOggi
    
    dataScadenza = DataGrid1.Columns(1)
    Text2.Text = dataScadenza
        
    dataDifferenza = DateDiff("d", dataOggi, dataScadenza)
    Text3.Text = dataDifferenza
            
    If dataDifferenza <= 3 And dataDifferenza >= 0 Then
        messaggio = MsgBox("Attento! Hai una scadenza a breve", vbOKOnly, "Attenzione")
    Else
        'messaggio2 = MsgBox("Ciao", vbOKOnly)
    End If
(Le tre text le sto utilizando per vedere se calcola in modo corretto e funzionano).

Il problema è che non riesco a far apparire il messaggio di alert; penso che aver sbagliato qualcosa qui
codice:
If dataDifferenza <= 3 And dataDifferenza >= 0 Then
        messaggio = MsgBox("Attento! Hai una scadenza a breve", vbOKOnly, "Attenzione")
.

Spero di essere stato chiaro; quello che intendevo dire io nel codice è che se dataDifferenza è compresa nell'intervallo che va dai tre giorni ai zero giorni, allora mi fai apparire l'alert, altrimenti passa a leggere la data successiva.

Non so più come fare....vi prego se potete aiutatemi.

Grazie mille a tutti!!!