Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim str as string = """{""""messages"""":[{""""messageId"""":""""245043"""",""""campaignId"""":""""14085"""""

        console.WriteLine("Input : " & str)

        str = str.replace("""", "'").Replace("''", """").Replace("'", """")

        console.WriteLine("Output : " & str)

    End Sub

End Module

​