Imports System
Module CharacterLiteral
	Sub Main()
		Try
			Dim a As Char="R"c
			Dim b As Char="W"c
			Dim i As Char=23
			Dim bl As Char=True
			Dim f As Char=1.23
			Dim c As Char
			Dim d As Char
			c=a+b
			d=a*b
			
		Catch e As Exception
		End Try
	End Sub
End Module
