---

Private Sub CommandButton9_Click()
    Dim i As Integer
    Dim resText As String
    
    i = 1
    resText = "Число" & vbTab & "Квадрат" & vbCrLf
    Do While i <= 10
        resText = resText & i & vbTab & (i ^ 2) & vbCrLf
        i = i + 1
    Loop
    
    TextBox1.Text = resText