Option Strict On

Imports System

Public Module Module1

    Public Sub Main()

        'Declare an array to store the alphabet

        Dim alphabet() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}

        'Spell my name by getting the appropriate value

        Console.Write(alphabet(3)) 'd

        Console.Write(alphabet(0)) 'a

        Console.Write(alphabet(21)) 'v

        Console.Write(alphabet(8)) 'i

        Console.Write(alphabet(3)) 'd

    End Sub

End Module