Module Example
Public Sub Main()
Dim words() As String = { "Tuesday"}
Dim lowerWords(words.Length - 1) As String
For ctr As Integer = words.GetLowerBound(0) To words.GetUpperBound(0)
lowerWords(ctr) = words(ctr).ToLowerInvariant()
Next
For Each word As String In words
Console.WriteLine(word)
Next
End Sub
End Module