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