vb FileLen(函数) 无法找到文件

FileLen（c:\111.rar）没有问题

但是
dim a as String
FileLen（a）
却被提示 找不到文件 如何能解决这个问题啊

啊 忘了 写了
dim a as String
a="c:\111.rar"
FileLen（a）
提示找不到文件

Private Sub Command1_Click()
Dim a As String
a = "c:\111.rar"
Print FileLen(a)
End Sub

我是利用 wscript 的  fso 具体如下。

set fs = createobject("scripting.filesystemobject")

　　set a = fs.opentextfile("c:\testfile.txt", forreading, false)

　　do while a.atendofstream <> true

貌似好友 个 atendofline 判断一行结束