VBA Code For VLookup Value Then Return Date

I have 1 file with 2 worksheets, MR and MR (ytd). I want to write 1 procedure for a report to lookup the container no at MR from MR (ytd), then return the date.

Now I just use the formula vlookup to do this function.

=IF(ISERROR(VLOOKUP($B5,'MR (ytd)'!$B$5:$O$805,14,0)),"0",VLOOKUP($B5,'MR (ytd)'!$B$5:$O$805,14,0)+$B$2-'MR (ytd)'!$B$2)

I have write up some code for it. But find it is cannot lookup.

Code:

Sub mrdays()
Dim mrrecords As String
Dim i As Integer
Dim to_date As Date
Dim lsrpdate As Date

With Sheets("MR")

[Code] .........