Оценить строку в массив

Question

Я использую такую ​​строку, чтобы присвоить переменную a массиву, и она хорошо работает

a = [{"From","To";1,2;2.5,3.5;3.5,5;5.7,7}]

Теперь я храню это в строке

    s = "[{""From"",""To"";1,2;2.5,3.5;3.5,5;5.7,7}]"
a = Evaluate(s)

Как я могу вернуть массив из самой строки? Я пытался использовать Evaluate, но это выдает ошибку

Sub Test()
Dim a
Dim s As String

s = "[{""From"",""To"";1,2;2.5,3.5;3.5,5;5.7,7}]"
a = Evaluate(s)

'a = [{"From","To";1,2;2.5,3.5;3.5,5;5.7,7}]


Range("A1").Resize(UBound(a, 1), UBound(a, 2)).Value = a
End Sub

Answer 1

Я мог бы понять это

    s = "[{""From"",""To"";1,2;2.5,3.5;3.5,5;5.7,7}]"
a = Evaluate(Replace(Replace(s, "[", ""), "]", ""))

Но я приветствую больше идей и предложений.