超链接（VBA）问题...

Option Explicit
Dim response As Integer  'Yes/No..
Dim layoutX, layoutY As AcadLayout  'Acad Layout..
Dim layoutZ As String
Dim blockX As AcadBlockReference 'Inserted block..
Dim blockPoint As Variant ' Pick point for block insert..
Dim attribZ As Variant ' Attributes for inserted block..
Dim countx As Integer 'Counter for getting attributes..
Dim EntX As AcadEntity 'Acad Object (Block search for dblclick listbox)..
Dim Hyp As AcadHyperlink 'Add hyperlink to block..
Dim HypS As AcadHyperlinks 'Hyperlinks collection for block..
'********************************************
'************** INSERT BLOCK ****************
'********************************************
Private Sub insertmarkerBTN_Click()
' Check if all information is present..
If DetDesc1TXT.Text = "" Then
    MsgBox "Please enter the main Detail title..", vbExclamation, "ModelSpace Detail Marker.."
    Exit Sub
End If
' Check if all information is present..
If drawnumTXT.Text = "" Then
    MsgBox "Please enter the main Drawing Number (or select it from the list)..", vbExclamation, "ModelSpace Detail Marker.."
    Exit Sub
End If
ModelDetailRefFRM.Hide
ThisDrawing.ActiveSpace = acModelSpace
'Get pick point..
'Error Test for GetPoint method..
On Error Resume Next
TryAgainX:
blockPoint = ThisDrawing.Utility.GetPoint(, vbCr & "Pick the insertion point for the Detail Reference Marker.. ")
ErrHndlrX:
    If Err.Number  0 Then
        Err.Clear
        GoTo TryAgainX
    End If
    On Error GoTo ErrHndlrX
'Insert block..
    Set blockX = ThisDrawing.ModelSpace.InsertBlock(blockPoint, "X:\AbiCAD Blocks\General\Detail Reference - MSpace.dwg", 1#, 1#, 1#, 0)
    blockX.Layer = "X-Notes"
' Get and edit attributes..
attribZ = blockX.GetAttributes ' Get Block attributes..
' Loop through attributes..
For countx = LBound(attribZ) To UBound(attribZ)
    Select Case attribZ(countx).TagString
    Case "DRAWING_NUMBER"
        attribZ(countx).TextString = drawnumTXT.Text
    Case "DETAIL_NUMBER"
        attribZ(countx).TextString = detnumTXT.Text
    Case "DETAIL_DESC_1"
        attribZ(countx).TextString = DetDesc1TXT.Text
    Case "DETAIL_DESC_2"
        attribZ(countx).TextString = DetDesc2TXT.Text
    End Select
Next countx
[color=red]' Add the Hyperlink to the block to link back to the Layout..
Set HypS = blockX.Hyperlinks
' Add a new Hyperlink complete with all properties
Set Hyp = HypS.Add(LayoutLIST.Text)
Hyp.URL = "#," & layoutZ
Hyp.URLNamedLocation = "," & layoutZ[/color]
blockX.Update
ModelDetailRefFRM.Show
End Sub
'********************************************
'************** INSERT BLOCK ****************
'********************************************

Private Sub insertmarkerBTN_Click()
Dim blockX As AcadBlockReference 'Inserted block..
Dim blockPoint As Variant ' Pick point for block insert..
Dim HypS As AcadHyperlinks 'Hyperlinks collection for block..
Dim Hyp As AcadHyperlink
ThisDrawing.ActiveSpace = acModelSpace
blockPoint = ThisDrawing.Utility.GetPoint(, vbCr & "Pick the insertion point for the Detail Reference Marker.. ")
Set blockX = ThisDrawing.ModelSpace.InsertBlock(blockPoint, "ScaledFrame", 1#, 1#, 1#, 0)
Set HypS = blockX.Hyperlinks
Set Hyp = HypS.Add(ThisDrawing.Name)
Hyp.URLNamedLocation = "2"
Dim V As AcadView
Dim L As AcadLayout
Dim i As Integer
For Each L In ThisDrawing.Layouts
    If Not UCase(L.Name) = "MODEL" Then
        i = i + 1
        ThisDrawing.ActiveLayout = L
        Set V = ThisDrawing.Views.Add(i)
        V.LayoutId = L.ObjectID
    End If
Next
End Sub

Since the view for "layout2" is called "2" the following code took me directly to the layout2