容易传参，求大神指点

简单传参，求大神指点
事件触发函数
Private Sub CommandButton1_Click()
Dim filePath As String
filePath = "d:\data.txt"
Set textObj = openFile(filePath)
Call analysisFile(textObj)
End Sub

打开文件函数
Public Function openFile(ByVal filePath As String) As Object

Dim fileObj

Set fileObj = CreateObject("Scripting.FileSystemObject")
Set openFile = fileObj.OpenTextFile(filePath)

End Function


读取文件内容函数
Public Function analysisFile(ByVal fileObj As Object)
Do While Not textObj.AtEndOfLine
txtLine = Trim(textObj.ReadLine)
MsgBox txtLine
Loop
End Function

问题出在调用第二个函数时，求大神指点，小弟才进VBA

[解决办法]
什么错误提示
[解决办法]
可以用重定义
http://zhidao.baidu.com/question/155145233