Codigo para crear una lista de numeros y ordenarlos

Dim a As Integer
Dim positivo, negativo, par, impar As Double

Private Sub Command1_Click()
For cont = 1 To 50
a = InputBox("ingrese un numero")
List1.AddItem a
If (a > 0) Then
positivo = positivo + 1
Label2.Caption = "Positivos = " & positivo
End If

If (a < 0) Then
negativo = negativo + 1
Label3.Caption = "Negativos = " & negativo
End If

If (a Mod 2 = 0) Then
par = par + 1
Label4.Caption = "Pares = " & par
End If

If (a Mod 2 <> 0) Then
impar = impar + 1
Label5.Caption = "Impares = " & impar
End If
Next
End Sub


Si se necesita una lista mas pequeña o en su lugar una lista mas grande lo unico que tienes que hacer es cambiar el numero de la cantidad de datos que decea guardar de 1 a 50 a una lista mas pequeña de 1 a 10 este numero lo cambiarias en la siguiente parte del codigo:
Private Sub Command1_Click()
For cont = 1 To 10