sto usando queso codice ma è lentissimo....
mi sapresti aiutare a migliorarlo ?


codice:
Private Sub CmdEsegui_Click()
 Dim intFile As Integer
 Dim intRitorno As Integer
 Dim strTemp() As String
 Dim strTestoOk() As String
 Dim strTempOk As String
 Dim lnC1 As Long
 Dim lnC2 As Long
 Dim lnC3 As Long
 Dim lnC4 As Long
 Dim lnTrovato As Long
  

 'Assegna un numero valido per il file
 intFile = FreeFile
 
 'Apre il file
 Open selected For Input As #intFile
 
 'Legge l'intero contenuto del file e lo pone all'interno di un array riga per riga
 lnC1 = 0
 Do Until (EOF(intFile))
     ReDim Preserve strTemp(lnC1)
     Line Input #intFile, strTemp(lnC1)
     lnC1 = lnC1 + 1
 Loop
 
 'Chiude il file
 Close #intFile
 
 lnC4 = 0
 
 For lnC2 = LBound(strTemp) To UBound(strTemp)
   
   lnTrovato = 0
   
       For lnC3 = LBound(strTemp) To UBound(strTemp)
              
          If strTemp(lnC2) = strTemp(lnC3) Then
           lnTrovato = lnTrovato + 1
          End If
          
       Next
         
         If lnTrovato = 0 Then
          strTempOk = strTempOk & strTemp(lnC2) & " "
          lnC4 = lnC4 + 1
         End If
 
 Next
 
 ReDim strTestoOk(lnC4)
 strTestoOk = Split(strTempOk, " ")
 
 intFile = FreeFile
 Open selected For Output As #intFile
 
 For lnC4 = LBound(strTestoOk) To UBound(strTestoOk)
       Put #intFile, , strTestoOk(lnC4)
 Next
 
 Close #intFile
   
intRitorno = MsgBox("Ho finito")
End Sub