After a few more hours I made this:
Dim arr1() = dictionary1.ToArray()
Dim dataString As String = String.Join("", arr1).Replace(", ", "=")
Dim arr2() As String = dataString.Split({"["c, "]"c}, _
StringSplitOptions.RemoveEmptyEntries)
Dim dictionary2 = arr2.Select(Function(x) x.Split("="c)).ToDictionary(Function(i) _
i(0), Function(i) Boolean.Parse(i(1)))
For me it's working...
Thanks!