Visual Basic - Ayuda!

Ola a tod@s mi problema es el siguiente kiero exportar de una base de datos a un fichero de texto y hago lo siguiente

fichero = App.Path
Open fichero & "\uno.txt" For Output As #11
strSQL = "select * from subastasfichero2 where CvDate('" & Trim$("" & txtAfech.Text) & "') >= FechaSubasta and CvDate('" & Trim$("" & txtDeFech.Text) & "') <= FechaSubasta"
Set tbcursor = dbbasededatoszahen.OpenRecordset(strSQL)

Do Until tbcursor.EOF
FechaSubasta = Trim$("" & Format(tbcursor("fechasubasta"), "DDMMYYYY"))
MatriculaBuque = Trim$("" & Format(tbcursor("matriculafolio"), "@@@@@@@@@@@@"))
CifVendedor = Trim$("" & Format(tbcursor("CifVendedor"), "@@@@@@@@@@@@@@@"))
CifComprador = Trim$("" & Format(tbcursor("CifComprador"), "@@@@@@@@@@@@@@@"))
Descarga = Trim$("" & Format(tbcursor("puertodescarga"), "@@@@"))
especie = Trim$("" & Format(tbcursor("especie"), "@@@@@@@@"))
Kg = Trim$("" & Format(tbcursor("neto"), "########.#0"))
Importe = Trim$("" & Format(tbcursor("Total"), "#######.#0"))

Write #11, FechaSubasta & MatriculaBuque & CifVendedor & CifComprador & Descarga & especie & Kg & Importe

Weno pues M lo pasa al fichero pero con unas comillas al principio y unas al final que no m pueden aparecer pero no se de donde salen a ver si alguno m peude ayudar a kitarlas gracias!!