Eccomi di nuovo. Ho risolto scrivendo questo codice:

Private Sub Command1_Click()

Dim DataNascita As Date
Dim Anni
DataNascita = Text1.Text
Anni = DateDiff("yyyy", Now, DataNascita) * -1
Text2.Text = Anni
End Sub

Il codice funziona, secondo voi può andare? Di nuovo saluto e ringrazio tutti, Massimo!
Grazie MItaly!!