在VBA（excel）中追加正斜杠

我试图将正斜杠附加到某个文本文件的末尾，但当我附加正斜杠时，它显示为“/”而不是“/”/

我向您提供我的代码，如果您能帮助我解决问题，我将不胜感激

Sub AddBackslash()
  'Set variable R as Range for reading a whole list of column
  Dim R As Range
  Dim BK As String

  'Below variable is to hold string
  Dim SourcePath As String, DestPath As String, FName As String
  Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer

  'set sheet2 as active sheet for retrieve data at column A of sheet 2
  Worksheets("Sheet2").Activate

    BK = "/"


  'Visit each used cell in column A
  For Each R In Range("B2", Range("B" & Rows.Count).End(xlUp))

    'MsgBox "Name:" & R

    myFile = R
    Open myFile For Append As #1
    Write #1, Chr(47)
    Close #1

  Next
  ChangeSheet ("Sheet1")
End Sub

电流输出示例：

这是一个例子

我希望输出如下所示：

这就是一个例子/

---

你可以用打印代替书写 因为打印不包括双引号