so i've copied the code into a module and modified the Name line as below
theory being replace from first space onwards for 16 characters with result from lookup field
Name CStr(varItem) As Replace(CStr(varItem), mid(varitem,instr(varitem," "),16)...