运行错误‘424’要求对象

运行出错，请前辈指正

Private Sub Cmdload_Click()
 Dim strFileName As String   '文件名及完整路径变量


    strFileName = dlgGetFile
   
    '判断文件名及路径是否存在,不存在则退出过程
    If strFileName = "" Then
       Exit Sub
    Else
       
       '获得完整路径及文件名
       路径 = strFileName
       路径.ControlTipText = strFileName
       
       
       '获得路径
        Text_Folder = GetFilePath(strFileName)
       Text_Folder.ControlTipText = GetFilePath(strFileName)
       
    End If
End Sub