Private Sub Esegui_Click()
Dim inizio, fine As String
dim textline as string *295
detfile = destfile

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)
inizio = Mid(textline, 1, 30)
NUBOLL = Mid(textline, 31, 15)
fine = Mid(textline, 46, 250)
If c = " " Then
Else
For cont = 1 To 5
c = Mid(NUBOLL, cont, 1)
If c = "0" Then
cont1 = cont1 + 1
Else
End If
If cont1 = 5 And cont = 5 Then
NUBOLL = Mid(textline, 36, 10) + " "
Else
End If

Next cont
End If
textline = inizio + NUBOLL + fine

Print #2, textline


Loop

Close #1
Close #2


MsgBox "ESECUZIONE TERMINATA", , "Esecuzione Terminata"

End Sub