Visual Basic - buscar espacios en blanco en una cadena

hola a tod@s:

Como puedo hacer si tengo por ejemplo:

hola [email protected] alalalalalalalal

y quiero quedarme solo con el email?

he pensado en untilizar la funcion instr para buscar la posicion del @ y ahora quiero buscar el espacio antes de la @ y el espacio despues de la @ pero no se como hacerlo, alguien podria ayudarme?

Mejor así:

Private Sub Command1_Click()

Dim values() As String
Dim mails() As String
Dim arroba As Long
Dim j As Integer

values = Split(Text1.Text, " ")
j = 0

For i = 0 To UBound(values)
cadena = values(i)
If Len(cadena) <> 0 Then
arroba = InStr(1, cadena, "@")
If arroba <> 0 Then
ReDim Preserve mails(j + 1)
mails(j) = cadena
j = j + 1:
End If
End If

Next i

End Sub

Resultado:
mails es una matriz que tiene todas las subcadenas delimitadas por espacios que se encuentran en el texto (en este caso un texbox) y que contienen un carater @.
Queda para vos verificar que puedan ser direcciones de email válidas, es decir del tipo:
[email protected]