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