replace text and link to html tag a href (MS word)

Sub InsertLink()

'data format:
'Link text [http://example.com/example/example.html]
'Result:
'<b><a href="http://example.com/example/example.html" target="_blank">Link text</a></b>
'Select text & run macros

    Dim LinkTemplate As String
    Dim LinkAddr As String
    Dim LinkText As String
    Dim LinkOut As String
    Dim LinkStart As Integer
    Dim LinkEnd As Integer

    LinkTemplate = "<b><a href=""%addr%"" target=""_blank"">%text%</a></b>"
    LinkStart = InStr(1, Selection.Text, "[")
    LinkEnd = InStr(1, Selection.Text, "]")
    If (LinkStart = 0) Or (LinkEnd = 0) Then
        MsgBox "No Link :("
        Exit Sub
    End If

    LinkAddr = Trim$(Mid$(Selection.Text, LinkStart + 1, LinkEnd - LinkStart - 1))
    LinkText = Trim$(Mid$(Selection.Text, 1, LinkStart - 1))

    LinkOut = Replace(LinkTemplate, "%addr%", LinkAddr)
    LinkOut = Replace(LinkOut, "%text%", LinkText)

    Selection.Text = LinkOut
    Selection.MoveRight Unit:=wdCharacter, Count:=1

End Sub