Salve a tutti i forumisti!!!

Come dice il titolo mi sto dilettando nella realizzazione di una sorta di scadenziario che fa la differenza tra due date e se questa differenza è inferiore a 3 giorni, mi appare una msgbox; vi posto il codice perchè non mi riesce di farla funzionare. Sembrerà una cretinata ma non ci riesco. Questo è il codice:

codice:
Dim Data1 As Date
Dim Data2 As Date
Dim Differenza As Long
Dim M As MessageBox
Dim drQuit As DialogResult

Data1 = Today()
Data2 = DTPData.Value
Differenza = DateDiff("d", Data1, Data2)

if Differenza < 3 Then

drQuit = MessageBox.Show("Attento!! Hai una scadenza tra 3 giorni", _
            "Messaggio di allerta", _
            MessageBoxButtons.YesOnly, _
            MessageBoxIcon.Warning, _
            MessageBoxDefaultButton.Button1)
else
End If