Как сделать, чтобы таблица умножения шла в столбик

Private Sub Command1_Click()
Text1.Text = ""
 
p1 = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
p6 = 6
p7 = 7
p8 = 8
p9 = 9
 
For I = 1 To 10
Text1.Text = Text1.Text & _
Str(p1) & " x " & Str(I) & " = " & _
Str(p1 * I) & vbCrLf
Text1.Text = Text1.Text & _
Str(p2) & " x " & Str(I) & " = " & _
Str(p2 * I) & vbCrLf
Text1.Text = Text1.Text & _
Str(p3) & " x " & Str(I) & " = " & _
Str(p3 * I) & vbCrLf
Text1.Text = Text1.Text & _
Str(p4) & " x " & Str(I) & " = " & _
Str(p4 * I) & vbCrLf
Text1.Text = Text1.Text & _
Str(p5) & " x " & Str(I) & " = " & _
Str(p5 * I) & vbCrLf
Text1.Text = Text1.Text & _
Str(p6) & " x " & Str(I) & " = " & _
Str(p6 * I) & vbCrLf
Text1.Text = Text1.Text & _
Str(p7) & " x " & Str(I) & " = " & _
Str(p7 * I) & vbCrLf
Text1.Text = Text1.Text & _
Str(p8) & " x " & Str(I) & " = " & _
Str(p8 * I) & vbCrLf
Text1.Text = Text1.Text & _
Str(p9) & " x " & Str(I) & " = " & _
Str(p9 * I) & vbCrLf
Next I
 
End Sub

Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As String
For i = 1 To 9
   For j = 1 To 9
        s = s & j & "  x  " & i & "  =  " & i * j & " " & vbTab
   Next j
   s = s & vbCrLf
Next i
Text1.Text = s
End Sub