日本語サブドメインを、ExcelでPunycode表記の文字列にするにはどうしたらいいでしょうか

日本語サブドメインを、ExcelでPunycode表記の文字列にするにはどうしたらいいでしょうか動作環境 office2013 Excel VBA X64bit Win7'日本語URLをURLエンコードFunction urlEncode(str As String) As String Dim sc As New ScriptControl sc.Language = "JScript" Set js = sc.CodeObject urlEncode = js.encodeURICompon…