Cómo ingresar la tabla de multiplicar en VB

Private Sub Form_Load()

Dim i, j, s

Para i = 1 a 9

Para j = 1 A i

s = s & j & "×" & i & "=" &.IIf(Len(i * j) < 2, i * j & " ", i * j) & " "

Siguiente paso

s = s & vbCrLf

Siguiente paso

MsgBox s

Fin del subtítulo