VB中Getfullpathname函数

请问为什么在使用Getfullpathname函数获得一个指定文件路径的时候，总是不能得到正确的路径？得到的路径是程序的目录加上文件名。我的使用如下：

     Dim s As String * 254
    GetFullPathName "1.txt", 254, s, 0   

    Text1.Text = s

VB声明 Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal lpPath As String, ByVal lpFileName As String, ByVal lpExtension As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long 说明 查找指定文件 返回值 Long，装载到lpBuffer缓冲区的字符数。如缓冲区长度不足，则返回缓冲区必要的长度。零表示失败。会设置GetLastError 参数表 参数 类型及说明 lpPath String，欲搜索的路径。如果为vbNullString，则采用windows搜索路径。参考OpenFile函数的OFSTRUCT结构中对OF_SEARCH标志搜索顺序的介绍 lpFileName String，要查找的文件名 lpExtension String，文件扩展名。必须用一个句点符号起头。如文件没有扩展名，或者lpFileName包括了扩展名，则设为vbNullString nBufferLength Long，lpBuffer字串的长度 lpBuffer String，用于装载文件名的一个字串 lpFilePart String，指定一个长整数变量，用于装载缓冲文件名部分的地址。在vb中不是特别有用 注解 参考GetFullPathName函数