Step by step display the table for a given number.

Dim a,b,c
a=InputBox("Enter the number whose table is required!")
for i= 1 to 10
b=a*i
c=c&a&"*"&i&"="&b&vbcrlf
MsgBox c
Next