Programacion de Bucles en Visual Basic.NET

'En el proyecto utilize 10 TextBox, un Label, y un LabelLink.

Public Class frmBucle
'Aqui declaro las variables que vamos a utilizar en el proyecto.

'i y j son para los contadores de los bucles.
'msg es una variable de tipo resultado de msgbox, para saber si se presionó "si" o "no".
    Dim i, j As Integer
    Dim msg As MsgBoxResult
   
    'En el Load del form ingrese el nombre de la subrutina
    Private Sub frmBucle_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Ingreso()
    End Sub
   
    'Ésta es la subrutina, lo único que hace es cargar en la variable i el valor que colocamos en el
    'imputbox. Ese valor lo coloca en el primer label que es para que se sepa cual fué el valor que
    'seleccionamos, luego lo incrementa en 1 para la cadena de textboxes.
    Private Sub Ingreso()
        i = InputBox("Instroduzca el número", "Cadena de 10 consecutivos", 0, , )
        lblPrimero.Text = i
        i = i + 1
    End Sub

    'Aquí es el evento del linklabel para calcular los 10 consecutivos
    Private Sub lblCalcular_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lblCalcular.LinkClicked
        'La variable j la utilizo para contar hasta 10 que son la cantidad de números que quiero.
        'con esto le digo que vaya de 1 hasta 10
        For Me.j = 1 To 10
        'en cada select le asigno a un textbox el valor de i
            Select Case j
                Case Is = 1
                    txt1.Text = i
                Case Is = 2
                    txt2.Text = i
                Case Is = 3
                    txt3.Text = i
                Case Is = 4
                    txt4.Text = i
                Case Is = 5
                    txt5.Text = i
                Case Is = 6
                    txt6.Text = i
                Case Is = 7
                    txt7.Text = i
                Case Is = 8
                    txt8.Text = i
                Case Is = 9
                    txt9.Text = i
                Case Is = 10
                    txt10.Text = i
            End Select
            'incremento i + 1
            i = i + 1
        Next
        'reinicio las variables
        i = 0
        j = 0
        'mensaje de cortesía para saber si quieren calcular de nuevo
        msg = MsgBox("Desea calcular otro número?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "10 Consecutivos"
        'Aquí uso la variable de tipo resultado de msgbox, si es "si" te manda a la subrutina Ingreso para ingresar
        'de nuevo un numero
        If msg = MsgBoxResult.Yes Then
            Ingreso()
            'Aquí coloco a cero los textbox
            txt1.Text = ""
            txt2.Text = ""
            txt3.Text = ""
            txt4.Text = ""
            txt5.Text = ""
            txt6.Text = ""
            txt7.Text = ""
            txt8.Text = ""
            txt9.Text = ""
            txt10.Text = ""
        Else
        'Si elegimos que "no" en el msgbox cierra el programa.
            End
        End If
    End Sub
End Class