public class Test public Shared Sub Main Dim Char1 As Char = "A" Dim Char2 As Char = CChar("A") Dim Char3 As Char = "A"c Console.WriteLine(Char1 & " " & Char2 & " " & Char3) End Sub End class A A A