how to Write a VLOOKUP function in VBA Like this