Imports System.Linq

Imports System.Diagnostics

​

Public Module Module1

    Public Sub Main()

        Dim Array1 As Integer() = {2, 5, 7-9}

        Dim Array2 As Integer() = Enumerable.Range(1,10).ToArray()

        Dim Array3 As Integer() = Array2.Except(Array1).ToArray()

        For Each number As Integer in Array3

            Debug.Write(number.ToString + ",")

        Next

    End Sub

End Module