hola teno una tabla donde hay un campo que tiene

" To: nombre@hotmail.com
Sent: Mon, 12 May 2008 15:53:36 +0200
"

y mucho texto mas

lo que no se hacer es sacar el contenido que esta despues del To: y antes del sent:

y los campos que no lo tengan que me los homita

y con todo esto crear una tabla

alguien me puede hechar un cable?


gracias

Private Sub Command1_Click()
Dim Texto As String
Dim eMail As String
Dim ini As Integer
Dim fin As Integer

Texto = "xbc ffhr rjr To: nombre@hotmail.com Sent: Mon, 12 May 2008 15:53:36 +0200"

ini = InStr(Texto, " To: ")
fin = InStr(Texto, " Sent: ")
eMail = Mid(Texto, ini + 5, fin - ini - 5)

MsgBox "<" & eMail & ">"
End Sub

Espero aun te sirva.

__________________
---------------------
Ácido, pero vitamínico.

Maipú- Chile

y esto lo puedo implementar en acces?

y para que me recorra toda una tabla y me extraiga los mails y me cree otra tabla... es que mi dominio es mínimo