Cómo sumar usando VB

El algoritmo intermedio es el siguiente:

Dim sum como entero

n = 99 'El número máximo que ingresa

i = 1

suma = 0

Hacer hasta i > n

suma = suma + i

i = i + 1

Bucle

'La suma termina aquí, el siguiente es el número primo

k = 1

Hacer hasta k > n

Para j = 1 A k / 2

Si k Mod j = 0 Y j <> 1 Entonces

Salir para

Finalizar si

Siguiente j

Si j > k / 2 Y k <> 2 Entonces

MsgBox k

Finalizar si

k = k + 1

Bucle