Как в VBA добавить гиперссылку к моему объекту комментария?

Я пытаюсь создать макросы в Word, чтобы вставлять комментарии, которые мне часто нужно добавлять в свои документы. Я хочу иметь возможность добавлять текст, а ниже гиперссылку, которая ведет к источнику, откуда был взят этот текст.

Вот как выглядит код. Я подозреваю, что проблема связана с частью ActiveDocument.Hyperlink.Add, но я не могу найти решение, чтобы мой макрос нацеливался на активный объект комментария, а не на ActiveDocument...

Sub new_comment()
'
' new_comment Macro
'
'
Selection.Comments.Add Range:=Selection.Range, Text:= \_
"This is my text."
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= \_
"https://google.com" \_
, SubAddress: = "", ScreenTip: = "", TextToDisplay: = "This is my source"

End Sub

Есть идеи?

Я попытался вручную добавить текст привязки и гиперссылку во время записи макроса, и он не зарегистрировал мои команды.

=== ОБНОВЛЕНИЕ ===

Приведенное ниже решение Тима работает хорошо, затем я попытался добавить несколько блоков кода, по одному для каждого предустановленного комментария, который я хочу запустить в Word. Каждый последующий комментарий, который я добавляю с помощью этих макросов, будет вставлять якорь гиперссылки в первый комментарий документа.

Итак, если я запущу три макроса ниже по порядку, new_comment_1 и new_comment_2 привяжут свою гиперссылку где-нибудь в new_comment. Есть какие нибудь идеи как это починить?

Sub new_comment()

    Dim cmt As Comment

    Set cmt = Selection.Comments.Add(Range:=Selection.Range, _
                Text: = "This is my text. This is my source.")
    
    HyperlinkComment cmt, "This is my source", "https://google.com"
    
End Sub

Sub HyperlinkComment(cmt As Comment, linkText As String, URL As String)
    Dim p As Long, rng As Range
    Set rng = cmt.Range
    p = InStr(1, cmt.Range.Text, linkText, vbTextCompare)
    If p > 0 Then
        rng.SetRange Start:=p, End:=p + Len(linkText)
        cmt.Parent.Hyperlinks.Add Anchor:=rng, Address:=URL
    End If
End Sub

Sub new_comment_1()

    Dim cmt As Comment

    Set cmt = Selection.Comments.Add(Range:=Selection.Range, _
                Text: = "This is my second preset comment. This is my second source.")
    
    HyperlinkComment cmt, "This is my second source.", "https://www.wikipedia.org/"
    
End Sub

Sub new_comment_2()

    Dim cmt As Comment

    Set cmt = Selection.Comments.Add(Range:=Selection.Range, _
                Text: = "This is my third preset comment. This is my third source.")
    
    HyperlinkComment cmt, "This is my third source.", "https://www.un.org/en/"
    
End Sub