Module Module1
 
    Sub Main()
 
        Dim inputString As String = "test:""Noop, Noop," & _
          "Noop"",test2:""big,big,big"","
 
        Console.WriteLine(inputString)
        Dim result As String = inputString.Replace(Chr(34) & ",", Chr(34) & _
          vbCrLf)
        Console.WriteLine()
        Console.WriteLine(result)
 
        Console.ReadLine()
    End Sub
 
End Module