numeri primi inferiori a quello inserito

[Delas]

se a qualcuno può servire...

Private Sub Command1_Click()
On Error GoTo Error
x = Text1.Text
List1.Clear
List1.AddItem ("Elenco numeri primi")
List1.AddItem ("inferiori a " & x & ":")
List1.AddItem ("")

For i = 1 To x
    l = 0

    For y = 1 To x
     If (i Mod y) = 0 Then
      l = l + 1
     End If
    Next y

    If l = 2 Or i = 1 Then
    List1.AddItem (i)
    End If
Next i

Error:
End Sub