[Resolvido]Função MID com erro de compilação...

Colegas, esta função MID está correta na função abaixo? É pra retornar o ultimo nome da pessoa.

Function Acha_Sobrenome(varNome As Variant) As String
Dim i As Integer
Dim strLetra As String

If IsNull(varNome) Then Exit Function

For i = Len(varNome) To 1 Step -1
strLetra = Mid(varNome, i, 1)
If strLetra = Chr$(32) Then Exit For
Next
Acha_Sobrenome = Right(varNome, Len(varNome) - i)
End Function

Agradeço desde já!

Está perfeita;

Maria José Santos Costa

Resultado: Acha_Sobrenome(CampoNome)

=Costa

JPaulo, valeu!