Dim myDictionary As New Dictionary(Of String, String) For Each item In myString.Split(New String() {"--"}, StringSplitOptions.None) Dim parts = item.Split("$"c) myDictionary.Add(parts(0), parts(1)) NextThis is another option using LINQ:
Dim myDictionary = myString.Split(New String() {"--"}, StringSplitOptions.None). Select(Function(s) s.Split("$"c)). ToDictionary(Function(a) a(0), Function(a) a(1))