Example - For Each Next Statement

Sub Main()
    Dim z(1 to 3) as Double
    z(1) = 1.11
    z(2) = 2.22
    z(3) = 3.33
    For Each v In z
        MsgBox v
    Next v
End Sub