RosettaCodeData/Task/String-case/BASIC/string-case-7.basic

' Define 's'
Dim s AS String = "alphaBETA"

' Change 's' to Upper Case.
s =  s.ToUpper()

' Change 's' to Lower Case.
s = s.ToLower()
June 2018 Update 2018-06-22 20:57:24 +00:00			`' Define 's'`
			`Dim s AS String = "alphaBETA"`
Time for an 2014 update… 2014-01-17 05:32:22 +00:00
June 2018 Update 2018-06-22 20:57:24 +00:00			`' Change 's' to Upper Case.`
			`s = s.ToUpper()`

			`' Change 's' to Lower Case.`
			`s = s.ToLower()`