Prime Sieve - TizzyT

''' Prime Sieve '''
    Private Function Sieve(ByVal limit As Integer) As List(Of Integer)
        Dim sqrt As Integer, CrntNbr = 11
        Sieve = {2, 3, 5, 7}.ToList
        While CrntNbr < limit
            sqrt = Math.Sqrt(CrntNbr)
            For Each prime In Sieve
                If prime <= sqrt Then
                    If CrntNbr Mod prime = 0 Then Exit For
                Else
                    Sieve.Add(CrntNbr) : Exit For
                End If
            Next
            CrntNbr += 2
        End While
    End Function