Excel VBA中代码，运行到5句提示数据类型不匹配，怎么回事？

Sub c（）
Dim m$,i%,n$
a＝Intputbox（“请输入”,“提示”,0）
For i＝1 to 50
n＝Application.Mid(Cells("i",1)，1，7)
n＝n&m
i＝i＋1
sheet1.Cells("i",1)＝n
i＝i-1
Next
End sub