VBAでURLエンコードするならWorksheetFunction.EncodeURL()

Excel2013から実装されてます

ネタ元

hitoriit.blog