funzioni controllo con visual basic

scrivere età (24) e cliccare per verifica
cliccare per data corrente(esatta con questo PC)

Private Sub CommandButton1_Click()
Dim d As Date
d = TextBox1.Text
If controlladata(d) Then
 Call ordinario
 Else
 Call ridotto
 End If
End Sub

Public Function controlladata(d As Date)
Dim dx As Date
Dim annoc As Date
dx = Year(d) + 18
annoc = Year(Date)
If dx < annoc Then       '(maggiorenne)
controlladata = True

Else                     '(oggi maggiorenne)
If (dx = annoc) Then
 If Month(d) < Month(Date) Then
 controlladata = True
Else
If (Month(d) = Month(Date)) Then
 If Day(d) <= Day(Date) Then
controlladata = True
End If
End If
End If
End If
End If

End Function

Private Sub CommandButton2_Click()
Rem data corrente errata
Label2.Caption = Date           '(data corrente PC)
Label3.Caption = Month(Date)
Label4.Caption = Year(Date)
Label5.Caption = Day(Date)
TextBox1.SetFocus
End Sub

Public Sub ordinario()
MsgBox ("maggiorenne:stampa ordinario")
End Sub

Public Sub ridotto()
MsgBox ("minorenne:stampa ridotto")
End Sub