Help modifying macro - Delete double quotes when saving *.txt

I have this following macro.

When saving I get double quotes in every line of the *.scr or *.txt file.

Tried with both concatenating data in single cell with line breaks and splitting data in single rows - same outcome.

Can this macro be modified to delete the quotes?

File is dropped as executable in Autocad and quotes are not recognised, thus breaking the code.

Sub SaveRangeAsText()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim wt As Worksheet
    Dim r As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set ws = Worksheets("SHEET")
    Set wb = Workbooks.Add(xlWBATWorksheet)
    Set wt = wb.Worksheets(1)
    wt.Range("A1:A10").Value = ws.Range("W30:W40").Value
    For r = 1 To 15
        wt.Range("A" & r).Value = wt.Range("A" & r).Value
    Next r
        wb.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\FILE\EXEC.scr", _
        FileFormat:=xlText
    wb.Close Savechanges:=False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub