Imports System

​

Public Module Module1

​

    Private Function NextRandom(ParamArray numbers() As Integer) As Integer

        Dim Result As Integer = Integer.MinValue

        If numbers.Length > 0 Then

            Dim rnd As New Random

            Dim i As Integer = rnd.Next(0, numbers.Length)

            Result = numbers(i)

        End If

​

        Return Result

    End Function

​

    Public Sub Main()

        Console.writeline("Your next number is: {0}", NextRandom(1, 3, 5, 6, 7, 8, 9))

    End Sub

End Module

​