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