como saber el año en ke estamos!!!

[vbx3m]

Tambien podrias probar asi:

Código:

Private Sub Command1_Click()
Dim fecha1, fecha2
fecha1 = DateValue(Text1.Text) 'Fecha Actual
fecha2 = DateValue(Text2.Text) 'Fecha de Nacimiento
MsgBox "Tu edad: " & Int((fecha1 - fecha2) / 365)
End Sub