Private Sub Command1_Click()
Dim emails() As String
Dim Texto As String
Dim L As Integer
Texto = "
meuemail_sim@sim.com.br /
novoemail-sim@sim.com -
novoemail_sim@sim.com "
Texto = Replace(Texto, " ", "")
For f = 1 To Len(Texto)
L = Asc(Mid(Texto, f, 1))
If (L < 97 Or L > 122) And L <> Asc(".") Then
If Mid(Texto, f - 4, 4) = ".com" Or Mid(Texto, f - 7, 7) = ".com.br" Then
Mid(Texto, f, 1) = ";"
End If
End If
Next f
emails() = Split(Texto, ";")
For j = 0 To UBound(emails)
List1.AddItem emails(j)
Next j
End Sub
