RosettaCodeData/Task/String-case/VBScript/string-case.vb

mirror of https://github.com/acmeism/RosettaCodeData.git
Dim MyWord
MyWord = UCase("alphaBETA")   ' Returns "ALPHABETA"
MyWord = LCase("alphaBETA")   ' Returns "alphabeta"
	`Dim MyWord`
	`MyWord = UCase("alphaBETA") ' Returns "ALPHABETA"`
	`MyWord = LCase("alphaBETA") ' Returns "alphabeta"`