Espero que sea esto lo que necesitabas, por lo poco que explicabas sí. Ya he encontrado la solución completa, si necesitas algo más enviame un mensaje privado.
Private Sub Command1_Click()
Dim fec As Variant
Dim nac As Integer
Dim anno1 As Integer
Dim anno As Variant
fec = Date
anno = Year(fec)
nac = Text1.Text
anno1 = anno - nac
MsgBox "Naciste en el año " & anno1
End Sub
