Hay muchas formas de hacer eso, yo haría un split... algo así

Private Sub Command1_Click()
Dim data As String
Dim vdata As Variant
 
data = "'XXXXX', 'unemail@hotmail.com', 'una.ip.normal.1', 1, 0, '', 'Hola esta es una prueba'"
vdata = Split(data, "'")
MsgBox vdata(3)
End Sub

Y ya devuelve el valor del e-mail. Haces que en data se almacene la cadena correspondiente y ya está :¡

Saludos.

Pues eso, tu has puesto la cadena y yo te puesto la solución para esa cadena hombre.. xD pero vamos no se donde está el problema:

Mete un textbox y haces así y en teoría debería de meter todos los mails...

Private Sub Form_Load()
Dim i as integer
Dim data, datos As String
Dim vdata, vdatos As Variant
 
Open "D:\Foros\SMF\Backup\localhost.sql" For Binary Access Read As #1
data = Input(LOF(1), #1)
Close #1
vdata = Split(data, "@")
 
For i = 0 To Numero de Entradas del localhost.sql 
   datos=vdata(i)
   vdatos = Split(datos, "'")
   Text1.Text = Text1.Text & vdatos(3) & vbcrlf
Next i
End Sub

Creo que así iría bien, prueba y me dices, esque sin el archivo no puedo probarlo.. xD

Que va hombre, tampoco creo yo que sea tan difícil, pero bueno si quieres hacerlo manualmente.. que te sea leve.. xD

Hice esto.... espero que te ayude.... y que sea lo que vos queres...

    Dim sValor      As String
    Dim sData()     As String
    Dim i           As Long
 
    'la cadena a extraer
    sValor = "'XXXXX', 'sunemail@hotmail.com', 'una.ip.normal.1', 1, 0, '', 'Hola esta es una prueba'"
 
    'Delimitamos la coma ,
    sData = Split(sValor, ",")
 
    'Recorre todos los valores
    For i = 0 To UBound(sData)
    'los escribe en el debug (inmediato)
        Debug.Print sData(i) & vbCrLf
    Next
 
    'aca mostramos el mensaje con el mail
    MsgBox Trim(Mid(sData(1), 3, Len(sData(1)) - 3))

saludos..

Siento decepcionarlos pero tampoco.

He intentado muchas maneras pero nad me sale.