Converting a listbox column from text format to date format

[kelly mort]

I have this line here: My listbox is povulated by the .Text format. Now I wanna get the contents in the 4th column back to the date format and display only the year in a textbox. I used the code below but I got some strange result. My dates are like this in the worksheet :
DD-MM-YY.
And I want the year show in the textbox As:
YYYY .

I am just stucked
Thanks in advance
Kelly

TextBox1. Value = Format (CDate (Right (Me.ListBox1. Column  (3, i)), 2). "yyyy")

 

[kelly mort]

I think i have fixed it:



TextBox1. Value = Format (CDate (Me.ListBox1. Column (3, i)), "yyyy")