End If
	If a = "c" then
		atos = "C"
	End If
	If a = "d" then
		atos = "D"
	End If
	If a = "e" then
		atos = "E"
	End If	
	If a = "f" then
		atos = "F"
	End If
	If a = "g" then
		atos = "G"
	End If
	If a = "h" then
		atos = "H"
	End If
	If a = "i" then
		atos = "I"
	End If
	If a = "j" then
		atos = "J"
	End If	
	If a = "k" then
		atos = "K"
	End If
	If a = "l" then
		atos = "L"
	End If
	If a = "m" then
		atos = "M"
	End If
	If a = "n" then
		atos = "N"
	End If
	If a = "o" then
		atos = "O"
	End If	
	If a = "p" then
		atos = "P"
	End If
	If a = "q" then
		atos = "Q"
	End If
	If a = "r" then
		atos = "R"
	End If
	If a = "s" then
		atos = "S"
	End If
	If a = "t" then
		atos = "T"
	End If	
	If a = "u" then
		atos = "U"
	End If
	If a = "v" then
		atos = "V"
	End If
	If a = "w" then
		atos = "W"
	End If
	If a = "x" then
		atos = "X"
	End If
	If a = "y" then
		atos = "Y"
	End If	
	If a = "z" then
		atos = "Z"
	End If		
	
End Function