Por exemplo eu digito: 1, 2, 3, 4, 5, 6. Na 1º lista deve aparecer 1, 2, 3, 4, 5, 6. Já na 2º lista eles devem aparecer: 2,1,4,3,6,5, ou seja numeros pares em posiçoes impares. Esse é meu codigo: Dim vet(1 To 6) As Integer Dim num As Integer Dim cont As Integer Dim par As Integer Dim impar As Integer par = 1 impar = 2 For cont = 1 To 6 num = Val(InputBox("Digite um nº", "Digitação", "")) Do While num = 0 MsgBox "Numero inválido" num = Val(InputBox("Digite um nº", "Digitação", "")) Loop vet(cont) = num lst_1.AddItem vet(cont) If (num Mod 2 = 0) Then vet(par) = num par = impar + 1 Else vet(impar) = num impar = par + 1 End If Next For cont = 1 To 6 lst_2.AddItem vet(cont) Next Com esse meu codigo a 2º lista aparece 2,3,4,5,6,6..... O que estou fazendo de errado ? Acho que eu vou precisar de outra variavel pra acumular " " Ou seja por exemplo eu digito só numeros pares: 2,4,6,8,10,12 aí na 2º lista temq aparecer 2, , 4, , 6, , 8, , 10, , 12........As posiçoes pares n recem numero nenhum porque eu n digitei nenhum numero impar.