You must declare a dynamic array to use split

ie Dim pedinfo() as string
NOT
Dim pedinfo(4) as string