split to 2 dimensional Array

[aconybeare]

Does anyone know an easier/cleaner way of splitting a string into a two dimensional array. This is what I have which works but I doubt this is the way it's supposed to be done

Dim obj As New Object
Dim sIn As String
Dim sOut As String = vbNullString

sIn = "London~England|New York~USA"
Dim sVals() As String = sIn.Split("|".ToCharArray)

sOut = vbNullString
sIn = vbNullString

sOut = "<table border=1>"
For Each obj In sVals
sIn = Convert.ToString(obj)
Dim sVals2 As Array = sIn.Split("~".ToCharArray)
Dim val As New Object
sOut += "<tr>"
For Each val In svals2
sOut += "<td>" & Convert.ToString(val) & "</td>"
Next
sOut += "</tr>"
Next
sOut += "</table>"

Response.Write(sOut.ToString)