Visual Basic - Generador de Números Primos

Necesito un programa que me genere los números primos de acuerdo a un rango que se entre. Los números primos que están entre 4 y 523.
Muchas gracias a quien (es) me pueda(n) ayudar.

'genera numeros primos y los envia en List1
Dim i As Long
Dim j As Integer
Dim a
Dim sw As Integer
List1.Clear
For i = 4 To 523
sw = 0
For j = 2 To i - 1
a = i Mod j
If a = 0 Then
sw = 1
End If
Next
If sw = 0 Then List1.AddItem Str(i)
Next

'todo se puede