Visual Basic - ayuda para Extraer de una fecha el Año

hola necesito saber como hago para guardar en una variable solamente el año o sea que la fecha sea por ejemplo:
25/05/2007
y en una variable que se llame año solo me guarde 2007, si alguien me puede ayudar se lo agradecere es que estoy haciendo un programa en visual y no se hacer eso....
gracias

año = Year(Fecha)

Primero tienes que obtener la fecha del sistema (Si es que la quieres de forma automatica) y luego darle formato:
por ejemplo:

Text1.Text = Format(Date, "dd/mm/aaaa") 'Este queda: 25/05/2007
Text2.Text = Format(Date, "aaaa") 'Este queda: 2007

d = 1, 2, 3...31 dependiendo de los dias del mes
dd = 01, 02, 03...31 igual que el anterior pero muestra dos digitos desde el 1
mm = 01, 02, 03...12
mmmm = Enero, Febrero, Marzo...Diciembre
yy = 07
yyyy = 2007

Espero que sea lo que estas preguntando y te sirva, saludos.