如何在Mathematica中为逗号写一个逗号？

Question

以下代码也在输入两个引号（逗号周围）。

fp = OpenAppend["Math.txt"];
mycomma = “,”;
(*var1 and var2 are variables*)
Write[fp,var1 ,mycomma,var2];
(*other attempts Write[fp,var1 ,"\,",var2]; *)
(*other attempts Write[fp,var1 , \, ,var2]; *)
Close[fp];