use the split function - which will create an array
when you wrote
3022 EB -- is there a space or did you display that for easy reading
==========================
if there is a space then do the following
NewZip = split(zipcode)
By doing this it splits zipcode by space,
NewZip(0) will equal 3022
and
NewZip(1) will equal EB
==========================
else if there is no space and you know you want first four chars then
NewZip4 = left(zipcode,4)
NewZip2 = right(zipcode,2)
==========================