String conversion issue in VB Script Component

I'm trying to convert a set of strings to what fits the data model, and when I run the SSIS package to accomplish this, I get this error:

"the value is too large to fit into the buffer"

Original data types

• Address1 - string (100)
• Address2 - string (100)
• City - string (50)
• State - string (50)
• Zip - string (20)

New mode

• Address1 - unicode string (50)
• Address2 - unicode string (50)
• City - unicode string (50)
• State - unicode string (2)
• Zip - unicode string (10)

I set the outputs in the Output 0 back to the original length and even set up a Mid(Row.field,1, length) in the With function to output the rows to the destination to match the new field lengths.  Should I try another approach?

Thanks.

Why are you not using the data conversion transform?