Option Strict On

​

Imports System

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim regular_quotes As String = """1"""

        Dim slanted_quotes As String = "””1””"

​

        'Using = operator

        Console.WriteLine(regular_quotes = slanted_quotes) 'True

​

        'Using equals method

        Console.WriteLine(regular_quotes.Equals(slanted_quotes)) 'True

​

        'Using LINQ comparison

        Console.WriteLine(CompareCharArray(regular_quotes, slanted_quotes)) 'False

    End Sub

​

    Private Function CompareCharArray(ByVal value1 As String, ByVal value2 As String) As Boolean

        'Return a False value if the Lengths don't match

        If value1.Length <> value2.Length Then

            Return False

        End If

​

        'Return a False value if the Char at the current index doesn't match

        For index As Integer = 0 To value1.Length - 1

            If value1(index).Equals(value2(index)) Then

                Return False

            End If

        Next

​

        'Return a True value if everything is squared up

        Return True

    End Function

End Module