[Kadawrik]

Если Вам нужно именно с конца седьмой символ взять, то можно воспользоваться функцией:
Имя_Переменной := COPYSTR(VIN,STRLEN(VIN)-6,1)
где VIN - то самое поле с кодом