SCusate la mia ignoranza, ma come mai nel programma qui sotto il file destinazione alla fine di ogno riga ha un carattere blank in fondo?
Grazie Mille e buon lavoro a tutti
---------------------------------------------------------------------

Private Sub Esegui_Click()
detfile = destfile

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(detfile, True)
a.Close


Open sFile For Input As #1

Open dfile For Output As #2

Do While Not EOF(1)
cont1 = 0
Line Input #1, textline
linedest = textline
c = Mid(textline, 41, 1)
If c = " " Then
Else
For cont = 1 To 5
indice = 30 + cont
c = Mid(textline, indice, 1)
If c = "0" Then
cont1 = cont1 + 1
Else
End If
If cont1 = 5 And cont = 5 Then
For Q = 1 To 15
indice2 = 30 + Q
indice3 = 35 + Q
If Q <= 10 Then
Mid(linedest,indice2,1)=Mid(textline,indice3, 1)
Else
Mid(linedest, indice2, 1) = " "
End If
Next Q

Else
End If



Next cont
End If



Print #2, linedest


Loop

Close #1
Close #2
MsgBox "ESECUZIONE TERMINATA", , "Esecuzione Terminata"

End Sub
---------------------------------------------------------------------