[VB6] Lettura del file ed elaborazione riga per riga

[bettola]

Ciao, devo leggere riga per riga un file di testo, analizzare la stringa e scriverla su un nuovo file di testo, il problema è che se nel file di testo ci sono virgole, la funzione che utilizzo mi va a capo nel nuovo file
esempio:

input: ; *** Working time: 3 MIN, 32 SEC ***
output: ; *** Working time: 3 MIN
32 SEC ***

ecco il codice che utilizzo

'============== apro i due stream
Open orig_file For Input As #1
Open dest_file For Output As #2

Do
Input #1, linea
Print #2, linea
Loop Until EOF(1) = True

'============== chiudo i due stream
Close #1
Close #2

[kalosjo]

Invece di input usa line input