de un numero ingresado mostrar los numeros continuos descendentemente en una lista

[Rubeo]

Hola mucha como estan espero que bien les pido un favorsote si alguien me puede decir como hacer este programa se los agradeceria mucho es que es una tarea que me dejaron y no se como hacerla y eso me pone mal bueno aqui les va como me plantearon el programa:


Hacer un programa que solicite un valor numerico entero y que muestre en una lista los numeros continuos de manera descendente del numero ingresado

[pana99]

Hola, aca te dejo un codigo que hara lo que necestias.
Solo lo imprime en la ventada de inmediato. Luego manejalo vos como consideres

Espero te sirva

Código:

Private Sub Command1_Click()

    Numero = InputBox("Ingresa un numero", "Muestra Numero")
    'Controlamos si es un numero
     If IsNumeric(Numero) = True Then
        For x = Numero To 1 Step -1
            Debug.Print x
        Next
    Else
        MsgBox "no ingresaste un numero"
    End If
End Sub

[Rubeo]

gracias pana te lo agradezco mucho