Try
      Dim dataNascita As String = "14 Marzo 1972"
      Dim nuovaData As DateTime = Convert.ToDateTime(dataNascita)
      Response.Write("Et: " & DateDiff("yyyy", nuovaData, Now()))
Catch ex As Exception
       Response.Write(ex.Message.ToString)
End Try