Tio prodria se asi coloca 4 cajas de texto y un command eso te puede resolver el problema por ahora y para q tengas una idea de como hacerlo
Código:
Private Sub Form_Load()
Text1 = Year(Date) 'Extraigo el año de la fecha actual del sistema
Text2 = "18/9/1985" 'Fecha de nacimiento
End Sub
Private Sub Command1_Click()
Text3 = Right(Text2, 4) ' Extraigo 4 caracteres desde la derecha, el año
Text4 = Val(Text1) - Val(Text3)
End Sub