Public Function fString_Trim_ZeroWidthSpace(Value As String, Optional ReplaceVal As String = "") As String
'HTMLに含まれる不明なゼロ幅スペース[?]を除去する
'※上記の[?]はAscでは[63]を返すが、「?」とは異なる値(Zero Width Space)
'※HTMLの検証では「​」と記載
    
    'ゼロ幅スペース
    Dim ZWSP(0 To 1) As Byte
    ZWSP(0) = 11
    ZWSP(1) = 32
    fString_Trim_ZeroWidthSpace = Replace(Value, CStr(ZWSP), ReplaceVal)
    
End Function