hola,les agradecería si me ayudan, tengo este código que calcula todos los números primos hasta un determinado numero par dado por el usuario, ahora los tengo que guardar en un arreglo (los números primos) para después sumarlos consecutivamente hasta que de el numero par ingresado por el usuario, pero no se como guardarlos en vector, espero que me ayuden, gracias.

el algoritmo calcula los dos números primos que sumados dan el numero par ingresado.

Sub Main()
        Dim num As Integer
        Dim comprobacion As Boolean = True
        comprobacion = True
        Console.Write("Digite numero ")
        num = Console.ReadLine()
        For num = 1 To num
            comprobacion = True
            For I = 2 To num - 1
                If (num Mod I = 0) Then
                    comprobacion = False

                End If
            Next
            If (comprobacion = True) Then
                Console.WriteLine(num)
               

            End If
        Next

        Console.ReadLine()

no entiendo!
decis que muestre los números primos hasta un número par dado, por ejemplo:
si pongo 6 me mostraría 1 3 5
y después decis que los sume consecutivamente
1 + 3+ 5 = 9
para que de 6 no es consecutivamente.
agregarlos a un vector es fácil:
declaras un vector dim vector() as integer
dim num as integer
num = val(text1)
y con redim vector (1 to num) as integer le asignas el tamaño
esto es básicamente en vb6 en .net ni idea