Dim s As String = "a|1|b|2|c|3|d|4"
Dim lst1,lst2 As new List(of String)
For i As Integer = 0 To s.Split("|").Length - 1
If i Mod 2 = 0
lst1.Add(s.Split("|")(i))
Else
lst2.Add(s.Split("|")(i))
End If
Next
For i As Integer = 0 To lst1.Count - 1
Output.Show(lst1(i) & "/" & lst2(i))
Next