Numeración en líneas de un cuadro de texto

Hola amigos del foro.

Hoy vengo a trasladarles un pequeño problema que me ha surgido en el código de un programa de números que tengo entre manos.
He intentado cambiar varias veces los bucles pero no coge bien la numeración de los "i", cogiendo el 1 como primero y terminando en el último elemento del array.

Comentar que desde mi último post, he estado estudiando la utilización de matrices o arrays, y practicando con diversos ejemplos (sobre todo del tema de "juegos con números"), y he comprobado, como decían fcoval y Mihura que son muy interesantes y prácticos para solucionar ciertos problemas con valores generados dinámicamente....

en fin paso a pegar estas líneas, donde expongo las líneas de código que utilizo y el formato del formulario que empleo, ...
EXTRAER PRIMOS Y NO PRIMOS DE UNA LISTA DE 10 NUMEROS
CONSECUTIVOS.

 Option
Compare Database

Dim i As
Integer, j As Integer, cont As Integer

Dim xnum
As Integer

Dim
listanum(10) As Integer

Dim
Primos(10) As Integer

Dim
NoPrimos(10) As Integer

Dim
primernumero As Integer

Private Sub cmdInsertar_Click()

primernumero = InputBox("Introduce el primer número
de la lista...")

 For i = 0 To 10 - 1

     listanum(i) = primernumero + i

     TxtNumeros.Value = TxtNumeros.Value &
i + 1 & "- " & listanum(i) & vbCrLf

 Next i

End Sub

 '------------------------------------------- 

Private
Sub cmdCalcular_Click()

Dim
listanum2(10) As Integer

  For i = 0 To 10 - 1

     listanum2(i) = listanum(i)

  Next i

 For i = 0 To 10 - 1

    cont = 0

    xnum = listanum2(i)

    For j = 1 To xnum

        If (listanum2(i) Mod j = 0) Then

            cont = cont + 1

        End If

    Next j

    If cont = 2 Then

       Primos(i) = listanum2(i)

    Else

       NoPrimos(i) = listanum2(i)

    End If

 Next i

 For i = 0 To 10 - 1

   If Primos(i) <> 0 Then

      TxtPrimos.Value = TxtPrimos.Value & i
+ 1 & "- " & Primos(i) & vbCrLf

   End If

   If NoPrimos(i) <> 0 Then

      TxtNoPrimos.Value = TxtNoPrimos.Value
& i + 1 & "- " & NoPrimos(i) & vbCrLf

   End If

 Next i

 End Sub

‘**********************************

Botones

INSERTAR            
CALCULAR

 Cuadros de texto:

 Numeros:       Primos:  
  NoPrimos:

1-      10      2- 
11           1-  10

2-      11      4- 13            3- 12

3-      12      8- 
17           5- 14

4-      13      10- 19          6- 15

5-      14                            7- 16

6-      15                            9- 18

7-      16

8-      17

9-      18

10-   19

‘***********************************************

No consigo que numere bien los cuadros de texto de los
primos y noPrimos:

 Primos:    1- 11            NoPrimos:  1- 10

               2-
13                             2- 12

               3-
17                             3-
14

               4-
19                             4-
15

                                                    5-
16

    6- 18

He tratado de aplicar estas líneas, … pero tampoco
funciona, sigue haciendo lo de antes, ..

p2 =
UBound(Primos())

 np2 = UBound(NoPrimos())

 For i = 0 To p2

   If Primos(i) <> 0 Then

      TxtPrimos.Value = TxtPrimos.Value & i
+ 1 & "- " & Primos(i) & vbCrLf

   End If

 Next i

  For i = 0 To np2

   If NoPrimos(i) <> 0 Then

      TxtNoPrimos.Value = TxtNoPrimos.Value
& i + 1 & "- " & NoPrimos(i) & vbCrLf

   End If

 Next i
'--------------

Puede ser que el error o falta de código sea elemental, pero no consigo encotrarlo.
Agradecería su ayuda, 

Saludos a todos.
Adrián.