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()

hola amigos, si me podrian ayudar le agradeceria mucho, estoy haciendo un algorito que calcula la conjetura de goldbach pero me quede ahi, tengo q hacer un arreglo con los numero primos resultantes, la cuestion es que no se como ??

 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()