Imports System

​

Public Module Module1

​

    Public sub Main()

        Dim Names(0 to 3) As String

        Names(0) = "John"

        Names(1) = "Kate"

        Names(2) = "Jack"

        Names(3) = "Pierce" 

    End Sub

End Module

​