Tabuada Vetor "Array"

Sub tabuadaVetorArray()
Dim A(10) As Integer
Dim i     As Integer
Dim n     As Integer
Dim m     As String

n = InputBox("Digite o Numero que Deseja a Tabuada: " & n + 1)
For i = 0 To 10
  A(i) = n * i
Next
For i = 0 To 10
m = m & n & " X " & i & " = " & A(i) & Chr(13)
Next

MsgBox m
End Sub