modifica script per convertire estrazione SE in txt

[lotto69]

Buongiorno
ho svulippato questo semplice script per trasformare l'estrazione del Super Enalotto in formato txt

però l'output mi viene così:
34,19.03.2020,07,11,17,28,29,50,41
35,21.03.2020,05,13,38,39,52,59,74
Mi sarebbe piaciuto lo slash che dividesse la data
34,19/03/2020,07,11,17,28,29,50,41
35,21/03/2020,05,13,38,39,52,59,74
Come posso fare?
Grazie

Option Explicit
Sub Main
     
       Dim Ini,Fin,Es
       Dim R,P
       Dim sFile
       Dim sEstrazione
     
       Fin = EstrazioniArchivioSE

       sFile =("C:\Archivio_SE_L8.txt") 'Specifica percorso di archiviazione
       Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
       Ini = 1 'inizio estrazione 10 e lotto
       For Es = Ini To Fin
              sEstrazione = Format2(IndiceAnnualeSE(Es)) & "," & DataEstrazioneSE(Es,False)
             
             
                       For P = 1 To 7
                               sEstrazione = sEstrazione & "," & Format2(EstrattoSE(Es,P))
                       Next
             
               'Call Scrivi(sEstrazione) ' scrivo a video l' Estrazione
               Call ScriviFile(sFile,sEstrazione) ' scrivo anche sul file preposto

       Next
       Call CloseFileHandle(sFile) ' chiudo l'handle al file
       Call LanciaFile(sFile) ' Verifica il file, con il NotePad
End Sub

 

[Master]

Salve
Prova a sostituire
sEstrazione = Format2(IndiceAnnualeSE(Es)) & "," & DataEstrazioneSE(Es,False)

con

sEstrazione = Format2(IndiceAnnualeSE(Es)) & "," & Replace(DataEstrazioneSE(Es),".","/")

 

[lotto69]

Grazie, funziona!!!!

 

[Alien.]

E' ciao Master visto che sei pratico di script potresti farmi l'archivio del superenalotto per poi copiarlo su excel con copia ed incolla o come vuoi tu,in ordine dal più piccolo al più grande-Ma solo con le colonne vincenti con i numeri dal 01 al 69 ?
poi con quanti numeri pari e dispari per ogni estrazione ,poi -.....................vedremo ti è possibile,grazie.