Imports System
Public Module Program
Public Sub Main(args() As string)
Dim array() As Char = {"a", "b", "c", "d", "e"}
Console.WriteLine("Length = " & array.Length)
For Each ch In array
Console.WriteLine(ch)
Next
End Sub
End Module
' run:
'
' Length = 5
' a
' b
' c
' d
' e
'