imports System Module EqualsSample Sub Main() Dim chA As Char chA = "A"c Dim chB As Char chB = "B"c Console.WriteLine(chA.Equals("A"c)) Console.WriteLine("b"c.Equals(chB)) End Sub End Module