como identificar numeros primos por debajo de un numero dado ?

[calichecal]

saludos ,estoy intentando hacer ese programa y e intentado de todo ,pero creo que me hace falta conocimiento,este fue el ultimo codigo que intente:
for i = 1 to numerodado
numero_actual = i
for i2 = 1 to numerodado
producto = i2 * i
if producto = numero_actual and i2 <> producto and i <> producto then
no_hay_primo = no_hay_primo + 1
end if
next i2
if no_hay_primo = 0 then
lista_primos = lista_primos & numero_actual
end if
next i
me baso en que los numeros que no son primos son divisibles por otro par de numeros aparte de el mismo y la unidad, pero igual hay no estoy evaluando todas las posibilidades,quisiera saber si hay otra forma de averiguar los primos o si estoy mal de bases matematicas,agradesco la ayuda.