Составить таблицу Пифагора - VB

Private Sub Command1_Click()
Dim mass(1 To 20, 1 To 20), i, j As Byte
Cls
For i = 1 To 20
For j = 1 To 20
mass(i, j) = i * j
Print vbTab; mass(i, j);
 
Next j
Print
Next i
End Sub