Public Function GetJsonData(ByVal jsonData As Object) As String
    Try
        Dim data As String = JsonConvert.SerializeObject(jsonData)
        Return data
    Catch ex As Exception
    End Try
End Function

<anyType xmlns:q1="http://www.w3.org/2001/XMLSchema" xmlns:d1p1="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://tempuri.org/" d1p1:type="q1:string"> Json Data</anyType>