Dzielnik liczby

Imports System.Collections
Module Program

    Sub Main()
        Dim readLine As String = String.Empty
        Dim number As Integer = 0
        Do
            Console.Write("Prosze wpisac liczbe: ")
            readLine = Console.ReadLine()
            If (Integer.TryParse(readLine, number) = False) Then
                If readLine.Equals("koniec", StringComparison.InvariantCultureIgnoreCase) Then
                    Return
                End If
                Console.WriteLine("Liczba jest niepoprawna !")
                Continue Do
            End If
            Dim numbers As List(Of Integer) = Find(number)
            For Each i As Integer In numbers
                Console.WriteLine(i)
            Next
        Loop While True
    End Sub

    Function Find(ByVal number As Integer) As List(Of Integer)
        Dim numbers As New List(Of Integer)
        numbers.Add(1)
        Dim max As Integer = Convert.ToInt32(Math.Ceiling(number / 2.0))
        For index As Integer = 2 To max
            If number Mod index = 0 Then
                numbers.Add(index)
            End If
        Next
        numbers.Add(number)
        Return numbers
    End Function

End Module