buscar en txt luego seleccionar y mostar

[piojoman]

Bueno el ejemplo que pongo aca da como asumido que ya estan todos los email cargados (como lo presentaste) en un textbox, Cargarlo es muy facil con la funcion Open, incluso en el MSND hay ejemplos de carga y todo...
Para que funcione el ejemplo tenes que crear un Commandbutton, un TextBox y un Label creado como matriz, comos se hace?? Crea dos Label nombra uno igual al otro y VB te preguntara si queres hacer una matriz de controles y le das que si y listo!!!.

Dim Num As Byte
Private Sub Command1_Click()
Dim Inicio As Integer, Final As Integer, Parcial As String

If Num > 0 Then
For Var = 1 To Num
Unload Label(Var)
Next Var
End If
Num = 0

Inicio = 1
Final = 1
Do While Final <= Len(Text1) 'Se repite hasta el final
Parcial = Mid(Text1, Final + 1, 1) 'Mira caracter por caracter
If Parcial = Chr(13) Then 'Se fija si hay un Enter
Label(Num) = Mid(Text1, Inicio, Final - Inicio + 1)
Inicio = Final + 2
Final = Final + 2
'Creara controles segun la cantidad de Cuentas
Load Label(Num + 1)
With Label(Num + 1)
.Visible = True
.Top = Label(Num).Top + 220 'Le dara la pos Top al nuevo Label
.Left = Label(Num).Left
End With
'--------------
Num = Num + 1 'Lleva el conteo de las Cant de Labels.
Else
Final = Final + 1
End If
Loop
End Sub