Obtener edad y mostrarla en un textbox

Tengo una hoja con un DTPicker, lo que quisiera es que al cargar una fecha de nacimiento, me muestre la edad actual de aquella persona, hice este código pero me muestra como resultado un numero de varios dígitos.

Private Sub DTPicker6_LostFocus()
    Dim Edad As Integer
    Dim fechaactual As Date
    fechaactual = Now
    Edad = fechaactual - DTPicker6
    txt_Edad.Value = Edad
End Sub

Ahora ingreso una fecha, por ejemplo 01/01/1982 y el resultado que muestra en el txt_Edad es este : 12815.

¿

¿Algún alma caritativa que me pueda ayudar con este problema?,