\'\'\' 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