Imports System

Public Module Module1

    Public Sub 

        Dim sArray (6) as string 

        sArray(1) = "Apple"

        sArray(2) = "Pen"

        sArray(3) = "pineaplepen"

        sArray(4) = "penpineappleapplepen"

        sArray(5) = "-"

        sArray(6) = ","

        Console.Write(sArray(1)

    End Sub

End Module