Biggest number vb.

Module Module1

    main
    biggestnum

    Sub Main()
        Dim names(10) As String
        Dim number As Integer
        Dim rndnumber As Random
        Console.WriteLine("please enter 10 names")
        For i = 1 To 10
            names(i) = Console.ReadLine()
        Next
        rndnumber = New Random
        number = rndnumber.Next(1, 10)
        Console.WriteLine(names(number))
        Console.ReadKey()

    End Sub

    Sub biggestnum()

        Dim numbers(5) As Integer
        Console.WriteLine("please enter 5 numbers...")
        For i = 1 To 5
            numbers(i) = Console.ReadLine()
        Next






    End Sub

End Module