comillas en archivo plano

Victor gracias por contestar, pero clarificando, el evento es que
tengo esta macro que me crea un archivo plano, pero las lineas son
escritas en el entre comillas, por ejemplo :

"2005011600100002158900040"

adjunto la macro

Private Sub WriteToTextFile()
Dim FileNum, line As Integer, i As Long

If Dir("f:omina.TXT") <> "" Then
' deletes the file if it exists
Kill "f:omina.TXT"
End If
FileNum = FreeFile ' next free filenumber
Open "f:omina.TXT" For Output As #FileNum
'creates the new file
' Open "f:omina.TXT" For Append As #FileNum
' appends the input to an existing file
' write to the textfile
Worksheets(6).Select
line = 2
While Worksheets(5).Cells(line, 1).Value <> ""
Write #FileNum, Worksheets(6).Cells(line, 1).Value
line = line + 1
Wend
Close #FileNum ' close the file
End Sub

lo que realmente necesito es que me haga el mismo procedimiento, pero
con la salvedad que no escriba las comillas, es decir las lineas
queden en el archivo plano de este modo :

2005011600100002158900040

gracias nuevamente por la ayuda

cordial saludo

Fernando