Visual Basic 6 - come fare un promemoria in VB?

Salve a tutti,
ho la necessità di programmare un promemoria.
vorrei che questo promemoria mi avvisi quando arriva una data da me stabilita.

Avevo provato un codice con delle if che controllavano il giorno il mese e l'anno, ma non ci sono riuscito a settare bene le if.
Lo posto comunuque.

Private Sub Form_Load()
Timer1.Interval = 100
Dim g, m, a As Integer
Dim pass As Boolean
pass = True
End Sub

Private Sub Timer1_Timer()
'giorno del promemoria
g = 1
m = 4
a = 2008

Text1.Text = "Data attuale:  " & g & " - " & m & " - " & a & vbCrLf _
& "Data scadenza:   " & g & " - " & m & " - " & a & vbCrLf

If (pass = True) Then
    If (Year(Date) >= a) Then
        If (Month(Date) >= m) Then
            If (Day(Date) >= g) Then
MsgBox Promemoria, vbOKOnly + vbInformation, " "
pass = False
            End If
        End If
     End If
End If
End Sub

grazie.

Che errore ti dà precisamente?

credo che non sia giusto il ragionamento delle if

comunque non puoi dichiarare delle variabili nella load e usarle nel timer1. le devi dichiarare in globale oppure nella funzione timer di timer1 altrimenti non è corretto.

Infatti per iniziare potrebbe mettere al posto di tutti quegli "If" un bel operatore logico "And".

If (Year(Date) >= a) And (Month(Date) >= m) And (Day(Date) >= g) And (pass = True) Then

così?
ma il ragionamento logico è giusto?

ti basta una sola text in cui inserire la data in questo formato gg/mm/aaaa e ad esempio con un command fai il controllo

If Text1.Text = Date Then
   MsgBox "Giusto"
End If

vorrei che me lo ricordasse anche dopo che passa il giorno, potrei non avere il pc acceso quel giorno.