1'den girilen sayıya kadar olan asal sayıları bulup listeleyen bir kod yazdım ancak, girdiğimiz sayı 6 hane olunca tıkanıyor. Kodlamada ne gibi sıkıntı olmuş olabilir.

ListBox1.Items.Clear()
Dim sinir As Long
sinir = TextBox1.Text
ListBox1.Items.Add("1")
For i = 2 To sinir
Dim kontrol As Integer = 0
For j = 2 To Math.Ceiling(i / 2)
If i Mod j = 0 Then
kontrol += 1
End If
Next
If kontrol = 0 Then
ListBox1.Items.Add(i)
End If
Next
Dim adet As Integer = ListBox1.Items.Count
Label2.Text = "1 - " & sinir & " arasında " & adet & " asal sayı vardır"

dosya indirme linki
__________________