Dim codeV As Variant
codeV = Evaluate(|@UpperCase(@Right(@Unique;"-"))|, doc)	
	
Dim uniqueID as string
uniqueID = codeV(0)