Choping A String Up

I would like to know the code for choping up the string "N/A|Steven Craig|1234 Rd.|TheCity|CA|123456" Into an Array. Then be able to call the array and get the info from the string like so:
ArrayName(0) = N/A
ArrayName(1) = Steven Craig
ArrayName(2) = 1234 Rd.
ArrayName(3) = TheCity
ArrayName(4) = CA
Etc...

dim Arrayname() as string
arrayname=split("N/A|Steven Craig|1234 Rd.|TheCity|CA|123456","|")



this will split up the string into the array.
Cheers.

Thanks So Much