Private Sub Form_Load()
Dim i, j, s
For i = 1 To 9
For j = 1 To i
s = s & j & "×" & i & "=" & IIf(Len(i * j) < 2, i * j & " ", i * j) & " "
Next
s = s & vbCrLf
MsgBox s
End Sub