Programación VB, encuentra la suma de todos los números primos hasta 1000, urgente

Subcomando privado1_click()

Dim i, j, f, c,sum

i = 2

Mientras i < 1000

f = True

j = 2

Hacer Mientras j < i

Si i Mod j = 0 Entonces f = Falso: Salir Do

j = j + 1

Bucle

Si f Entonces

depurar.> suma = suma + i

Si c Mod 5 = 0 Entonces depurar.Imprimir

Finalizar si

i = i + 1

Wend

print vbcrlf & "Suma de todos los números primos dentro de 1000 = " & suma

End Sub