请问这个VB问题！！

以下是我写的代码
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a() As string
Dim p As Integer, s As String, j As Integer
Open "D:\aa.txt" For Input As #11
Do While Not EOF(11)
n = n + 1
ReDim Preserve a(n)
Input #11, a(n)
Text1 = Text1 & Str(a(n))
Loop
Close #11
End Sub

关于文件我是自己单击鼠标右键，创建了一个名字为aa.txt文本文档，写入了一组数据，可是当我按执行时候却老提示找不到文件！！这个是为什么？我哪儿有问题？

VB问题-怎么修改这个？ vb问题这个怎么做 请问VB高手问题. 请问vb问题, 请问个VB问题。。。 请问一个VB问题 请问一个vb问题 请问各位怎样用VB实现这个目标 请问vb中这个代表什么？？？？ 请问这个vb程序如何修改？