Module Example3
    Sub Main()
        Dim num As Integer() = {10, 20, 30, 40, 50}
        For Each i As Integer In num
            Console.WriteLine(i)
        Next
        Console.ReadLine()
    End Sub
End Module