[Resolvido]Selecionar última letra de uma Frase

Boa tarde

Tenho um campo texto preenchido com por Exemplo " Segundo Teste ".

Com este comando o dito campo ao receber o foco seleciona todo o campo.

Private Sub NomeCampo_GotFocus()
NomeCampo.SelStart = 0
NomeCampo.SelLength = Len(NomeCampo.Text)
End Sub

Queria que o campo ao rececer o foco selecionasse só a última letra de Teste.

Boas Assis

A calculadora funciona?

Me.NomedoCampo = Right([origemdocampo], 1)

Private Sub NomeCampo_GotFocus()
Me![NomeCampo].SetFocus
Me![NomeCampo].SelStart = 0
Me![NomeCampo].SelStart = IIf(IsNull(Me![NomeCampo]), 0, Len(Me![NomeCampo]))
End Sub

Boa tarde

Obrigado

O exemplo do Vieira Selecionava só a ultima letra, mas só aparecia a ultima letra.
A calculadora funciona mas eu preferia a que enviei.


O exemplo do JPaulo aparecia a frase e o cursor á frente da ultima letra.

Resolvi assim:

Private Sub NomeCampo_GotFocus()
On Error Resume Next
Ref.SelStart = Len(Ref.Text) - 1
Ref.SelLength = Len(Ref.Text)
End Sub

Obrigado Assis, por retornar a solução é sempre uma mais valia para o forum.