RosettaCodeData/Task/String-case/Visual-Basic-.NET/string-case.visual

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

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

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