verificar se o e-mail é um e-mail externo

Function emailexterno(verfrom As String) As Boolean
'//função para verificar se o e-mail é um e-mail externo

On Error Goto ops

Dim i As Integer

f = "@"
g = "."

emailexterno = False
'//verifico se existe @ no nome
i = Instr(verfrom,f)
'//se i >0 entao existe @
If i > 0 Then
'//se existir procuro um "." depois do @ - é obrigatório ter ponto depois do @ para o email ser externo
If Instr(i,verfrom,g) > i Then
emailexterno = True
End If
'//se nao existir retorno false
End If

sai:

Exit Function

ops:

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

End Function