VERIFICAR IDADE

Dim DataNascimento As DateTime = Convert.ToDateTime([Ô]23/10/1978[Ô])
Dim ts As TimeSpan = DateTime.Today.Subtract(DataNascimento)
MessageBox.Show(New DateTime(ts.Ticks).ToString([Ô]yy[Ô]) & [Ô] anos[Ô])

    [ô][ô][ô] <summary>
    [ô][ô][ô] Calcula a idade de uma pessoa
    [ô][ô][ô] </summary>
    [ô][ô][ô] <param name=[Ô]pDataNascimento[Ô]>Data de nascimento da pessoa</param>
    [ô][ô][ô] <returns>Idade</returns>
    Public Function CalcularIdade(ByVal pDataNascimento As DateTime) As String
        Dim Idade As Integer = Now.Year - pDataNascimento.Year
        If Now.Month < pDataNascimento.Month Or (Now.Month = pDataNascimento.Month And Now.Day < pDataNascimento.Day) Then
            Idade = Idade - 1
        End If
        Return String.Format([Ô]{0} anos[Ô], Idade)
    End Function

MessageBox.Show(Me.CalcularIdade(Convert.ToDateTime([Ô]05/05/1989[Ô])))