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