[VB6] Copiare una stringa fino ad un carattere specifico

[GudFella]

For i=0 to ubound(arr_stringa)
      fosavefile.WriteLine (arr_stringa(i) & vbCrLf)   
next i