небольшое добавление)
кроме этого нуно еще и экранирование сделать было
Function removeCRLF(json As String) As String
removeCRLF = Replace(Replace(Replace(Replace(Replace(json,|\|,|\\|), Chr(13)+Chr(10), "\n"),Chr(10)+Chr(13), "\n"),|"|,|\"|),Chr(160),"")
End Function
ну и вызов стал вот...