Vb 利用循环语句进行数据读出

本人想用循环语句进行数据读出，即给出一个从1 to 10的循环语句，分别读出10个txt文本(a1.TXT、a2.TXT……、a10.TXT)，文本内容分别为1、2、……至10。代码为：
Private Sub Commnd1_Click()
Dim i As Long
Dim a() As Long
For i = 1 To 10
a(i)=i
Open “h:\abc\a&i.txt” For Output As #1
Print #1,a(i)
Close #1
Next i
End Sub
运行后，无法建立a1.txt、a2.txt、a3.txt、……、a10.txt。请问高手，怎样才能达到本人设想。谢谢！

这里有问题： Open “h:\abc\a&i.txt” For Output As #1
修改为： Open “h:\abc\a“ & Cstr(i) & ".txt” For Output As #1