Fjern Klammer

Jeg har koden som jeg her fundet på eksperten

Sub KolonneTilText()

    Open "c:\TESTFILE.txt" For Output As #1
        For Each c In Selection.Cells
            If Not IsEmpty(c) Then
                Write #1, c.Value
            End If
        Next c
    Close #1

End Sub

Når man makerer en række fx A1-A15 og køre koden gemmer den fx i textfilen

40
41
42
43
44
45
46
47
48
49
50
51
"Jens"
"Peder"
"Jensen"

jeg gerne vil have klammerne fjernes om
Jens
Peder
Jensen