Necesito ayuda con el for y el if en VB

Hola,
Alguien me podria ayudar a resolver una duda grande, como manejo un if dentro de un for en visual de manera que la respuesta no me la repita la cantidad de veces que diga el for, si no que lo ejecute esa cantida de veces!

ejemplo:
For i = 1 to 10
if num > 0 then
list1.additem num
else
msgbox " No te lo muestr"
end if
next i

end sub