填空题

输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDE”变换成“EDCBA”。请把程序补充完整。
Private Sub Command1_Click
Dim a$,i%,c$,d$
a=InputBox$(“输入仟意字符串”)
n=Lea(A)
For i=1 to______
c=Mid(a,i,1)
Mid(a,i,1)=______
______=c
Next i
Print a
End Sub