Devuelve el año de una fecha dada.

Ejemplo de uso:

  If VarType(rsCon.rdoColumns("FECHA").Value) <> vbNull Then
    txtBonif.Value = CStr(Year(rsCon.rdoColumns("FECHA").Value))
  End If