Option Strict OnPublic Module ValidArray Public Sub Main() Dim emptyArray(-1) As String For Each element As String In emptyArray Console.WriteLine(element) Next End SubEnd Module