Calcular diferencia de edad con VisualBasic.NET usando funciones

Module Module1

    Sub Main()
        Dim anio, mes, dia As Integer
        Console.WriteLine("Ingrese el dia de nacimiento")
        dia = Console.ReadLine
        Console.WriteLine("Ingrese el mes de nacimiento")
        mes = Console.ReadLine
        Console.WriteLine("Ingrese el año de nacimiento")
        anio = Console.ReadLine

        'Determinar si es mayor de edad
        If anios(dia, mes, anio, DateInterval.Year) >= 18 Then
            Console.WriteLine("Mayor de edad")
        Else
            Console.WriteLine("Menor de edad")
        End If

        Console.WriteLine("Los dias trnacurridos son " & _
                          anios(dia, mes, anio, _
                                DateInterval.Day))

        Console.ReadKey()
    End Sub

    Function anios(ByVal dia As Integer, ByVal mes As Integer, ByVal anio As Integer, ByVal intervalo As DateInterval) As Integer
        Dim fechanac As Date
        Dim anios2 As Integer

        fechanac = DateSerial(anio, mes, dia)
        anios2 = DateDiff(intervalo, fechanac, Now)

        Return anios2

    End Function
End Module