VBA IF语句不起作用

Question

我在Excel VBA中有以下代码，它应该打开并阅读＆＃34;存在超链接文件的文件。 但不知何故，即使超链接文件不存在，它也会打开文件，然后Excel停止响应。我认为＆＃34; If＆＃34;声明。任何帮助都会很棒！谢谢！

Sub test()

         For k = 11 To 50
        On Error Resume Next
        If Len(Dir(Cells(k, 33).Hyperlinks(1).Address)) > 0 Then

            myFile = Cells(k, 32).Hyperlinks(1).Address

            Open myFile For Input As #1

            Do Until EOF(1)
                Line Input #1, textline
                text = text & textline
            Loop

            Close #1
        End If    
    Next k
End Sub