Extrair o endereço de e-mail

Function filtrafrom(verfrom As String) As String
'//função utlizada para extrair o endereço de e-mail
'//alguns e-mails são recebidos com "fulano"


On Error Goto ops

Dim i As Integer
'//procuro o label do email recebido
f = "<"
g = ">"

i = Instr(verfrom,f)
j = ( Instr(verfrom,g) -1)

'// se i > 0 entao existe label para o email
If i > 0 Then
If j > 0 Then
'//removo o label do endereco de correio
filtrafrom = Mid$(verfrom, i+1,j-i)
End If
Else

'// se nao existe label retorno o coreio recebido
filtrafrom = verfrom
End If



sai:

Exit Function

ops:

Msgbox "Erro na function filtrafrom na linha " & Erl & " do tipo:" & Error & Err
Resume sai

End Function