Creating MarkupRoutedEvent for Hyperlink in code

Option Explicit

Public Sub HyperlinkClicked(po_Source As Object, po_Args As Object)
   Dim lo_Hyperlink As MarkupHyperlink
   
   If TypeOf po_Source Is MarkupHyperlink Then
      Set lo_Hyperlink = po_Source
      
      MsgBox lo_Hyperlink.Tag
   End If
End Sub

Private Sub Form_Load()
   Dim lo_Hyperlink As MarkupHyperlink
   Dim lo_TextBlock As MarkupTextBlock
   Dim lo_Run As MarkupRun
   
   With Me.MarkupLabel1
      With .MarkupContext
         Set lo_Run = .CreateObject("Run")
         With lo_Run
            .Text = "This is a link"
         End With
         
         Set lo_Hyperlink = .CreateObject("Hyperlink")
         With lo_Hyperlink
            .Inlines.Add lo_Run
            .Tag = "http://www.codejock.com"
            .AddHandler .ClickEvent, "HyperlinkClicked"
         End With
         
         Set lo_TextBlock = .CreateObject("TextBlock")
         With lo_TextBlock
            .Inlines.Add lo_Hyperlink
         End With
      End With
   
      .MarkupContext.SetHandler Me
      Set .MarkupUIElement = lo_TextBlock
   
   End With
End Sub