Split string function

My problem is that I have a string delimited by the "~":

Ex.
A1~1~000 9999999 999~99999~The Name of a company~99999~2800 Street Name~~MIDDLETOWN~PA~17057~UNITED STATES~PA~17057~UNITED STATES0~~~~

When I use the split function

Data() = Split(arr(r), "~")

I get this in my array

A1
1
000 9999999 999
99999
The Name of a companuy
99999
2800 Street Name

MIDDLETOWN
PA
17057
UNITED STATES
PA 'This element should be empty
17057 'This element should be empty
UNITED STATES0 'This element should be empty



Why am I geting duplicate data in different elements of my array?
I can not figure this one out!

JBush

take a look at your original string...the info is duplicated, that's why it's duplicating in the array

VB Code:

A1~1~000 9999999 999~99999~The Name of a company~99999~2800 Street Name~~MIDDLETOWN~[color=red]PA~17057~UNITED STATES~[/color][color=blue]PA~17057~UNITED STATES0~[/color]~~~

LMAO!! The thing is, I looked at that and totally missed it...hahaha...too funny!