如何在open文件时,文件名用变量表示?先谢!

我的数据文件每天更新,用日期表示,如今天为2006-10-18,文件名为061018.000.txt
我编的:
Dim a1 As Variant
Dim a11 As Variant
Dim a2 As Variant
Dim a3 As Variant
Dim a4 As String
Dim a5 As String
Dim a6 As String
Dim a7 As String
Dim b1(100) As Double
a1 = Year(Now())
a11 = a1 - 2000
If a11 < 10 Then a11 = "0" & a11
a2 = Month(Now())
If a2 < 10 Then a2 = "0" & a2
a3 = Day(Now())
If a3 < 10 Then a3 = "0" & a3
a4 = a11 & a2 & a3
a5 = "08.000"
a6 = a4 & a5
a7 = "d:\a6.txt"
'Open a7 For Input As #1
'Input #1, b1(100)
***a7 = "d:\a6.txt"  这一行我无法实现,望赐教!!