vb6 encontrar e remover strings

Ok diz lá qual é o ponto da situação ... e mostra código.

isto vai praki uma salgalhada de todo o tamanho mas funciona
Código:
Dim strEmail As String
On Error GoTo erro2
Dim i As Long
MailsInvalidos = 0
'reset de variaveis
removidos = 0
        
        'barra de progresso passo 1
        ProgressBar1.Min = 0
        ProgressBar1.Max = contador
        ProgressBar1.Value = 0
For i = 0 To contador
    'Caso o mail seja inválido ele anota-o numa variàvel e o utilizador é informado no final de quantos e-mails não foram importados
    If ValidarMail(List1.List(i)) = False Then
        MailsInvalidos = MailsInvalidos + 1
        List2.AddItem List1.List(i)
        List1.RemoveItem (i)
        Label9.Caption = MailsInvalidos
    End If
    'valida o mail, caso seja = True ele insere-o na listbox
    If ValidarMail(List1.List(i)) = True Then
        If InStr(UCase(List1.List(i)), UCase(Text1.Text)) Then
    removidos = removidos + 1
    totalremovidos = totalremovidos + 1
    List1.RemoveItem i
    End If
  'Anti-congelamento do programa
  If antifreeze.Value = 1 Then
  DoEvents
    End If
  End If 'fim do ciclo e da validaçao dos mails o next vem a seguir
  
          'barra de progresso
          If ProgressBar1.Value <= contador Then
        ProgressBar1.Value = ProgressBar1.Value + 1
        End If
  Label3.Caption = removidos
  Label4.Caption = totalremovidos
Next i
Exit Sub
erro2:
DoEvents
Exit Sub

algumas variaveis sao iniciadas fora do command1_click para serem globais
nao concatenei isto porque sou desorganizado como o caraças
 
Back
Topo