Hvem kan hjælpe med visuaæ basic

Følgende formel placeret i B1 beregner alder ud fra dags dato hvis fødselsdato er placeret i A1:
=DATO.FORSKEL(A1;IDAG();"y")

ja men jeg kan ikke gennem skue hvad der går galt, så ville gerne sende til en der vil lave det så det virker.

Har du fået en mail?

+++++ tilføjet i koden

  If Mid(CStr(termg(e)), 7, 1) = "2" Then  '++++++++ Annullerer tester føde-århundrede
        termgr$ = Right(termg(e), 2) + 2000 '++++++++ hvis ens, så beregn aktuelle alder
    Else
        termgr$ = Right(termg(e), 2) + 1900 
    End If