LINE Notifyのメッセージ送信でアンパサンド(&)が送れない

Question

前提・実現したいこと

Excel VBAからLINE Notifyにてパラメータ付URLのあるメッセージを送りたい。

発生している問題・エラーメッセージ

パラメータの部分がメッセージから切り捨てられてしまう。

該当のソースコード

Sub LineNotify()

Dim objHTTP As Object
Dim LineStr As Variant

LineStr = "message=" & "http://xxx.co.jp" & "&param=123"

Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "POST", "https://notify-api.line.me/api/notify", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.setRequestHeader "Authorization", "Bearer xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
objHTTP.send LineStr

End Sub

試したこと

アンパサンド(&)を抜けばアンパサンドは入らないが、アンパサンド以降の文字列はメッセージとして送ることができている。
つまりアンパサンドのエスケープ処理が必要と思われるが、その処理方法が分からない。

補足情報（FW/ツールのバージョンなど）

Excel 2016
OS:Windows 10

Answer 1

アンパサンド(&)を%26に置換することで解決できました。