รวบกวนดูโค้ด โปรแกรมแสดงค่าผลรวม 1 - 10 แบบมีเงื่อนไข (Visual Studio)

    Private Sub frm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim I As Integer
        Dim J As Integer
        For I = 1 To 10
            J = J + I
            TextBox1.Text = TextBox1.Text & J & vbCrLf
            If J = 6 Then
                TextBox1.Text = TextBox1.Text & J & vbTab & "name" & vbCrLf
            End If
        Next
    End Sub