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