Recognizing a date format to calculate date in the future

I have a lot code (plant,date,line,sub) that I need to convert to a date. The lot code is always a 10 digit number.
6051230220… The date is located in the 3rd – 7th digit, represented as YMMDD. So in this case it is 51230 or December 30, 2015. I am ultimately trying to get the expiration date which will be random but for this argument it will be 60 days. I am using a user form (UserForm1). The user enters the lot code into (LotTextBox1). I have an expiration date box on the user form (ExpDateTextBox1). I decided to use the worksheet in the workbook (User Form) to get the date value separated using the mid function. I figured I could have the user enter the lot code in the User Form worksheet and manually type it in the (ExpDateTextBox1) on the userform (UserForm1). But I can’t get the format to be recognized as a date to add the days to get the expiration date. Any ideas?

If there is a way to calculate it right on the userform and not use the mid function that would be great too but I will take either way.

How do you know that the 5 relates to 2015 and not 2005?

Anyway, if that code was in A1, then you could do this to get the date:

=DATE(2010+MID(A1,3,1),MID(A1,4,2),MID(A1,6,2))

and you can add 60 on to that to get the expiration date.

Hope this helps.

Pete

Thanks Pete. I am in the food industry so things don't last that long, so having a single digit year is ok. Everything we do has to fit on a UPC symbol and with all the requirements there is limited space in the UPC, any reduction we can get helps. I used your formula and it worked great, at least through 2019. ;-)

Thanks Leith, I am going to roll with Pete's solution.

Thanks!