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)