Public Class Form1
    Dim numeros(9) As Integer
    Dim posicion As Integer
    Dim recorrido As Integer
    Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
#If posicion <= 9 Then
        numeros(posicion) = Val(numero.Text)
        Label5.Text = numeros(posicion)
        posicion = posicion + 1
#Else
        MsgBox("esta lleno")
#End If
        Label5.Text = numeros(posicion)
    End Sub