ダブルコーテーションを全角に置換するには

質問

InputBoxで入力した"を、Replace関数で”にしたいのですが、
Replace(str, """", "”")をすると、コンパイルエラーになります。

Sub macro()
Dim str As String
str = InputBox("文字を入れてください")
Debug.Print Replace(str, """", "")
End Sub

というマクロを作りました。
画像のように、半角のダブルコーテーション「"」を入れたら、
Replace関数で全角のダブルコーテーション「”」に変えるにはどうすればいいでしょうか？

「最初からInputBoxに全角入れればいいやん！」
は、なしにしてください。
ファイル名を作っていて、ダブルコーテーションは全角でないとつけられないのです。

回答No.1

axuaxua · ベストアンサー

“（左ダブルクォーテーション）→Chr(&H8167)
”（右ダブルクォーテーション）→Chr(&H8168)

Debug.Print Replace(str, """, Chr(&H8168))
でいいと思います(未検証)、ただし全て右ダブルクォーテーションになります。
”“2種類使うならまた違う処理が必要になります。恐らく他の方が書くでしょう

お礼

さっそくのご回答ありがとうございます。

シフトキー+２を押してるので
右ダブルコーテーションになると思います。

Debug.Print Replace(str, """, Chr(&H8168))
をそっくりそのままvbe画面に貼り付けたらコンパイルエラーになってしまいます。

と思ったら、
Sub macro()
Dim str As String

str = InputBox("文字を入れてください")
Debug.Print Replace(str, Chr(&H8168), "")
End Sub
これでイケました。