Module Example Public Sub Main() Dim thisDay As DayOfWeek = DayOfWeek.Monday Dim formatStrings() As String = {"G", "F", "D", "X"} For Each formatString As String In formatStrings Console.WriteLine(thisDay.ToString(formatString)) Next End Sub End Module