Imports System
Public Module Module1
Public Sub Main()
Dim arr() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13}
For Each n As Integer In arr
If n >= 3 And n <= 5 Then
Continue For
End If
Console.WriteLine(n)
If n = 9 Then
Exit For
End If
Next
End Sub
End Module
' run:
'
' 1
' 2
' 6
' 7
' 8
' 9
'